fixing org roam and adding eglot instead of lsp-mode

This commit is contained in:
Chris Cochrun 2022-05-21 06:34:08 -05:00
parent 941d688f91
commit fdbcc61ee5
2 changed files with 30 additions and 57 deletions

View file

@ -633,8 +633,7 @@ Part of this config includes some special capture templates for my work as a you
'((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)") '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
(sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")) (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)"))
org-agenda-files org-agenda-files
'("/home/chris/org/todo/inbox.org" '("/home/chris/org/todo/notes.org"
"/home/chris/org/todo/notes.org"
"/home/chris/org/repetition.org" "/home/chris/org/repetition.org"
"/home/chris/org/tfc_plans.org" "/home/chris/org/tfc_plans.org"
"/home/chris/org/ministry_team.org" "/home/chris/org/ministry_team.org"
@ -810,7 +809,7 @@ We also need to setup some capture templates to use some specific setups with my
org-roam-capture-templates org-roam-capture-templates
'(("d" "default" plain "%?" '(("d" "default" plain "%?"
:if-new (file+head "${slug}.org" :if-new (file+head "${slug}.org"
"#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\nj ") "#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n * %?")
:unnarrowed t) :unnarrowed t)
("b" "bible" plain "%?" ("b" "bible" plain "%?"
:if-new (file+head "${slug}.org" :if-new (file+head "${slug}.org"
@ -824,7 +823,10 @@ We also need to setup some capture templates to use some specific setups with my
'(("d" "daily" plain #'org-roam-capture--get-point "" '(("d" "daily" plain #'org-roam-capture--get-point ""
:immediate-finish t :immediate-finish t
:file-name "%<%Y-%m-%d>" :file-name "%<%Y-%m-%d>"
:head "#+TITLE: %<%Y-%m-%d>\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n* HFL\n* Tasks\n* Family\n** How Do I Love Abbie?") :head "#+TITLE: %<%Y-%m-%d>\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n* HFL\n* Tasks\n* Family\n** How Do I Love Abbie?"
:if-new (file+head "%<%Y-%m-%d>.org"
"#+TITLE: %<%Y-%m-%d>\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n* HFL\n* Tasks\n* Family\n** How Do I Love Abbie?")
)
("b" "biblical daily" plain #'org-roam-capture--get-point "" ("b" "biblical daily" plain #'org-roam-capture--get-point ""
:immediate-finish t :immediate-finish t
:file-name "%<%Y-%m-%d>-bib" :file-name "%<%Y-%m-%d>-bib"
@ -1912,7 +1914,7 @@ I've been transitioning more of my OS to NixOS. Let's get =nix-mode= working.
*** LSP *** LSP
LSP is useful... LSP is useful...
#+begin_src emacs-lisp #+begin_src emacs-lisp :tangle no
(use-package lsp-mode (use-package lsp-mode
:commands (lsp lsp-deferred) :commands (lsp lsp-deferred)
:custom :custom
@ -1928,7 +1930,8 @@ LSP is useful...
:config :config
(setq lsp-lens-enable t (setq lsp-lens-enable t
lsp-signature-auto-activate nil lsp-signature-auto-activate nil
read-process-output-max (* 1024 1024)) read-process-output-max (* 1024 1024)
lsp-clangd-binary-path "/run/current-system/sw/bin/clangd")
(lsp-enable-which-key-integration t) (lsp-enable-which-key-integration t)
(add-to-list 'lsp-language-id-configuration '(qml-mode . "qml")) (add-to-list 'lsp-language-id-configuration '(qml-mode . "qml"))
(lsp-register-client (lsp-register-client
@ -1946,6 +1949,18 @@ LSP is useful...
(use-package lsp-treemacs (use-package lsp-treemacs
:after lsp) :after lsp)
(use-package consult-lsp
:after lsp)
#+end_src
*** Eglot
Let's give eglot a try.
#+begin_src emacs-lisp
(use-package eglot
:commands eglot
:hook
(c++-mode . eglot))
#+end_src #+end_src
*** Fennel *** Fennel

60
init.el
View file

@ -433,8 +433,7 @@
'((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)") '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
(sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")) (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)"))
org-agenda-files org-agenda-files
'("/home/chris/org/todo/inbox.org" '("/home/chris/org/todo/notes.org"
"/home/chris/org/todo/notes.org"
"/home/chris/org/repetition.org" "/home/chris/org/repetition.org"
"/home/chris/org/tfc_plans.org" "/home/chris/org/tfc_plans.org"
"/home/chris/org/ministry_team.org" "/home/chris/org/ministry_team.org"
@ -586,7 +585,7 @@
org-roam-capture-templates org-roam-capture-templates
'(("d" "default" plain "%?" '(("d" "default" plain "%?"
:if-new (file+head "${slug}.org" :if-new (file+head "${slug}.org"
"#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\nj ") "#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n * %?")
:unnarrowed t) :unnarrowed t)
("b" "bible" plain "%?" ("b" "bible" plain "%?"
:if-new (file+head "${slug}.org" :if-new (file+head "${slug}.org"
@ -600,7 +599,10 @@
'(("d" "daily" plain #'org-roam-capture--get-point "" '(("d" "daily" plain #'org-roam-capture--get-point ""
:immediate-finish t :immediate-finish t
:file-name "%<%Y-%m-%d>" :file-name "%<%Y-%m-%d>"
:head "#+TITLE: %<%Y-%m-%d>\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n* HFL\n* Tasks\n* Family\n** How Do I Love Abbie?") :head "#+TITLE: %<%Y-%m-%d>\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n* HFL\n* Tasks\n* Family\n** How Do I Love Abbie?"
:if-new (file+head "%<%Y-%m-%d>.org"
"#+TITLE: %<%Y-%m-%d>\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n* HFL\n* Tasks\n* Family\n** How Do I Love Abbie?")
)
("b" "biblical daily" plain #'org-roam-capture--get-point "" ("b" "biblical daily" plain #'org-roam-capture--get-point ""
:immediate-finish t :immediate-finish t
:file-name "%<%Y-%m-%d>-bib" :file-name "%<%Y-%m-%d>-bib"
@ -1337,39 +1339,10 @@ targets."
(use-package nix-mode (use-package nix-mode
:mode "\\.nix\\'") :mode "\\.nix\\'")
(use-package lsp-mode (use-package eglot
:commands (lsp lsp-deferred) :commands eglot
:custom
(lsp-completion-provider :none)
:hook :hook
(c++-mode . lsp-deferred) (c++-mode . eglot))
(lsp-completion-mode . my/lsp-mode-setup-completion)
:init
(setq lsp-keymap-prefix "C-c l")
(defun my/lsp-mode-setup-completion ()
(setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
'(flex)))
:config
(setq lsp-lens-enable t
lsp-signature-auto-activate nil
read-process-output-max (* 1024 1024))
(lsp-enable-which-key-integration t)
(add-to-list 'lsp-language-id-configuration '(qml-mode . "qml"))
(lsp-register-client
(make-lsp-client :new-connection (lsp-stdio-connection "qml-lsp")
:activation-fn (lsp-activate-on "qml")
:server-id 'qml))
:general
(general-def 'normal c++-mode-map
"gf" 'lsp-clangd-find-other-file))
(use-package lsp-ui
:hook (lsp-mode . lsp-ui-mode)
:custom
(lsp-ui-doc-position 'at-point))
(use-package lsp-treemacs
:after lsp)
(use-package fennel-mode (use-package fennel-mode
:mode ("\\.fnl\\'" . fennel-mode)) :mode ("\\.fnl\\'" . fennel-mode))
@ -2266,18 +2239,3 @@ interfere with the default `bongo-playlist-buffer'."
gcmh-verbose nil)) gcmh-verbose nil))
(setq warning-suppress-types '((comp))) (setq warning-suppress-types '((comp)))
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(pdf-misc-print-program "/usr/bin/lpr")
'(pdf-misc-print-program-args '("-o media=Letter" "-o fitplot"))
'(safe-local-variable-values
'((eval org-odt-styles-file "/home/chris/org/tfcexpenses2020.odt"))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36"))))