adding a lot of changes
This commit is contained in:
		
							parent
							
								
									5c47bd8a72
								
							
						
					
					
						commit
						be61aa14fb
					
				
					 2 changed files with 53 additions and 22 deletions
				
			
		
							
								
								
									
										40
									
								
								README.org
									
										
									
									
									
								
							
							
						
						
									
										40
									
								
								README.org
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -387,6 +387,13 @@ Let's make parens and other delimiters easier to tell apart by making nested one
 | 
			
		|||
        mini-echo-buffer-status-style 'both
 | 
			
		||||
        mini-echo-update-interval 0.2)
 | 
			
		||||
 | 
			
		||||
  (set-face-foreground 'mini-echo-blue "#57c7ff")
 | 
			
		||||
  (set-face-foreground 'mini-echo-red "#ff5c57")
 | 
			
		||||
  (set-face-foreground 'mini-echo-magenta "#ff6ac1")
 | 
			
		||||
  (set-face-foreground 'mini-echo-green "#5af78e")
 | 
			
		||||
  (set-face-foreground 'mini-echo-gray "#848688")
 | 
			
		||||
  (set-face-foreground 'mini-echo-yellow "#f3f99d")
 | 
			
		||||
  (set-face-foreground 'mini-echo-cyan "#9aedfe")
 | 
			
		||||
  
 | 
			
		||||
  (defun chris/mini-echo-minibuffer-width-lessp ()
 | 
			
		||||
    "Return non-nil if current minibuffer window width less than 120."
 | 
			
		||||
| 
						 | 
				
			
			@ -827,6 +834,7 @@ Let's start by creating a self contained function of what I'd like started on ev
 | 
			
		|||
  (visual-fill-column-mode +1)
 | 
			
		||||
  (display-line-numbers-mode -1)
 | 
			
		||||
  (variable-pitch-mode +1)
 | 
			
		||||
  (jinx-mode +1)
 | 
			
		||||
  (setq visual-fill-column-width 100
 | 
			
		||||
        visual-fill-column-center-text t)
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -2155,7 +2163,7 @@ GPTEL is a package that uses chatGPT to get some text generation in org-mode
 | 
			
		|||
  (setq gptel-directives '((default
 | 
			
		||||
  . "You are a large language model living in Emacs and a helpful assistant. Respond concisely.")
 | 
			
		||||
 (programming
 | 
			
		||||
  . "You are a large language model and a careful programmer. Provide code and only code as output without any additional text, prompt or note.")
 | 
			
		||||
  . "You are a large language model and a careful programmer. Provide code and thorough explanation to what you are doing. Please be thorough and teach me what you are trying to get across.")
 | 
			
		||||
 (writing
 | 
			
		||||
  . "You are a large language model and a writing assistant. Respond concisely.")
 | 
			
		||||
 (chat
 | 
			
		||||
| 
						 | 
				
			
			@ -2687,21 +2695,35 @@ Consult has a lot of nice functions like Ivy's Counsel functions (enhanced searc
 | 
			
		|||
  
 | 
			
		||||
  (setq xref-show-xrefs-function 'consult-xref)
 | 
			
		||||
 | 
			
		||||
  
 | 
			
		||||
  :general
 | 
			
		||||
  (chris/leader-keys
 | 
			
		||||
    :states 'normal
 | 
			
		||||
    :keymaps 'override
 | 
			
		||||
    "si" 'consult-imenu
 | 
			
		||||
    "so" 'consult-org-heading
 | 
			
		||||
    "sf" 'consult-find
 | 
			
		||||
    "sf" 'consult-fd
 | 
			
		||||
    "sm" 'bookmark-jump
 | 
			
		||||
    "sf" 'consult-flymake
 | 
			
		||||
    "sF" 'consult-flymake
 | 
			
		||||
    "sx" 'xref-show-xrefs
 | 
			
		||||
    "sy" 'consult-yank-from-kill-ring
 | 
			
		||||
    "sb" 'consult-eglot-symbols))
 | 
			
		||||
#+end_src
 | 
			
		||||
 | 
			
		||||
****  Consult Omni
 | 
			
		||||
This a omni search for finding well, everything...
 | 
			
		||||
#+begin_src emacs-lisp
 | 
			
		||||
(use-package consult-omni
 | 
			
		||||
  :load-path "/home/chris/.emacs.d/consult-omni/"
 | 
			
		||||
  :load-path "/home/chris/.emacs.d/consult-omni/sources/"
 | 
			
		||||
  :after consult
 | 
			
		||||
  :config
 | 
			
		||||
  (require 'consult-omni-sources)
 | 
			
		||||
  (require 'consult-omni-embark)
 | 
			
		||||
  (setq consult-omni-sources-modules-to-load '(consult-omni-brave-autosuggest consult-omni-wikipedia consult-omni-apps))
 | 
			
		||||
  (consult-omni-sources-load-modules))
 | 
			
		||||
#+end_src
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
*** MARGINALIA
 | 
			
		||||
 | 
			
		||||
Marginalia makes for some great decoration to our minibuffer completion items. Works great with Selectrum which does not have this out of the box.
 | 
			
		||||
| 
						 | 
				
			
			@ -3558,7 +3580,7 @@ I'd like to start learning and using rust if I can.
 | 
			
		|||
  (setq rustic-format-on-save t
 | 
			
		||||
        rustic-lsp-client 'eglot
 | 
			
		||||
        rustic-clippy-arguments "-- -W clippy::pedantic -W clippy::perf -W clippy::nursery -W clippy::unwrap_used"
 | 
			
		||||
        rustic-rustfmt-args '("--edition" "2021")
 | 
			
		||||
        rustic-rustfmt-args ""
 | 
			
		||||
        rustic-test-arguments "-- --nocapture")
 | 
			
		||||
  (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
 | 
			
		||||
  (add-to-list 'compilation-error-regexp-alist rustic-compilation-error)
 | 
			
		||||
| 
						 | 
				
			
			@ -3705,7 +3727,6 @@ Let's give eglot a try.
 | 
			
		|||
  (rust-mode . eglot-ensure)
 | 
			
		||||
  (rustic-mode . eglot-ensure)
 | 
			
		||||
  (rust-ts-mode . eglot-ensure)
 | 
			
		||||
  (text-mode . eglot-ensure)
 | 
			
		||||
  :config
 | 
			
		||||
  
 | 
			
		||||
  (defun chris/eglot-capf ()
 | 
			
		||||
| 
						 | 
				
			
			@ -3716,15 +3737,13 @@ Let's give eglot a try.
 | 
			
		|||
                       #'cape-file))))
 | 
			
		||||
 | 
			
		||||
  (add-hook 'eglot-managed-mode-hook #'chris/eglot-capf)
 | 
			
		||||
  (add-to-list 'eglot-server-programs '(org-mode . ("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
 | 
			
		||||
    "ge" 'eglot))
 | 
			
		||||
    "gR" 'xref-find-references))
 | 
			
		||||
#+end_src
 | 
			
		||||
 | 
			
		||||
#+begin_src emacs-lisp
 | 
			
		||||
| 
						 | 
				
			
			@ -4280,7 +4299,7 @@ Ledger mode
 | 
			
		|||
 | 
			
		||||
  (setq mu4e-bookmarks
 | 
			
		||||
        '((:name "Unread messages"
 | 
			
		||||
                 :query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/outlook/Junk\" AND NOT maildir:\"/office/Junk Email\"0 AND NOT maildir:\"/outlook/Deleted\" AND NOT maildir:\"/office/Deleted Items\" AND NOT maildir:\"/office/Archive\" AND NOT maildir:\"/office/INBOX/Website Forms\" AND NOT maildir:\"/outlook/Archive\" AND NOT maildir:\"/cochrun/Archive\" AND NOT maildir:\"/cochrun/Junk\" AND NOT flag:list"
 | 
			
		||||
                 :query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/outlook/Junk\" AND NOT maildir:\"/office/Junk Email\"0 AND NOT maildir:\"/outlook/Deleted\" AND NOT maildir:\"/office/Deleted Items\" AND NOT maildir:\"/office/Archive\" AND NOT maildir:\"/office/INBOX/Website Forms\" AND NOT maildir:\"/outlook/Archive\" AND NOT maildir:\"/cochrun/Archive\" AND NOT maildir:\"/cochrun/Junk\""
 | 
			
		||||
                 :key 117)
 | 
			
		||||
          (:name "Today's messages"
 | 
			
		||||
                 :query "date:today..now"
 | 
			
		||||
| 
						 | 
				
			
			@ -4526,7 +4545,6 @@ Let's add our own eshell prompt. and set the password cache to a significantly h
 | 
			
		|||
 | 
			
		||||
  (setq eshell-history-size 1024)
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
  ;;; Extra execution information
 | 
			
		||||
  (defvar chris/eshell-status-p t
 | 
			
		||||
    "If non-nil, display status before prompt.")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										35
									
								
								init.el
									
										
									
									
									
								
							
							
						
						
									
										35
									
								
								init.el
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -181,6 +181,13 @@
 | 
			
		|||
        mini-echo-buffer-status-style 'both
 | 
			
		||||
        mini-echo-update-interval 0.2)
 | 
			
		||||
 | 
			
		||||
  (set-face-foreground 'mini-echo-blue "#57c7ff")
 | 
			
		||||
  (set-face-foreground 'mini-echo-red "#ff5c57")
 | 
			
		||||
  (set-face-foreground 'mini-echo-magenta "#ff6ac1")
 | 
			
		||||
  (set-face-foreground 'mini-echo-green "#5af78e")
 | 
			
		||||
  (set-face-foreground 'mini-echo-gray "#848688")
 | 
			
		||||
  (set-face-foreground 'mini-echo-yellow "#f3f99d")
 | 
			
		||||
  (set-face-foreground 'mini-echo-cyan "#9aedfe")
 | 
			
		||||
  
 | 
			
		||||
  (defun chris/mini-echo-minibuffer-width-lessp ()
 | 
			
		||||
    "Return non-nil if current minibuffer window width less than 120."
 | 
			
		||||
| 
						 | 
				
			
			@ -541,6 +548,7 @@
 | 
			
		|||
  (visual-fill-column-mode +1)
 | 
			
		||||
  (display-line-numbers-mode -1)
 | 
			
		||||
  (variable-pitch-mode +1)
 | 
			
		||||
  (jinx-mode +1)
 | 
			
		||||
  (setq visual-fill-column-width 100
 | 
			
		||||
        visual-fill-column-center-text t)
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -1645,7 +1653,7 @@ Optional BACKEND must be `re-reveal' or a backend derived from it."
 | 
			
		|||
  (setq gptel-directives '((default
 | 
			
		||||
  . "You are a large language model living in Emacs and a helpful assistant. Respond concisely.")
 | 
			
		||||
 (programming
 | 
			
		||||
  . "You are a large language model and a careful programmer. Provide code and only code as output without any additional text, prompt or note.")
 | 
			
		||||
  . "You are a large language model and a careful programmer. Provide code and thorough explanation to what you are doing. Please be thorough and teach me what you are trying to get across.")
 | 
			
		||||
 (writing
 | 
			
		||||
  . "You are a large language model and a writing assistant. Respond concisely.")
 | 
			
		||||
 (chat
 | 
			
		||||
| 
						 | 
				
			
			@ -1897,20 +1905,29 @@ Describe everything that follows in the present tense, in response to what I typ
 | 
			
		|||
  
 | 
			
		||||
  (setq xref-show-xrefs-function 'consult-xref)
 | 
			
		||||
 | 
			
		||||
  
 | 
			
		||||
  :general
 | 
			
		||||
  (chris/leader-keys
 | 
			
		||||
    :states 'normal
 | 
			
		||||
    :keymaps 'override
 | 
			
		||||
    "si" 'consult-imenu
 | 
			
		||||
    "so" 'consult-org-heading
 | 
			
		||||
    "sf" 'consult-find
 | 
			
		||||
    "sf" 'consult-fd
 | 
			
		||||
    "sm" 'bookmark-jump
 | 
			
		||||
    "sf" 'consult-flymake
 | 
			
		||||
    "sF" 'consult-flymake
 | 
			
		||||
    "sx" 'xref-show-xrefs
 | 
			
		||||
    "sy" 'consult-yank-from-kill-ring
 | 
			
		||||
    "sb" 'consult-eglot-symbols))
 | 
			
		||||
 | 
			
		||||
(use-package consult-omni
 | 
			
		||||
  :load-path "/home/chris/.emacs.d/consult-omni/"
 | 
			
		||||
  :load-path "/home/chris/.emacs.d/consult-omni/sources/"
 | 
			
		||||
  :after consult
 | 
			
		||||
  :config
 | 
			
		||||
  (require 'consult-omni-sources)
 | 
			
		||||
  (require 'consult-omni-embark)
 | 
			
		||||
  (setq consult-omni-sources-modules-to-load '(consult-omni-brave-autosuggest consult-omni-wikipedia consult-omni-apps))
 | 
			
		||||
  (consult-omni-sources-load-modules))
 | 
			
		||||
 | 
			
		||||
(use-package marginalia
 | 
			
		||||
  :bind (:map minibuffer-local-map
 | 
			
		||||
              ("C-M-a" . marginalia-cycle)
 | 
			
		||||
| 
						 | 
				
			
			@ -2600,7 +2617,7 @@ targets."
 | 
			
		|||
  (setq rustic-format-on-save t
 | 
			
		||||
        rustic-lsp-client 'eglot
 | 
			
		||||
        rustic-clippy-arguments "-- -W clippy::pedantic -W clippy::perf -W clippy::nursery -W clippy::unwrap_used"
 | 
			
		||||
        rustic-rustfmt-args '("--edition" "2021")
 | 
			
		||||
        rustic-rustfmt-args ""
 | 
			
		||||
        rustic-test-arguments "-- --nocapture")
 | 
			
		||||
  (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
 | 
			
		||||
  (add-to-list 'compilation-error-regexp-alist rustic-compilation-error)
 | 
			
		||||
| 
						 | 
				
			
			@ -2682,7 +2699,6 @@ targets."
 | 
			
		|||
  (rust-mode . eglot-ensure)
 | 
			
		||||
  (rustic-mode . eglot-ensure)
 | 
			
		||||
  (rust-ts-mode . eglot-ensure)
 | 
			
		||||
  (text-mode . eglot-ensure)
 | 
			
		||||
  :config
 | 
			
		||||
  
 | 
			
		||||
  (defun chris/eglot-capf ()
 | 
			
		||||
| 
						 | 
				
			
			@ -2693,15 +2709,13 @@ targets."
 | 
			
		|||
                       #'cape-file))))
 | 
			
		||||
 | 
			
		||||
  (add-hook 'eglot-managed-mode-hook #'chris/eglot-capf)
 | 
			
		||||
  (add-to-list 'eglot-server-programs '(org-mode . ("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
 | 
			
		||||
    "ge" 'eglot))
 | 
			
		||||
    "gR" 'xref-find-references))
 | 
			
		||||
 | 
			
		||||
(use-package consult-eglot
 | 
			
		||||
  :general
 | 
			
		||||
| 
						 | 
				
			
			@ -3065,7 +3079,7 @@ targets."
 | 
			
		|||
 | 
			
		||||
  (setq mu4e-bookmarks
 | 
			
		||||
        '((:name "Unread messages"
 | 
			
		||||
                 :query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/outlook/Junk\" AND NOT maildir:\"/office/Junk Email\"0 AND NOT maildir:\"/outlook/Deleted\" AND NOT maildir:\"/office/Deleted Items\" AND NOT maildir:\"/office/Archive\" AND NOT maildir:\"/office/INBOX/Website Forms\" AND NOT maildir:\"/outlook/Archive\" AND NOT maildir:\"/cochrun/Archive\" AND NOT maildir:\"/cochrun/Junk\" AND NOT flag:list"
 | 
			
		||||
                 :query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/outlook/Junk\" AND NOT maildir:\"/office/Junk Email\"0 AND NOT maildir:\"/outlook/Deleted\" AND NOT maildir:\"/office/Deleted Items\" AND NOT maildir:\"/office/Archive\" AND NOT maildir:\"/office/INBOX/Website Forms\" AND NOT maildir:\"/outlook/Archive\" AND NOT maildir:\"/cochrun/Archive\" AND NOT maildir:\"/cochrun/Junk\""
 | 
			
		||||
                 :key 117)
 | 
			
		||||
          (:name "Today's messages"
 | 
			
		||||
                 :query "date:today..now"
 | 
			
		||||
| 
						 | 
				
			
			@ -3253,7 +3267,6 @@ targets."
 | 
			
		|||
 | 
			
		||||
  (setq eshell-history-size 1024)
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
  ;;; Extra execution information
 | 
			
		||||
  (defvar chris/eshell-status-p t
 | 
			
		||||
    "If non-nil, display status before prompt.")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue