From ed90d27fbf35a65c69cacf149f79f411f49a27b8 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 11 May 2024 11:00:27 -0700
Subject: beep boop

---
 init-el.org | 92 ++++++++++++++++++++++++++++++++++---------------------------
 1 file changed, 51 insertions(+), 41 deletions(-)

diff --git a/init-el.org b/init-el.org
index b9ad35f..3d4047a 100644
--- a/init-el.org
+++ b/init-el.org
@@ -61,8 +61,8 @@ to disable it.
 
 (when (and (fboundp 'native-comp-available-p)
            (native-comp-available-p))
-  (setq package-native-compile nil
-        native-comp-always-compile nil))
+  (setq package-native-compile t
+        native-comp-always-compile t))
 
 #+end_src
 
@@ -182,7 +182,8 @@ I'm using melpa and elpa package archives.
 (setf my-major-mode-list
       '((org-mode my-org-command)
         (pdf-view-mode my-pdf-view-mod-command)
-	(lisp-mode my-lisp-mode-command)))
+	(lisp-mode my-lisp-mode-command)
+        (sly-mrepl-mode my-lisp-mode-command)))
 
 
 (defun my-major-mode-command ()
@@ -555,31 +556,6 @@ again, if it  was whent he org edit src buffer was opened."
 
 ** Themes
 
-*** Installed Themes
-
-#+name: ui-themes-installed
-#+begin_src elisp :results none
-
-(package-install 'autothemer) ;; for custom themes
-
-(setq my-installed-themes
-      '(pastelmac-theme
-        poet-theme
-        flexoki-themes
-        soft-morning-theme
-        goose-theme
-        naga-theme
-        grandshell-theme
-        nimbus-theme
-        morgentau-theme))
-
-
-(dolist (package my-installed-themes)
-  (when (not (package-installed-p package)) 
-    (package-install package)))
-
-#+end_src
-
 *** Theme Switcher 
 
 #+name: ui-themes-theme-switcher 
@@ -669,6 +645,33 @@ LOAD-THEME"
 
 #+end_src
 
+*** Installed Themes
+
+#+name: ui-themes-installed
+#+begin_src elisp :results none
+
+(package-install 'autothemer) ;; for custom themes
+
+(setq my-installed-themes
+      '(
+        poet-theme
+        silkworm-theme
+        flexoki-themes
+        naga-theme
+        grandshell-theme
+        faff-theme
+        morgentau-theme
+        base16-theme
+        ))
+
+(dolist (package my-installed-themes)
+  (when (not (package-installed-p package)) 
+    (package-install package)))
+
+#+end_src
+
+
+
 *** Choice Themes
 
 #+name: ui-themes-choice-themes
@@ -677,15 +680,16 @@ LOAD-THEME"
 (setq *coding-themes*
       '(
         ;; light
-        pastelmac
         flexoki-themes-light
+        silkworm
+        faff
         ;; medium
-        goose
-        morgentau
-        nimbus
+        base16-catppuccin-frappe
+        base16-silk-dark
         ;; dark
-        grandshell
+        base16-chalk
         flexoki-themes-dark
+        grandshell
         naga))
 
 
@@ -1296,26 +1300,28 @@ association one shell with each perspective layout
 #+begin_src elisp :noweb no-export
 (def-my-command my-lisp-mode-command
   '((?d "[d]ocumentation" sly-describe-symbol)
-    ;(?\t "[TAB] inspect" how do I inspect??? )
+    (?h "[h]yperspec" hyperspec-lookup)
     (?S "[S]ync package" sly-mrepl-sync)
     (?\t "TAB inpsect" sly-inspect)))
 
 
 ;; (defvar +symbols-in-cl+ 977)
 
-;; (defun slime-random-words-of-encouragement ()
+;; (defun sky-random-words-of-encouragement ()
 ;;   "Return a string of hackerish encouragement."
-;;   (slime-eval
+;;   (sly-eval
 ;;    `(swank:documentation-symbol
 ;;      (cl:loop :for name :being :each :symbol :in (cl:find-package "CL")
 ;;               :collect (cl:symbol-name name) :into names
 ;;               :finally (cl:return (cl:elt names ,(random +symbols-in-cl+)))))))
 
-;; (defun slime-fasl-directory ()
-;;   (let ((dir (format "%s/.cache/slime-fasls/" (getenv "HOME"))))
-;;     (make-directory dir t)
-;;     dir))
+(defun slime-fasl-directory ()
+  (let ((dir (format "%s/.cache/slime-fasls/" (getenv "HOME"))))
+    (make-directory dir t)
+    dir))
 
+(setq sly-compile-file-options
+      (list :fasl-directory (slime-fasl-directory)))
 
 ;; (setq slime-compile-file-options
 ;;       (list :fasl-directory (slime-fasl-directory)))
@@ -1350,7 +1356,6 @@ association one shell with each perspective layout
             'space-for-delimiter-after-@-p
             'space-for-delimiter-after-p-p))
 
-
 (add-hook 'lisp-mode-hook 'linum-mode)
 
 (setq +common-lisp-package-template+
@@ -1369,6 +1374,11 @@ association one shell with each perspective layout
 (with-eval-after-load 'lisp-mode
   (progn
     (setq common-lisp-hyperspec-root "file:///home/colin/HyperSpec/")))
+
+
+(setq lisp-lambda-list-keyword-parameter-alignment t
+      lisp-lambda-list-keyword-alignment t)
+(put 'make-instance 'common-lisp-indent-function 1)
 #+end_src
 
 *** Coalton
-- 
cgit v1.2.3