2020-11-02 01:45:23 +01:00
|
|
|
* Helm
|
2020-12-27 00:54:09 +01:00
|
|
|
#+NAME: helm
|
|
|
|
|
#+BEGIN_SRC emacs-lisp :noweb yes
|
|
|
|
|
(use-package helm
|
|
|
|
|
:straight t
|
2021-01-06 00:06:05 +01:00
|
|
|
:disabled t
|
2020-12-27 00:54:09 +01:00
|
|
|
:config
|
|
|
|
|
(defun my-helm-display-frame-center (buffer &optional resume)
|
|
|
|
|
"Display `helm-buffer' in a separate frame which centered in parent frame."
|
|
|
|
|
(if (not (display-graphic-p))
|
|
|
|
|
;; Fallback to default when frames are not usable.
|
|
|
|
|
(helm-default-display-buffer buffer)
|
|
|
|
|
(setq helm--buffer-in-new-frame-p t)
|
|
|
|
|
(let* ((parent (selected-frame))
|
|
|
|
|
(frame-pos (frame-position parent))
|
|
|
|
|
(parent-left (car frame-pos))
|
|
|
|
|
(parent-top (cdr frame-pos))
|
|
|
|
|
(width (/ (frame-width parent) 2))
|
|
|
|
|
(height (/ (frame-height parent) 3))
|
|
|
|
|
tab-bar-mode
|
|
|
|
|
(default-frame-alist
|
|
|
|
|
(if resume
|
|
|
|
|
(buffer-local-value 'helm--last-frame-parameters
|
|
|
|
|
(get-buffer buffer))
|
|
|
|
|
`((parent . ,parent)
|
|
|
|
|
(width . ,width)
|
|
|
|
|
(height . ,height)
|
|
|
|
|
(parent-frame . nil)
|
|
|
|
|
(undecorated . ,helm-use-undecorated-frame-option)
|
|
|
|
|
(left-fringe . 0)
|
|
|
|
|
(right-fringe . 0)
|
|
|
|
|
(tool-bar-lines . 0)
|
|
|
|
|
(line-spacing . 0)
|
|
|
|
|
(desktop-dont-save . t)
|
|
|
|
|
(no-special-glyphs . t)
|
|
|
|
|
(inhibit-double-buffering . t)
|
|
|
|
|
(tool-bar-lines . 0)
|
|
|
|
|
(left . ,(+ parent-left (/ (* (frame-char-width parent) (frame-width parent)) 4)))
|
|
|
|
|
(top . ,(+ parent-top (/ (* (frame-char-width parent) (frame-height parent)) 6)))
|
|
|
|
|
(title . "Helm")
|
|
|
|
|
(vertical-scroll-bars . nil)
|
|
|
|
|
(menu-bar-lines . 0)
|
|
|
|
|
(fullscreen . nil)
|
|
|
|
|
(visible . ,(null helm-display-buffer-reuse-frame))
|
|
|
|
|
;; (internal-border-width . ,(if IS-MAC 1 0))
|
|
|
|
|
)))
|
|
|
|
|
display-buffer-alist)
|
|
|
|
|
(set-face-background 'internal-border (face-foreground 'default))
|
|
|
|
|
(helm-display-buffer-popup-frame buffer default-frame-alist))
|
|
|
|
|
(helm-log-run-hook 'helm-window-configuration-hook)))
|
|
|
|
|
(defun magic-rb/exwm-helm-at-bottom ()
|
|
|
|
|
(setq helm-split-window-in-side-p t)
|
2020-11-02 01:45:23 +01:00
|
|
|
|
2020-12-27 00:54:09 +01:00
|
|
|
(add-to-list 'display-buffer-alist
|
|
|
|
|
'("\\`\\*helm.*\\*\\'"
|
|
|
|
|
(display-buffer-in-side-window)
|
|
|
|
|
(inhibit-same-window . t)
|
|
|
|
|
(window-height . 0.4)))
|
2020-11-25 08:32:51 +01:00
|
|
|
|
2020-12-27 00:54:09 +01:00
|
|
|
(setq helm-swoop-split-with-multiple-windows nil
|
|
|
|
|
helm-swoop-split-direction 'split-window-vertically
|
|
|
|
|
helm-swoop-split-window-function 'helm-default-display-buffer))
|
|
|
|
|
|
|
|
|
|
(unless (string= (getenv "EXWM") "1") (setq helm-display-function 'my-helm-display-frame-center))
|
|
|
|
|
(when (string= (getenv "EXWM") "1") (magic-rb/exwm-helm-at-bottom))
|
|
|
|
|
(setq helm-display-buffer-reuse-frame t
|
|
|
|
|
helm-display-buffer-width 80)
|
|
|
|
|
(helm-mode)
|
|
|
|
|
:bind (("M-x" . helm-M-x)
|
|
|
|
|
("C-x r b" . helm-filtered-bookmarks)
|
|
|
|
|
("C-x C-f" . helm-find-files)
|
|
|
|
|
("C-x b" . helm-buffers-list)))
|
|
|
|
|
|
|
|
|
|
; <<helm-bufler>>
|
|
|
|
|
#+END_SRC
|
