tweaks of the stuff
This commit is contained in:
		
							parent
							
								
									4de2d59f08
								
							
						
					
					
						commit
						266e497b3c
					
				
					 2 changed files with 24 additions and 16 deletions
				
			
		
							
								
								
									
										20
									
								
								README.org
									
										
									
									
									
								
							
							
						
						
									
										20
									
								
								README.org
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -135,9 +135,9 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
 | 
			
		|||
 | 
			
		||||
(defun chris/set-transparency ()
 | 
			
		||||
  "Set the frame to be transparent but not the text"
 | 
			
		||||
  (set-frame-parameter (selected-frame) 'alpha-background 95)
 | 
			
		||||
  (add-to-list 'default-frame-alist '(alpha-background . 95))
 | 
			
		||||
  (add-to-list 'initial-frame-alist '(alpha-background . 95)))
 | 
			
		||||
  (set-frame-parameter (selected-frame) 'alpha-background 85)
 | 
			
		||||
  (add-to-list 'default-frame-alist '(alpha-background . 85))
 | 
			
		||||
  (add-to-list 'initial-frame-alist '(alpha-background . 85)))
 | 
			
		||||
 | 
			
		||||
(if (daemonp) (add-hook 'after-make-frame-functions
 | 
			
		||||
          (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-src-preserve-indentation t
 | 
			
		||||
        org-src-window-setup 'other-window
 | 
			
		||||
        org-edit-src-turn-on-auto-save t
 | 
			
		||||
        org-export-with-broken-links t
 | 
			
		||||
        org-agenda-current-time-string "⭠ now ────────────────"
 | 
			
		||||
        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-to-list 'eglot-server-programs '(wgsl-mode "wgsl-analyzer"))
 | 
			
		||||
  (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")))
 | 
			
		||||
(add-to-list 'eglot-server-programs
 | 
			
		||||
  (add-to-list 'eglot-server-programs
 | 
			
		||||
               '(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")))
 | 
			
		||||
 | 
			
		||||
  :general
 | 
			
		||||
  (general-def 'normal eglot-mode-map
 | 
			
		||||
    "ga" 'eglot-code-actions
 | 
			
		||||
    "gi" 'eglot-find-implementation
 | 
			
		||||
    "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
 | 
			
		||||
 | 
			
		||||
#+begin_src emacs-lisp
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										20
									
								
								init.el
									
										
									
									
									
								
							
							
						
						
									
										20
									
								
								init.el
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -41,9 +41,9 @@
 | 
			
		|||
 | 
			
		||||
(defun chris/set-transparency ()
 | 
			
		||||
  "Set the frame to be transparent but not the text"
 | 
			
		||||
  (set-frame-parameter (selected-frame) 'alpha-background 95)
 | 
			
		||||
  (add-to-list 'default-frame-alist '(alpha-background . 95))
 | 
			
		||||
  (add-to-list 'initial-frame-alist '(alpha-background . 95)))
 | 
			
		||||
  (set-frame-parameter (selected-frame) 'alpha-background 85)
 | 
			
		||||
  (add-to-list 'default-frame-alist '(alpha-background . 85))
 | 
			
		||||
  (add-to-list 'initial-frame-alist '(alpha-background . 85)))
 | 
			
		||||
 | 
			
		||||
(if (daemonp) (add-hook 'after-make-frame-functions
 | 
			
		||||
          (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-src-preserve-indentation t
 | 
			
		||||
        org-src-window-setup 'other-window
 | 
			
		||||
        org-edit-src-turn-on-auto-save t
 | 
			
		||||
        org-export-with-broken-links t
 | 
			
		||||
        org-agenda-current-time-string "⭠ now ────────────────"
 | 
			
		||||
        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-to-list 'eglot-server-programs '(wgsl-mode "wgsl-analyzer"))
 | 
			
		||||
  (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")))
 | 
			
		||||
(add-to-list 'eglot-server-programs
 | 
			
		||||
  (add-to-list 'eglot-server-programs
 | 
			
		||||
               '(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")))
 | 
			
		||||
 | 
			
		||||
  :general
 | 
			
		||||
  (general-def 'normal eglot-mode-map
 | 
			
		||||
    "ga" 'eglot-code-actions
 | 
			
		||||
    "gi" 'eglot-find-implementation
 | 
			
		||||
    "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
 | 
			
		||||
  :general
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue