hum

1 files changed, 59 insertions, 76 deletions

diff --git a/init-el.org b/init-el.org
index 0e381cf..119d39a 100644
--- a/init-el.org
+++ b/init-el.org
@@ -156,11 +156,13 @@ New in emacs 28, native compilation can be enabled:
     (?c "[c]apture" org-capture)
     (?a "[a]applications" my-utilities-command)
     (?t "[t]hemes" my-theme-cycler)
+    (?T "toggle [T]heme set" toggle-theme-set)
     (?l "[l]ayouts" my-perspective-command)
     (?w "[w]indows" my-window-comand)
     (?p "[p]rojectile" my-projectile-command)
     (?m "[m]ajor mode" my-major-mode-command)
     (?f "[f]ind file" find-file)
+    (?d "[d]irvish" dirvish)
     (?s "[s]lime selection" my-lisp-switch-command)
     (?h "[h]elp" helpful-at-point)))
 
@@ -203,7 +205,7 @@ New in emacs 28, native compilation can be enabled:
     (?a "[a]genda" org-agenda)
     (?b "[b]ooks" calibredb)
     (?d "[d]eft" toggle-deft)
-    ;(?f "el[f]eed" elfeed)
+    (?f "el[f]eed" elfeed)
     (?j "[j]ournal" toggle-journal)
     (?s "[s]ecrets" toggle-secrets) 
     (?p "[p]omodoro" pomidor)
@@ -597,9 +599,9 @@ New in emacs 28, native compilation can be enabled:
 
 (setq my-installed-themes
       '(modus-themes
-        hippo-themes
-        pastelmac-theme
-        naquadah-theme))
+        sweet-theme
+        poet-theme
+        solarized-theme))
 
 
 (dolist (package my-installed-themes)
@@ -613,18 +615,31 @@ New in emacs 28, native compilation can be enabled:
 #+name: ui-themes-theme-switcher 
 #+begin_src elisp :results none
 
-(setq *my-themes*
-      '(hippo-themes-light
-        pastelmac
-        hippo-themes-paper
-        naquadah
-        hippo-themes-night
+(setq *coding-themes*
+      '(modus-operandi-tritanopia
+        solarized-selenized-dark 
+        sweet
         modus-vivendi-tritanopia))
 
+(setq *writing-themes*
+      '(poet-monochrome
+        poet
+        poet-dark-monochrome
+        poet-dark))
+
+(setq *current-theme-set* *coding-themes*)
+
+(defun toggle-theme-set ()
+  (interactive)
+  (if (equalp *current-theme-set* *coding-themes*)
+      (setq *current-theme-set* *writing-themes*)
+    (setq *current-theme-set* *coding-themes*))
+  (my-theme-command-next))
+
 (when (car custom-enabled-themes)
   (disable-theme (car custom-enabled-themes)))
 
-(load-theme (first *my-themes*) t)
+(load-theme (first *current-theme-set*) t)
 
 (defun my-theme-string ()
   (if (car custom-enabled-themes)
@@ -648,17 +663,17 @@ New in emacs 28, native compilation can be enabled:
 (defun my-theme-command-next ()
   (interactive)
   (let* ((active-theme (car custom-enabled-themes))
-         (next-theme (cadr (cl-member active-theme *my-themes*))))
+         (next-theme (cadr (cl-member active-theme *current-theme-set*))))
     (when active-theme (disable-theme active-theme))
     (if next-theme (load-theme next-theme t)
-      (load-theme (car *my-themes*) t))
+      (load-theme (car *current-theme-set*) t))
     (setq cursor-type 'box)
     (setq-default cursor-type 'box)))
 
 (defun my-theme-command-previous ()
   (interactive)
   (let* ((active-theme (car custom-enabled-themes))
-         (themes (reverse *my-themes*))
+         (themes (reverse *current-theme-set*))
          (next-theme (cadr (cl-member active-theme themes))))
     (when active-theme (disable-theme active-theme))
     (if next-theme (load-theme next-theme t)
@@ -913,11 +928,11 @@ stand up and move around.
 #+name: calibre-config
 #+begin_src elisp :results none
 
-  (package-install 'calibredb)
+(package-install 'calibredb)
 
-  (require 'calibredb)
-  (setq calibredb-root-dir "~/Books")
-  (setq calibredb-db-dir (expand-file-name "metadata.db" calibredb-root-dir))
+(require 'calibredb)
+(setq calibredb-root-dir "~/Calibre")
+(setq calibredb-db-dir (expand-file-name "metadata.db" calibredb-root-dir))
 
 
 #+end_src
@@ -1005,58 +1020,14 @@ stand up and move around.
 (require 'elfeed)
 
 (setq elfeed-feeds
-      '(
-        ("https://frame.work/blog.rss" hardware frontpage)
-        ("https://tomasp.net/rss.xml" programming blog)
-        ("https://alarmingdevelopment.org/?feed=rss2" programming blog)
-        ("https://programmingmadecomplicated.wordpress.com/feed" programming blog)
-        ("http://blog.fogus.me/feed/" lisp blog frontpage)
-        ("https://thereader.mitpress.mit.edu//feed" magazine frontpage culture philosophy science)
-        ("https://blog.p-cos.net/categories/lisp/feed.xml" lisp frontpage)
-        ("https://justinehsmith.substack.com/feed" blog newsletter )
-        ("https://theconvivialsociety.substack.com/feed"
-         culture media blog newsletter frontpage technology)
-        ("https://existentialcomics.com/rss.xml" philosophy comic frontpage)
-        ("https://ngnghm.github.io/feeds/all.rss.xml" lisp programming coolness frontpage)
-        ("https://computer.rip/rss.xml"  technology)
-        ("http://waywardmonkeys.org/feeds/all.atom.xml" lisp frontpage)
-        ("https://www.sicpers.info/rss" frontpage)
-        ("https://www.stephendiehl.com/feed.rss" frontpage)
-        ("https://www.raphkoster.com/feed/" frontpage gamedev)
-        ("https://babbagefiles.xyz/posts/index.xml" frontpage lisp)
-        ("http://malisper.me/category/postgres/feed/" frontpage lisp)
-        ("https://hyperthings.garden/rss/all-posts.xml" frontpage)
-	("https://daily.jstor.org/feed/" science culture)
-	("https://feeds.feedburner.com/HypocriteReader" hypocritereader magazine frontpage culture)
-	("https://feeds2.feedburner.com/NoTechMagazine" magazine notech anarchism diy culture)
-        ("https://feeds2.feedburner.com/typepad/krisdedecker/lowtechmagazineenglish"
-         magazine diy culture)
-	("https://harpers.org/feed/" harpers news culture frontpage)
-	("https://publicdomainreview.org/feed/" culture frontpage )
-	("https://smbc-comics.com/rss.php" comic frontpage)
-	("https://www.viruscomix.com/rss.xml" comic frontpage)
-        ("http://retro-style.software-by-mabe.com/frontpage-atom-feed" lisp frontpage)
-        ("http://rss.slashdot.org/Slashdot/slashdotMain" news technology)
-        ("https://common-lisp.net/project/ecl/rss.xml" lisp)
-        ("https://datagubbe.se/atom.xml" blog frontpage)
-        ("https://planet.lisp.org/rss20.xml" lisp)
-        ("https://pluralistic.net/feed/" yro technology frontpage)
-        ("https://www.eff.org/rss" yro)
-        ("https://www.fsf.org/static/fsforg/rss/news.xml" yro foss floss)
-        ("http://ruricolist.frontpagespot.com/feeds/posts/default" frontpage lisp writing)
-        ("https://alhassy.github.io/rss.xml" lisp frontpage)
-        ("https://ambrevar.xyz/atom.xml" lisp frontpage)
-        ("https://capitalaspower.com/frontpage/rss" frontpage activism)
-        ("https://twobithistory.org/feed.xml" frontpage culture)
-        ("https://lambdaland.org/index.xml" frontpage dev)
-        ("https://anarc.at/blog/index.rss"  yro )
-        ("https://www.sapiens.org/feed/" culture)
-        ("https://psyche.co/feed" culture mind science philosphy magazine)
-        ("https://themarkup.org/feeds/rss.xml"  yro)
-        ("https://xkcd.com/rss.xml" comic frontpage)))
-
-
-(setq-default elfeed-search-filter "@2-weeks-ago +unread +frontpage")
+      '(("https://harpers.org/feed" culture politics news)
+        ("https://publicdomainreview.org/feed" history art ideas culture)
+        ("https://www.viruscomix.com/rss.xml" comics)
+        ("https://smbc-comics.com/rss.php" comics)
+        ("https://existentialcomics.com/rss.xml" comics)))
+
+
+(setq-default elfeed-search-filter "@1-weeks-ago +unread")
 
 #+end_src
 
@@ -1157,15 +1128,16 @@ stand up and move around.
 (show-paren-mode 1)
 
 <<literate-programming>>
-(message "LITERATE PROGRAMMING" )
+
 <<pair-programming>>
-(message "PAIR PROGRAMMING" )
+
 <<software-dev-essentials>>
-(message "SOFTWARE DEV ESSENTIALS" )
+
 <<shell-config>>
-(message "SHELL CONFIG")
+
 <<common-lisp-config>>
-(message "LISP COFNIG" )
+
+<<haxe-config>>
 
 #+end_src
 ** Literate Programming
@@ -1368,7 +1340,7 @@ from debian contrib
 
 (with-eval-after-load 'lisp-mode
   (progn
-    (setq common-lisp-hyperspec-root "file:///usr/share/doc/hyperspec/")))
+    (setq common-lisp-hyperspec-root "file:///home/colin/HyperSpec/")))
 
 #+end_src
 
@@ -1469,6 +1441,17 @@ from debian contrib
 #+RESULTS: coalton
 : insert-coalton-defpackage
 
+** Haxe 
+
+#+name: haxe-config
+#+begin_src elisp :noweb no-export
+(package-install 'haxe-mode)
+#+end_src
+
+#+RESULTS: haxe-config
+: Package ‘haxe-mode’ installed.
+
+
 
 * Tools
 #+name: tools-config