diff --git a/.config/emacs/init.org b/.config/emacs/init.org
index 68586ed..868a4b9 100644
--- a/.config/emacs/init.org
+++ b/.config/emacs/init.org
@@ -844,8 +844,8 @@ Fill region is great, except when you don't need it...
 (define-key global-map (kbd "C-=")  #'er/expand-region)
 (define-key global-map (kbd "C-+")  #'er/contract-region)
 #+end_src
-*** Boon
-#+begin_src emacs-lisp :tangle no
+*** COMMENT Boon
+#+begin_src emacs-lisp
 (defun joe/psp-scroll-down-half-page ()
   (interactive)
   (pixel-scroll-precision-scroll-down-page (/ (window-pixel-height) 2)))
@@ -2349,20 +2349,12 @@ newly opened buffer belongs to an LSP session and if it does, start lsp
 ** AI
 #+begin_src emacs-lisp
 (setq gptel-default-mode #'org-mode)
-(setq
- gptel-model 'claude-sonnet-4-20250514
- gptel-api-key (with-temp-buffer
-                                  (insert-file-contents (expand-file-name "gptel-gpt-key" user-emacs-directory))
-                                  (buffer-string)))
-;; (add-hook 'gptel-post-response-functions #'font-lock-ensure)
-;; (gptel-make-openai "ChatGPT"
-;;                  :stream t :key (with-temp-buffer
-;;                                   (insert-file-contents (expand-file-name "gptel-gpt-key" user-emacs-directory))
-;;                                   (buffer-string)))
-(gptel-make-anthropic "Claude"
-                 :stream t :key (with-temp-buffer
-                                  (insert-file-contents (expand-file-name "gptel-key" user-emacs-directory))
-                                  (buffer-string)))
+(setq gptel-api-key (with-temp-buffer
+                      (insert-file-contents (expand-file-name "gptel-gpt-key" user-emacs-directory))
+                      (buffer-string)))
+(gptel-make-anthropic "Claude" :stream t :key (with-temp-buffer
+                                                (insert-file-contents (expand-file-name "gptel-key" user-emacs-directory))
+                                                (buffer-string)))
 
 (setq gptel-prompt-prefix-alist '((markdown-mode . "### ")
                                   (org-mode . "* ")
@@ -2382,17 +2374,10 @@ newly opened buffer belongs to an LSP session and if it does, start lsp
 gptel-context-remove-all without confirmation
 
 #+begin_src emacs-lisp
-(defun joe/gptel-context-remove-all (&optional verbose)
+(defun joe/gptel-context-remove-all ()
   "Remove all gptel context. No confirmation."
-  (interactive (list t))
-  (if (null gptel-context--alist)
-      (message "No gptel context sources to remove.")
-    (cl-loop
-     for (source . ovs) in gptel-context--alist
-     if (bufferp source) do           ;Buffers and buffer regions
-     (mapc #'gptel-context-remove ovs)
-     else do (gptel-context-remove source) ;files or other types
-     finally do (setq gptel-context--alist nil))))
+  (interactive)
+  (gptel-context-remove-all nil))
 #+end_src
 
 gptel-ask command so I can ask LLMs about whatever I have in my region. Might be