Home Gen377 @ 2024-10-25-14:46

This commit is contained in:
Jonas Röger 2024-10-25 14:46:51 +02:00
parent e6ca78b611
commit 24c7c5907a
2 changed files with 4 additions and 6 deletions

View File

@ -43,7 +43,7 @@
doom-socket-name = "main"; doom-socket-name = "main";
wrapped-emacs = pkgs.symlinkJoin { wrapped-emacs = pkgs.symlinkJoin {
name = "wrapped-emacs"; name = "wrapped-emacs";
paths = [pkgs.emacs29-pgtk]; paths = [pkgs.emacs29];
nativeBuildInputs = [pkgs.makeBinaryWrapper]; nativeBuildInputs = [pkgs.makeBinaryWrapper];
postBuild = '' postBuild = ''
wrapProgram $out/bin/emacs \ wrapProgram $out/bin/emacs \

View File

@ -139,13 +139,11 @@
(defun my-ui-doc-glance-then-focus () (defun my-ui-doc-glance-then-focus ()
"Glances UI-Doc if not present, otherwise focus" "Glances UI-Doc if not present, otherwise focus"
(interactive) (interactive)
(if (lsp-ui-doc--frame-visible-p) (if (lsp-ui-doc--visible-p)
(progn (lsp-ui-doc-focus-frame)
(lsp-ui-doc-hide)
(lsp-ui-doc-show)
(lsp-ui-doc-focus-frame))
(lsp-ui-doc-glance))) (lsp-ui-doc-glance)))
(map! :map (cpp-mode-map c-mode-map c++-mode-map lsp-mode-map) (map! :map (cpp-mode-map c-mode-map c++-mode-map lsp-mode-map)
:desc "Show Doc-UI" :n "C-h" #'my-ui-doc-glance-then-focus) :desc "Show Doc-UI" :n "C-h" #'my-ui-doc-glance-then-focus)