fiddling

1 files changed, 43 insertions, 42 deletions

diff --git a/init-el.org b/init-el.org
index c7a8133..74036a4 100644
--- a/init-el.org
+++ b/init-el.org
@@ -57,9 +57,16 @@ So, to use this file for the very first time you must
 ;;;; DO NOT EDIT: This file has been generated by org-babel-tangle
 ;;;; from a source file called init-el.org.
 
+
 (setq custom-file (concat user-emacs-directory "custom.el"))
 (load custom-file 'noerror)
 
+;;; utilities
+(defun read-file-into-string (f)
+  (with-temp-buffer
+    (insert-file-contents f)
+    (buffer-string)))
+
 <<packages-setup-config>>
 <<my-leader-keys-config>>
 <<org-mode-config>>
@@ -641,7 +648,7 @@ So, to use this file for the very first time you must
 ;(load "~/.emacs.d/shanty-themes.el")
 
 (setq my-installed-themes
-      '(gandalf-theme
+      '(gruvbox-theme
         modus-themes
         shanty-themes))
 
@@ -824,7 +831,7 @@ So, to use this file for the very first time you must
 #+name: communications-config
 #+begin_src elisp :noweb no-export :results none
 <<erc-config>>
-<<cicadas-bepasty>>
+;;<<cicadas-bepasty>>
 ;;<<cicadas-scpaste>>
 ;; <<mu4e-config>>
 <<mastodon-config>>
@@ -878,10 +885,7 @@ Then put the following into yoru config.
 #+name: cicadas-bepasty
 #+begin_src elisp :noweb no-export :results none
 
-(defun read-file-into-string (f)
-  (with-temp-buffer
-    (insert-file-contents f)
-    (buffer-string)))
+
 
 
 
@@ -1172,7 +1176,7 @@ mu index
 <<ccrypt>>
 <<toggler>>
 <<deft>>
-;; <<writeroom>>
+<<writeroom>>
 <<eww-config>>
 <<markdown-editing>>
 <<writefreely-config>>
@@ -1275,24 +1279,19 @@ mu index
 (setq elfeed-feeds
       '(
         ("https://tinyklaus.substack.com/feed" ufology oddball frontpage)
-        ("https://thereader.mitpress.mit.edu/when-cities-treated-cars-as-dangerous-intruders/feed"
-         frontpage culture philosophy science)
+        ("https://thereader.mitpress.mit.edu//feed" magazine frontpage culture philosophy science)
         ("https://blog.p-cos.net/categories/lisp/feed.xml" lisp frontpage)
         ("https://anres.space/feed.xml" blot tech)
         ("http://feeds.feedburner.com/PoorlyDrawnLines" comic frontpage)
         ("https://compilerspotlight.substack.com/feed" frontpage plt programming)
-        ("https://waxy.org/feed"  tech entertainment)
         ("https://pointersgonewild.com/feed/" frontpage blog programming)
-        ("https://hackaday.com/blog/feed/" )
-        ("https://kevinlynagh.com/feed.xml" programming frontpage)
+        ("https://kevinlynagh.com/feed.xml" programming blog)
         ("https://blog.einval.com/index.rss" blog debian linux)
-        ("https://justinehsmith.substack.com/feed" blog newsletter frontpage)
-        ("https://rogersbacon.substack.com/feed" blog newsletter frontpage)
-        ("https://www.residentcontrarian.com/feed" blog newsletter frontpage)
-        ("https://learnui.design/blog/feed.xml" design blog ui webdev)
+        ("https://justinehsmith.substack.com/feed" blog newsletter )
+        ("https://rogersbacon.substack.com/feed" blog newsletter )
+        ("https://www.residentcontrarian.com/feed" blog newsletter)
         ("https://theconvivialsociety.substack.com/feed"
          culture media blog newsletter frontpage technology)
-        ("https://mr.gy/blog/index.xml" blog frontpage)
         ("https://knowablemagazine.org/rss" science blog culture)
         ("https://stop.zona-m.net/feed.xml" blog linux yro floss)
         ("https://blog.veitheller.de/feed.rss" blog)
@@ -1341,7 +1340,7 @@ mu index
 	("https://codeascraft.com/atom" dev web)
 	("https://daily.jstor.org/feed/" science culture)
 	("https://feeds.feedburner.com/GamasutraIndependentNews" games news)
-	("https://feeds.feedburner.com/HypocriteReader" hypocritereader magazine culture)
+	("https://feeds.feedburner.com/HypocriteReader" hypocritereader magazine frontpage culture)
 	("https://feeds.feedburner.com/codinghorror" dev web)
 	("https://feeds.feedburner.com/ieeespectrum/automaton" technology)
 	("https://feeds2.feedburner.com/NoTechMagazine" magazine notech anarchism diy culture)
@@ -1497,26 +1496,26 @@ mu index
 #+begin_src elisp :results none
 (package-install 'writeroom-mode)
 
-(setq my-writeroom-theme 'poet-dark)
-(setq my-writeroom-cached-theme nil)
+;; (setq my-writeroom-theme 'poet-dark)
+;; (setq my-writeroom-cached-theme nil)
 
-(add-hook 'writeroom-mode-enable-hook
-          (lambda ()
-            (when my-writeroom-theme
-                   (setf my-writeroom-cached-theme
-                         (car custom-enabled-themes))
-                   (disable-theme (car custom-enabled-themes))
-                   (load-theme my-writeroom-theme))
-            (variable-pitch-mode)))
+;; (add-hook 'writeroom-mode-enable-hook
+;;           (lambda ()
+;;             (when my-writeroom-theme
+;;                    (setf my-writeroom-cached-theme
+;;                          (car custom-enabled-themes))
+;;                    (disable-theme (car custom-enabled-themes))
+;;                    (load-theme my-writeroom-theme))
+;;             (variable-pitch-mode)))
 
 
-(add-hook 'writeroom-mode-disable-hook
-          (lambda ()
-            (variable-pitch-mode 0)
-            (disable-theme (car custom-enabled-themes))
-            (when my-writeroom-cached-theme
-              (enable-theme my-writeroom-cached-theme))
-            (setf my-writeroom-cached-theme nil)))
+;; (add-hook 'writeroom-mode-disable-hook
+;;           (lambda ()
+;;             (variable-pitch-mode 0)
+;;             (disable-theme (car custom-enabled-themes))
+;;             (when my-writeroom-cached-theme
+;;               (enable-theme my-writeroom-cached-theme))
+;;             (setf my-writeroom-cached-theme nil)))
 
 
 #+end_src
@@ -1790,14 +1789,15 @@ association one shell with each [[*Perspectives Leader Key Menu][perspective aka
 #+begin_src elisp :results none
 
 (defvar my-current-slime-name "sbcl")
-(setq inferior-lisp-program "~/lisp/sbcl/current/bin/sbcl")
+(setq sbcl-command "sbcl --dynamic-space-size 4096")
+(setq inferior-lisp-program sbcl-command)
 
 (defmacro start-slime-with (str name)
   `(lambda ()
-     (interactive)
-     (setq inferior-lisp-program ,str)
-     (setq my-current-slime-name ,name)
-     (my-switch-to-slime)))
+    (interactive)
+    (setq inferior-lisp-program ,str)
+    (setq my-current-slime-name ,name)
+    (my-switch-to-slime)))
 
 (defun slime-in-this-layout-p (name)
   (cl-find-if (lambda (buffer)
@@ -1813,9 +1813,10 @@ association one shell with each [[*Perspectives Leader Key Menu][perspective aka
 
 (def-my-command my-lisp-switch-command
   `((?' "['] repl" my-switch-to-slime)
-    (?s "[s]bcl" ,(start-slime-with "~/lisp/sbcl/current/bin/sbcl" "sbcl"))
+    (?s "[s]bcl" ,(start-slime-with "sbcl" sbcl-command))
     (?e "[e]cl" ,(start-slime-with "ecl" "ecl"))
-    (?c "[c]cl" ,(start-slime-with "~/lisp/ccl/lx86cl64" "ccl"))))
+    ;(?c "[c]cl" ,(start-slime-with "~/lisp/ccl/lx86cl64" "ccl"))
+    ))