1.1--- a/.emacs.d/ellis.el	Thu Jun 06 17:31:31 2024 -0400
     1.2+++ b/.emacs.d/ellis.el	Sat Jun 15 19:53:29 2024 -0400
     1.3@@ -35,7 +35,7 @@
     1.4         user-lab-directory (join-paths user-home-directory "lab")
     1.5         company-source-directory (join-paths user-home-directory "comp"))
     1.6 
     1.7-(unless (display-graphic-p) (setq default-theme 'wheatgrass))
     1.8+;; (unless (display-graphic-p) (setq default-theme 'wheatgrass))
     1.9 
    1.10 (when (linux-p) (setq dired-listing-switches "-alsh"))
    1.11 
    1.12@@ -190,8 +190,8 @@
    1.13   :init
    1.14   (defun yt-dl-it (url)
    1.15     "Downloads the URL in an async shell"
    1.16-    (let ((default-directory "~/media/yt"))
    1.17-      (async-shell-command (format "youtube-dl %s" url))))
    1.18+    (let ((default-directory user-stash-directory))
    1.19+      (async-shell-command (format "yt-dlp %s" url))))
    1.20 
    1.21   (defun elfeed-youtube-dl (&optional use-generic-p)
    1.22     "Youtube-DL link"
    1.23@@ -208,6 +208,25 @@
    1.24   (keymap-set user-map "e f" #'elfeed)
    1.25   (keymap-set user-map "e F" #'elfeed-update))
    1.26 
    1.27+(use-package elfeed-tube
    1.28+  :ensure t
    1.29+  :after elfeed
    1.30+  :config
    1.31+  ;; (elfeed-tube-setup)
    1.32+  (elfeed-tube-add-feeds '("detroit techno" "boiler room dj" "brad mehldau" "chris 'daddy' dave"))
    1.33+  :bind (:map elfeed-show-mode-map
    1.34+         ("F" . elfeed-tube-fetch)
    1.35+         ([remap save-buffer] . elfeed-tube-save)
    1.36+         :map elfeed-search-mode-map
    1.37+         ("F" . elfeed-tube-fetch)
    1.38+         ([remap save-buffer] . elfeed-tube-save)))
    1.39+
    1.40+(use-package elfeed-tube-mpv
    1.41+  :ensure t
    1.42+  :bind (:map elfeed-show-mode-map
    1.43+              ("C-c C-f" . elfeed-tube-mpv-follow-mode)
    1.44+              ("C-c C-w" . elfeed-tube-mpv-where)))
    1.45+
    1.46 (use-package org-mime :ensure t)
    1.47 
    1.48 (use-package sh-script
    1.49@@ -308,7 +327,7 @@
    1.50             (let ((desc (match-string-no-properties 5)))
    1.51               (save-match-data
    1.52                 (cl-incf wc (length (remove "" (org-split-string
    1.53-                                             desc "\\W")))))))
    1.54+                                                desc "\\W")))))))
    1.55           (goto-char (match-end 0)))
    1.56          ((looking-at org-any-link-re)
    1.57           (goto-char (match-end 0)))
    1.58@@ -495,13 +514,13 @@
    1.59         (org-remove-empty-drawer-at "PROPERTIES" (match-beginning 0))))))
    1.60 
    1.61 (defun check-for-clock-out-note ()
    1.62-      (interactive)
    1.63-      (save-excursion
    1.64-        (org-back-to-heading)
    1.65-        (let ((tags (org-get-tags)))
    1.66-          (and tags (message "tags: %s " tags)
    1.67-               (when (member "clocknote" tags)
    1.68-                 (org-add-note))))))
    1.69+  (interactive)
    1.70+  (save-excursion
    1.71+    (org-back-to-heading)
    1.72+    (let ((tags (org-get-tags)))
    1.73+      (and tags (message "tags: %s " tags)
    1.74+           (when (member "clocknote" tags)
    1.75+             (org-add-note))))))
    1.76 
    1.77 (add-hook 'org-clock-out-hook 'check-for-clock-out-note)
    1.78 
    1.79@@ -553,18 +572,21 @@
    1.80 
    1.81 ;;; Skel Config
    1.82 (use-package skel
    1.83-  :defer t
    1.84+  :requires skel
    1.85   :load-path user-emacs-lib-directory
    1.86+  :custom
    1.87+  tempo-interactive t  
    1.88+  auto-insert 'no-modify
    1.89+  auto-insert-query nil)
    1.90+
    1.91+(use-package skt
    1.92+  :requires (skel skt)
    1.93+  :load-path user-emacs-lib-directory
    1.94+  :custom
    1.95+  skt-enable-tempo-elements t
    1.96+  skt-delete-duplicate-marks t
    1.97   :config
    1.98-  (setq
    1.99-   tempo-interactive t
   1.100-   auto-insert 'no-modify
   1.101-   auto-insert-query nil
   1.102-   skt-enable-tempo-elements t
   1.103-   skt-delete-duplicate-marks t)
   1.104-
   1.105   (defvar skt-default-version "0.1.0")
   1.106-
   1.107   (keymap-set skt-minor-mode-map "b" #'tempo-backward-mark)
   1.108   (keymap-set skt-minor-mode-map "f" #'tempo-forward-mark)
   1.109   (keymap-set skt-minor-mode-map "SPC" #'tempo-complete-tag)
   1.110@@ -606,6 +628,9 @@
   1.111     "+ version :: " skt-default-version n
   1.112     ":end:" n>)
   1.113 
   1.114+  (skt-define-template clean.theme (:mode org-mode :tag t)
   1.115+    "#+setupfile: " (join-paths company-cdn-url "org/clean.theme"))
   1.116+
   1.117   ;; TODO 2024-06-04: 
   1.118   ;; (skt-define-template defsystem (:mode lisp-mode :tag t :abbrev "defsystem"))
   1.119   ;; (skt-define-template defpackage (:mode lisp-mode :tag t :abbrev "defpackage"))
   1.120@@ -622,8 +647,8 @@
   1.121 
   1.122   ;; skeletons
   1.123   (skt-define-skeleton head (:abbrev "head" :mode lisp-mode)
   1.124-      "description: "
   1.125-      ";;; " (skt-buffer-path 'file-name-nondirectory) " --- " str \n \n ";; " _ \n \n ";;; Code:" \n >)
   1.126+    "description: "
   1.127+    ";;; " (skt-buffer-path 'file-name-nondirectory) " --- " str \n \n ";; " _ \n \n ";;; Code:" \n >)
   1.128 
   1.129   (skt-define-skeleton head (:abbrev "head" :mode skel-mode)
   1.130     "description: "
   1.131@@ -656,7 +681,7 @@
   1.132     > "(defpkg :" v1 \n
   1.133     > ":use (:std :log))" \n \n
   1.134     > "(in-package :" v1 ")" \n >)
   1.135-    
   1.136+  
   1.137   (skt-define-skeleton crate-head (:abbrev "crate-head" :mode conf-toml-mode)
   1.138     "ignored"
   1.139     "### " (skt-buffer-path 'file-name-nondirectory) " --- " 

     2.1--- a/.sbclrc	Thu Jun 06 17:31:31 2024 -0400
     2.2+++ b/.sbclrc	Sat Jun 15 19:53:29 2024 -0400
     2.3@@ -1,6 +1,10 @@
     2.4 ;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
     2.5+(in-package :cl-user)
     2.6 (require :asdf)
     2.7-(in-package :cl-user)
     2.8+(require :sb-concurrency)
     2.9+(require :sb-cltl2)
    2.10+(require :sb-rotate-byte)
    2.11+(require :sb-sprof)
    2.12 (setq *debug-beginner-help-p* nil
    2.13       ;; *print-case* :downcase
    2.14       *print-level* 32