Emacs: AI, eat instead of vterm, unfill region, auto mu4e, speedup eglot

.config/emacs/init.org

@@ -204,7 +204,8 @@ Finish up
    consult-eglot
    all-the-icons-completion
    helpful
-   vterm
+   ;; vterm
+   eat
    ;; Enhancements
    olivetti
    doom-modeline
@@ -215,11 +216,11 @@ Finish up
    mono-complete
    beframe
    harpoon
+   format-all
    ;; company
    ;; lsp-mode
    ;; lsp-ui
    ;; flycheck
-   ;; dap-mode
    ;; Org
    org-bullets
    org-kanban
@@ -252,7 +253,6 @@ Finish up
         '((dotenv :url "https://github.com/pkulev/dotenv.el")
           (indent-bars :url "https://github.com/jdtsmith/indent-bars")
           (doom-themes :url "https://github.com/JosephFerano/doom-themes")
-          (pico8-mode :url "https://github.com/Kaali/pico8-mode")
           (org-timeblock :url "https://github.com/ichernyshovvv/org-timeblock")
           (dape :url "https://github.com/svaante/dape")
           (app-launcher :url "https://github.com/SebastienWae/app-launcher")))
@@ -441,7 +441,7 @@ Setup other stuff
 
 (defun joe/disable-line-numbers () (display-line-numbers-mode 0))
 
-(dolist (mode '( dashboard-mode-hook org-mode-hook term-mode-hook eww-mode-hook
+(dolist (mode '( dashboard-mode-hook org-mode-hook term-mode-hook eww-mode-hook eat-mode-hook
                  vterm-mode-hook dirvish-directory-view-mode-hook eshell-mode-hook
                  dired-mode-hook shell-mode-hook magit-mode-hook compilation-mode-hook
                  mu4e-headers-mode-hook mu4e-main-mode-hook))
@@ -557,6 +557,7 @@ Emacs is an great operating system, if only it had a good text editor...
     (comment-line 1)
     (move-to-column col)))
 
+(global-set-key (kbd "C-w") #'backward-kill-word)
 (global-set-key (kbd "C-c d") 'duplicate-line)
 (global-set-key (kbd "C-c C-;") 'joe/duplicate-line-comment)
 
@@ -646,6 +647,20 @@ Simple function more quickly align text
           (lambda ()
             (define-key csv-mode-map (kbd "C-c C-a") 'csv-align-mode)))
 #+end_src
+
+Fill region is great, except when you don't need it...
+#+begin_src emacs-lisp
+(defun unfill-region (beg end)
+  "Unfill the region, joining text paragraphs into a single
+    logical line.  This is useful, e.g., for use with
+    `visual-line-mode'."
+  (interactive "*r")
+  (let ((fill-column (point-max)))
+    (fill-region beg end)))
+
+;; Handy key definition
+(define-key global-map (kbd "C-M-q") #'unfill-region)
+#+end_src
 *** COMMENT Hydra
 #+begin_src emacs-lisp
 (require 'hydra)
@@ -819,7 +834,7 @@ Simple function more quickly align text
 (require 'evil)
   (evil-mode t)
 
-  (evil-global-set-key 'insert (kbd "C-w") #'evil-delete-backward-word)
+  ;; (evil-global-set-key 'insert (kbd "C-w") #'evil-delete-backward-word)
 
   ;; vv to expand selection to line
   (evil-global-set-key 'visual
@@ -872,8 +887,8 @@ Simple function more quickly align text
     (kbd "SPC br") 'joe/revert-buffer-no-confirm
     (kbd "SPC gg") 'magit-status
     (kbd "SPC gc") 'magit-clone
-    (kbd "SPC ss") 'joe/vterm-here
+    (kbd "SPC ss") 'eat
-    (kbd "SPC sv") 'vterm
+    (kbd "SPC sv") 'eat-other-window
     (kbd "SPC Ba") 'joe/bookmark-set-and-save
     (kbd "SPC Bd") 'bookmark-delete
     (kbd "SPC mr") 'joe/compile-run
@@ -995,7 +1010,6 @@ Harpoon lets you quickly switch between bookmarked buffers
 (global-set-key (kbd "C-c h 8") 'harpoon-go-to-8)
 (global-set-key (kbd "C-c h 9") 'harpoon-go-to-9)
 #+end_src
-
 ** Windows
 *** Window Management
 
@@ -1503,6 +1517,8 @@ These are functions to load a project specific file given the conventions I use.
 (define-key project-prefix-map "n" #'joe/project-open-project-notes)
 (define-key project-prefix-map "r" #'joe/project-open-project-readme)
 (define-key project-prefix-map "l" #'joe/project-open-project-license)
+(define-key project-prefix-map "s" #'eat-project)
+(define-key project-prefix-map "S" #'eat-project-other-window)
 ;; Remape this
 (define-key project-prefix-map "C-r" #'project-query-replace-regexp)
 #+end_src
@@ -1836,16 +1852,15 @@ odd looking ~'(t .t)~ is for specifying a default for all other actions.
 (require 'sendmail)
 (setq send-mail-function 'smtpmail-send-it)
 
-(setq message-kill-buffer-on-exit nil)
+(setq mu4e-update-interval 30)
-
+(setq mu4e-hide-index-messages t)
-(setq mu4e-update-interval 10)
-(setq mu4e-hide-index-messages 't)
 (setq mu4e-completing-read-function 'completing-read)
-(setq mu4e-sent-messages-behavior 'sent)
 (setq mu4e-context-policy 'pick-first)
 (setq mu4e-compose-context-policy 'ask)
 (setq mu4e-view-auto-mark-as-read nil)
 
+;; (setq mu4e-sent-messages-behavior 'sent)
+
 (setq message-kill-buffer-on-exit t)
 
 (require 'age)
@@ -1863,6 +1878,8 @@ odd looking ~'(t .t)~ is for specifying a default for all other actions.
 
 (setq auth-sources '("~/.local/credentials/authinfo.age"))
 
+(setq mu4e-change-filenames-when-moving t)
+
 (age-file-enable)
 (age-encryption-mode +1)
 (setq mu4e-bookmarks nil)
@@ -1963,6 +1980,7 @@ be kept here commented out in case we want to try it again.
 (global-set-key (kbd "C-h C") #'helpful-command)
 #+end_src
 ** Terminals/Shells
+*** COMMENT vterm
 #+begin_src emacs-lisp
 (require 'vterm)
 (setq vterm-shell "/bin/fish")
@@ -2047,6 +2065,20 @@ the right frame, I'm going to use the frame's name to close and remove the hook
       (add-hook 'delete-frame-functions #'joe/kill-vterm-scratch)
       (add-hook 'kill-buffer-hook #'joe/kill-frame))))
 #+end_src
+*** eat
+#+begin_src emacs-lisp
+(defun joe/eat-mode-hook ()
+  (setq-local global-hl-line-mode nil)
+  (setq buffer-face-mode-face '(:family "Fira Code Nerd Font"))
+  (buffer-face-mode))
+(add-hook 'eat-mode-hook #'joe/eat-mode-hook)
+
+(evil-define-key 'insert eat-semi-char-mode-map (kbd "C-f") #'eat-self-input)
+(evil-set-initial-state 'eat-mode 'normal)
+(setq eat-kill-buffer-on-exit 't)
+(eat-eshell-mode)
+(eat-eshell-visual-command-mode)
+#+end_src
 ** Undo Fu
 #+begin_src emacs-lisp
 (require 'undo-fu)
@@ -2142,6 +2174,14 @@ the right frame, I'm going to use the frame's name to close and remove the hook
 ;; (setq flymake-start-on-save-buffer nil)
 ;; (setq flymake-start-on-flymake-mode nil)
 
+#+end_src
+
+These help speed eglot up apparently [[https://www.reddit.com/r/emacs/comments/1b25904/is_there_anything_i_can_do_to_make_eglots/][Reddit Link]]
+
+#+begin_src emacs-lisp
+(fset #'jsonrpc--log-event #'ignore)
+(setq eglot-events-buffer-size 0)
+
 #+end_src
 *** COMMENT LSP
 #+begin_src emacs-lisp
@@ -2265,6 +2305,65 @@ the right frame, I'm going to use the frame's name to close and remove the hook
 (add-to-list 'auto-mode-alist '("\\.vert\\'" . shader-mode))
 (add-to-list 'auto-mode-alist '("\\.frag\\'" . shader-mode))
 #+end_src
+** AI
+#+begin_src emacs-lisp
+(setq gptel-default-mode #'org-mode)
+(setq gptel-model "gpt-4")
+(add-hook 'gptel-post-response-functions #'font-lock-ensure)
+
+(defun gptel--save-state ()
+  "Write the gptel state to the buffer.
+
+This saves chat metadata when writing the buffer to disk.  To
+restore a chat session, turn on `gptel-mode' after opening the
+file."
+  (pcase major-mode
+    ('org-mode
+     (org-with-wide-buffer
+      (goto-char (point-min))
+      (when (org-at-heading-p)
+        (org-open-line 1))
+      (org-entry-put (point-min) "GPTEL_MODEL" gptel-model)
+      (org-entry-put (point-min) "GPTEL_BACKEND" (gptel-backend-name gptel-backend))
+      (unless (equal (default-value 'gptel-temperature) gptel-temperature)
+        (org-entry-put (point-min) "GPTEL_TEMPERATURE"
+                       (number-to-string gptel-temperature)))
+      (unless (string= (default-value 'gptel--system-message)
+                       gptel--system-message)
+        (org-entry-put (point-min) "GPTEL_SYSTEM"
+                       gptel--system-message))
+      (when gptel-max-tokens
+        (org-entry-put
+         (point-min) "GPTEL_MAX_TOKENS" gptel-max-tokens))
+      ;; Save response boundaries
+      (letrec ((write-bounds
+                (lambda (attempts)
+                  (let* ((bounds (gptel--get-bounds))
+                         (offset (caar bounds))
+                         (offset-marker (set-marker (make-marker) offset)))
+                    (org-entry-put (point-min) "GPTEL_BOUNDS"
+                                   (prin1-to-string (gptel--get-bounds)))
+                    (when (and (not (= (marker-position offset-marker) offset))
+                               (> attempts 0))
+                      (funcall write-bounds (1- attempts)))))))
+        (funcall write-bounds 6))))
+    (_ (save-excursion
+         (save-restriction
+           (add-file-local-variable 'gptel-model gptel-model)
+           (add-file-local-variable 'gptel--backend-name
+                                    (gptel-backend-name gptel-backend))
+           (unless (equal (default-value 'gptel-temperature) gptel-temperature)
+             (add-file-local-variable 'gptel-temperature gptel-temperature))
+           (unless (string= (default-value 'gptel--system-message)
+                            gptel--system-message)
+             (add-file-local-variable 'gptel--system-message gptel--system-message))
+           (when gptel-max-tokens
+             (add-file-local-variable 'gptel-max-tokens gptel-max-tokens))
+           (add-file-local-variable 'gptel--bounds (gptel--get-bounds)))))))
+
+;; together.ai key
+;; faef0e42e0d1be4e41127aeccd419f520e3abb5e75d84f769512f9b3ed5822da
+#+end_src
 ** Programming Languages
 *** Python
 #+begin_src emacs-lisp
@@ -2600,8 +2699,6 @@ process the clocks in that buffer as before. We find open clocks in the current
 buffer's associated file using =(buffer-file-name buffer)=. It's assumed that all
 Org mode buffers have associated files.
 #+end_src
-
-
 *** Visuals
 #+begin_src emacs-lisp
 
@@ -2697,12 +2794,16 @@ Org mode buffers have associated files.
 
 (defun joe/capture-daily ()
   (concat
-   "* %^t\n"
+   "** %^t\n"
-   "** Schedule\n"
+   "*** Schedule\n"
-   "** Resources\n"
+   "*** Resources\n"
-   "** Notes"))
+   "*** Notes"))
 (setq org-capture-templates
       `(
+        ("e" "Emacs Improvement" entry
+         (file+headline "Emacs.org" "Quick Wins")
+         "** TODO ")
+
         ("l" "Leetcode Solution" plain
          (function ,(lambda () (find-file (joe/capture-leetcode-newfile))))
          #'joe/capture-leetcode-template)
@@ -2716,6 +2817,7 @@ Org mode buffers have associated files.
          "** %^{Book Title}%^{AUTHOR}p" :prepend t)))
 
 (define-key global-map (kbd "C-c c") #'org-capture)
+
 #+end_src
 *** org-babel
 #+begin_src emacs-lisp