From 7b6f4038c3b4ea65f20c70b7c7ad66957d556968 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 23 Sep 2022 04:27:41 +0100 Subject: eldoc window toggle --- init.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index 455d03c..70a7224 100644 --- a/init.el +++ b/init.el @@ -408,11 +408,12 @@ (jao-themes-setup) ;;; Help system -;;;; Help buffers and shortcuts +;;;; help buffers (setq help-window-select t help-window-keep-selected nil help-link-key-to-documentation t) +;;;; find-func/var/lib (use-package find-func :bind (("C-h C-v" . find-variable) ("C-h C-f" . find-function) @@ -429,9 +430,15 @@ eldoc-display-functions '(eldoc-display-in-echo-area)) :config (global-eldoc-mode 1)) -(jao-define-attached-buffer "\\*eldoc\\( .*\\)?\\*" 0.33) +(defun jao-eldoc-toggle () + "Toggle eldoc's documentation buffer." + (interactive) + (let ((buffer (eldoc-doc-buffer))) + (if-let (w (and buffer (get-buffer-window buffer))) + (delete-window w) + (eldoc-doc-buffer t)))) -;; bookmarks +;;;; bookmarks (setq bookmark-default-file "~/.emacs.d/emacs.bmk" bookmark-fringe-mark nil) @@ -905,6 +912,8 @@ (add-to-list 'display-buffer-alist (jao-attached-buffer-entry name-rx height))) +(jao-define-attached-buffer "\\*eldoc\\( .*\\)?\\*" 0.33) + ;;;; images (setq image-use-external-converter t) (setq widget-image-enable nil) @@ -2109,6 +2118,7 @@ ;;;; eglot (use-package eglot :ensure t + :bind (:map eglot-mode-map (("C-h ." . jao-eldoc-toggle))) :hook ((haskell-mode . eglot-ensure))) ;;;; workarounds -- cgit v1.2.3