chris/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tweaks of the stuff

Browse source
This commit is contained in:
Chris Cochrun 2025-09-24 09:35:34 -05:00
parent 4de2d59f08
commit 266e497b3c
2 changed files with 24 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

14
README.org
View file

@ -135,9 +135,9 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent but not the text" "Set the frame to be transparent but not the text"
(set-frame-parameter (selected-frame) 'alpha-background 95) (set-frame-parameter (selected-frame) 'alpha-background 85)
(add-to-list 'default-frame-alist '(alpha-background . 95)) (add-to-list 'default-frame-alist '(alpha-background . 85))
(add-to-list 'initial-frame-alist '(alpha-background . 95))) (add-to-list 'initial-frame-alist '(alpha-background . 85)))
(if (daemonp) (add-hook 'after-make-frame-functions (if (daemonp) (add-hook 'after-make-frame-functions
(lambda (frame) (lambda (frame)
@ -988,6 +988,7 @@ Part of this config includes some special capture templates for my work as a you
org-fontify-quote-and-verse-blocks t org-fontify-quote-and-verse-blocks t
org-src-preserve-indentation t org-src-preserve-indentation t
org-src-window-setup 'other-window org-src-window-setup 'other-window
org-edit-src-turn-on-auto-save t
org-export-with-broken-links t org-export-with-broken-links t
org-agenda-current-time-string "⭠ now ────────────────" org-agenda-current-time-string "⭠ now ────────────────"
org-log-into-drawer t org-log-into-drawer t
@ -3983,19 +3984,22 @@ Let's give eglot a try.
(add-hook 'eglot-managed-mode-hook #'chris/eglot-capf) (add-hook 'eglot-managed-mode-hook #'chris/eglot-capf)
(add-to-list 'eglot-server-programs '(wgsl-mode "wgsl-analyzer")) (add-to-list 'eglot-server-programs '(wgsl-mode "wgsl-analyzer"))
(add-to-list 'eglot-server-programs '(qml-mode "qmlls")) (add-to-list 'eglot-server-programs '(qml-mode "qmlls"))
(add-to-list 'eglot-server-programs (add-to-list 'eglot-server-programs
'(text-mode . ("harper-ls" "--stdio"))) '(text-mode . ("harper-ls" "--stdio")))
(add-to-list 'eglot-server-programs (add-to-list 'eglot-server-programs
'(org-mode . ("harper-ls" "--stdio"))) '(org-mode . ("harper-ls" "--stdio")))
(add-to-list 'eglot-server-programs (add-to-list 'eglot-server-programs
'((english-prose-mode :language-id "plaintext") . ("harper-ls" "--stdio"))) '((english-prose-mode :language-id "plaintext") . ("harper-ls" "--stdio")))
:general :general
(general-def 'normal eglot-mode-map (general-def 'normal eglot-mode-map
"ga" 'eglot-code-actions "ga" 'eglot-code-actions
"gi" 'eglot-find-implementation "gi" 'eglot-find-implementation
"gr" 'eglot-rename "gr" 'eglot-rename
"gR" 'xref-find-references)) "gR" 'xref-find-references
"gn" 'flymake-goto-next-error
"gp" 'flymake-goto-prev-error
"gE" 'flymake-show-project-diagnostics))
#+end_src #+end_src
#+begin_src emacs-lisp #+begin_src emacs-lisp

14
init.el
View file

@ -41,9 +41,9 @@
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent but not the text" "Set the frame to be transparent but not the text"
(set-frame-parameter (selected-frame) 'alpha-background 95) (set-frame-parameter (selected-frame) 'alpha-background 85)
(add-to-list 'default-frame-alist '(alpha-background . 95)) (add-to-list 'default-frame-alist '(alpha-background . 85))
(add-to-list 'initial-frame-alist '(alpha-background . 95))) (add-to-list 'initial-frame-alist '(alpha-background . 85)))
(if (daemonp) (add-hook 'after-make-frame-functions (if (daemonp) (add-hook 'after-make-frame-functions
(lambda (frame) (lambda (frame)
@ -686,6 +686,7 @@ much faster. The hope is to also make this a faster version of imenu."
org-fontify-quote-and-verse-blocks t org-fontify-quote-and-verse-blocks t
org-src-preserve-indentation t org-src-preserve-indentation t
org-src-window-setup 'other-window org-src-window-setup 'other-window
org-edit-src-turn-on-auto-save t
org-export-with-broken-links t org-export-with-broken-links t
org-agenda-current-time-string "⭠ now ────────────────" org-agenda-current-time-string "⭠ now ────────────────"
org-log-into-drawer t org-log-into-drawer t
@ -2912,19 +2913,22 @@ current buffer's, reload dir-locals."
(add-hook 'eglot-managed-mode-hook #'chris/eglot-capf) (add-hook 'eglot-managed-mode-hook #'chris/eglot-capf)
(add-to-list 'eglot-server-programs '(wgsl-mode "wgsl-analyzer")) (add-to-list 'eglot-server-programs '(wgsl-mode "wgsl-analyzer"))
(add-to-list 'eglot-server-programs '(qml-mode "qmlls")) (add-to-list 'eglot-server-programs '(qml-mode "qmlls"))
(add-to-list 'eglot-server-programs (add-to-list 'eglot-server-programs
'(text-mode . ("harper-ls" "--stdio"))) '(text-mode . ("harper-ls" "--stdio")))
(add-to-list 'eglot-server-programs (add-to-list 'eglot-server-programs
'(org-mode . ("harper-ls" "--stdio"))) '(org-mode . ("harper-ls" "--stdio")))
(add-to-list 'eglot-server-programs (add-to-list 'eglot-server-programs
'((english-prose-mode :language-id "plaintext") . ("harper-ls" "--stdio"))) '((english-prose-mode :language-id "plaintext") . ("harper-ls" "--stdio")))
:general :general
(general-def 'normal eglot-mode-map (general-def 'normal eglot-mode-map
"ga" 'eglot-code-actions "ga" 'eglot-code-actions
"gi" 'eglot-find-implementation "gi" 'eglot-find-implementation
"gr" 'eglot-rename "gr" 'eglot-rename
"gR" 'xref-find-references)) "gR" 'xref-find-references
"gn" 'flymake-goto-next-error
"gp" 'flymake-goto-prev-error
"gE" 'flymake-show-project-diagnostics))
(use-package consult-eglot (use-package consult-eglot
:general :general