rss feeds; themes; company + slime is fucked

1 files changed, 39 insertions, 16 deletions

diff --git a/init-el.org b/init-el.org
index 737072b..c085b22 100644
--- a/init-el.org
+++ b/init-el.org
@@ -660,7 +660,7 @@ e.g. here's one for org capture
 (package-install 'autothemer) ;; for custom themes
 
 (setq my-installed-themes
-      '(yoshi-theme leuven-theme zweilight-theme))
+      '(yoshi-theme leuven-theme zweilight-theme cybercafe-theme seoul256-theme))
 
 
 (dolist (package my-installed-themes)
@@ -764,7 +764,7 @@ LOAD-THEME"
 #+begin_src elisp :noweb no-export :results none
 
 (setq *coding-themes*
-      (append '(leuven yoshi leuven-dark zweilight)))
+      (append '(leuven seoul256 yoshi leuven-dark zweilight cybercafe)))
 
 (setq *writing-themes*
       (themes-in-package 'poet))
@@ -1034,23 +1034,27 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like
 
 (setq elfeed-feeds
       '(
+        ("https://www.n16f.net/blog/index.xml"                                     blog         programming  emacs  lisp)
+        ("https://deprogrammaticaipsum.com/rss"                                    programming  blog)
+        ("https://www.okdoomer.io/latest/rss"                                      blog         rant         sus)
+        ("https://abuseofnotation.github.io/feed"                                  blog         philosophy   programming)
         ("https://whhone.com/index.xml"                                            blog         emacs)
         ("https://feedly.com/i/subscription/feed/https://www.cold-takes.com/rss/"  blog         )
         ("https://www.construction-physics.com/feed"                               science      blog)
-        ("https://economicsfromthetopdown.com/feed"                                blog         economics  science)
+        ("https://economicsfromthetopdown.com/feed"                                blog         economics    science)
         ("https://newsletter.aworkinglibrary.com/rss"                              culture      technology)
-        ("https://harpers.org/feed"                                                culture      politics   news)
+        ("https://harpers.org/feed"                                                culture      politics     news)
         ("https://solar.lowtechmagazine.com/posts/index.xml"                       technology)
-        ("https://lambdaland.org/index.xml"                                        blog         lisp       emacs)
+        ("https://lambdaland.org/index.xml"                                        blog         lisp         emacs)
         ("https://warandpeas.com/feed"                                             comics)
         ("http://planet.lisp.org/rss20.xml"                                        lisp         blog)
-        ("http://feeds.feedburner.com/FutilityCloset"                              art          culture)
+        ("https://feeds.feedburner.com:443/dailykos/zyrjlhwgaef"                   politics     news)
         ("http://feeds2.feedburner.com/NoTechMagazine"                             technology)
         ("http://www.thingsmagazine.net/feed"                                      art          culture)
         ("https://commonstransition.org/feed/"                                     commons      p2p)
-        ("http://blog.p2pfoundation.net/feed/"                                     p2p          activism   research)
+        ("http://blog.p2pfoundation.net/feed/"                                     p2p          activism     research)
         ("https://www.noemamag.com/feed"                                           culture      technology)
-        ("https://theconvivialsociety.substack.com/feed"                           technology   culture    philosophy)
+        ("https://theconvivialsociety.substack.com/feed"                           technology   culture      philosophy)
         ("https://daily.jstor.org/feed"                                            news)
         ("https://www.merriam-webster.com/wotd/feed/rss2"                          wordoday)
         ("https://www.viruscomix.com/rss.xml"                                      comics)
@@ -1059,10 +1063,10 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like
         ("https://existentialcomics.com/rss.xml"                                   comics)
         ("http://feeds.feedburner.com/OddityCentral"                               weird)
         ("https://journal.stuffwithstuff.com/rss.xml"                              programming  blog)
-        ("https://rss.slashdot.org/Slashdot/slashdotMain"                          tech         news)))    
+        ("https://rss.slashdot.org/Slashdot/slashdotMain"                          tech         news)))      
 
 
-(setq-default elfeed-search-filter "@1-weeks-ago +unread")
+(setq-default elfeed-search-filter "@2-weeks-ago +unread")
 
 #+end_src
 
@@ -1350,8 +1354,9 @@ code in emacs org blocks.
 
 #+name: company
 #+begin_src elisp :results none
-(package-install 'company)
-(add-hook 'after-init-hook 'global-company-mode)
+;(package-install 'company)
+;(add-hook 'after-init-hook 'global-company-mode)
+
 
 ;; (setq company-frontends
 ;;       '(company-pseudo-tooltip-unless-just-one-frontend
@@ -1398,7 +1403,8 @@ association one shell with each perspective layout
 
 (package-install 'paredit)
 (package-install 'slime)
-(package-install 'slime-company)
+;(package-install 'slime-company)
+
 
 
 
@@ -1498,10 +1504,12 @@ from debian contrib
 #+name: common-lisp-editing-config
 #+begin_src elisp :results none
 
-(slime-setup '(slime-fancy slime-company slime-fuzzy slime-asdf ))
+;; (slime-setup '(slime-fancy ;slime-company
+;;                slime-fuzzy slime-asdf
+;;                ))
 
-(setq slime-company-completion 'fuzzy
-      slime-company-after-completion 'slime-company-just-one-space)
+;; (setq slime-company-completion 'fuzzy
+;;       slime-company-after-completion 'slime-company-just-one-space)
 
 (autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
 (add-hook 'emacs-lisp-mode-hook       #'enable-paredit-mode)
@@ -1530,6 +1538,12 @@ from debian contrib
 
 (add-hook 'lisp-mode-hook 'linum-mode)
 
+;; The default imenu matcher is defined in the variable
+;; lisp-imenu-generic-expression as part of lisp-mode.el.  I extend
+;; that definition here to treat anything that begins with ="def"= as
+;; a match.
+
+
 
 (setq +common-lisp-package-template+
       "
@@ -1569,6 +1583,15 @@ from debian contrib
 #+RESULTS: slime-tweaks
 : slime-random-words-of-encouragement
 
+*** LISP-MODE tweaks
+
+
+#+name: lisp-mode-tweaks
+#+begin_src elisp :noweb no-export
+
+#+end_src
+
+
 
 *** Coalton