some font twiddling, themes

1 files changed, 17 insertions, 17 deletions

diff --git a/init-el.org b/init-el.org
index 87efd81..cce3742 100644
--- a/init-el.org
+++ b/init-el.org
@@ -39,6 +39,8 @@
     (insert-file-contents f)
     (buffer-string)))
 
+(defun middle-of-list (xs)
+  (elt xs (/ (length xs) 2)))
 
 
 #+end_src
@@ -414,7 +416,7 @@ e.g. here's one for org capture
  javascript:location.href='org-protocol://capture:/w/'+encodeURIComponent(location.href)+'/'+encodeURIComponent(document.title)+'/'+encodeURIComponent(window.getSelection())
 #+end_src
 
-** Bells and Whistles
+** COMMENT Bells and Whistles
 
 #+name: org-bells-and-wistles
 #+begin_src elisp :results none
@@ -433,8 +435,8 @@ e.g. here's one for org capture
 #+name: ui-fonts
 #+begin_src elisp :noweb no-export
 (add-to-list 'default-frame-alist
-             '(font . "Comic Mono-12")
-             ;'(font . "Victor Mono-10")
+             '(font . "Comic Mono-18")
+             ;'(font . "Victor Mono-10") ;; uhh
              )
 
 
@@ -641,7 +643,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 cybercafe-theme seoul256-theme))
+      '(yoshi-theme leuven-theme seoul256-theme warm-night-theme nimbus-theme doom-themes))
 
 
 (dolist (package my-installed-themes)
@@ -745,7 +747,8 @@ LOAD-THEME"
 #+begin_src elisp :noweb no-export :results none
 
 (setq *coding-themes*
-      (append '(leuven seoul256 yoshi leuven-dark zweilight cybercafe)))
+      (append '(leuven seoul256 yoshi nimbus warm-night)
+              (themes-in-package 'doom)))
 
 (setq *writing-themes*
       (themes-in-package 'poet))
@@ -754,7 +757,7 @@ LOAD-THEME"
 (when (car custom-enabled-themes)
   (disable-theme (car custom-enabled-themes)))
 
-(load-theme (first *current-theme-set*) t)
+(load-theme (middle-of-list *current-theme-set*) t)
 
 
 
@@ -1029,7 +1032,6 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like
         ("https://lambdaland.org/index.xml"                                        blog         lisp         emacs)
         ("https://warandpeas.com/feed"                                             comics)
         ("http://planet.lisp.org/rss20.xml"                                        lisp         blog)
-        ("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)
@@ -1043,8 +1045,7 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like
         ("https://www.science.org/blogs/pipeline/feed"                             science      news)
         ("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://journal.stuffwithstuff.com/rss.xml"                              programming  blog)))      
 
 
 (setq-default elfeed-search-filter "@2-weeks-ago +unread")
@@ -1335,9 +1336,8 @@ 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)
 
 
 
@@ -1386,7 +1386,7 @@ association one shell with each perspective layout
 
 (package-install 'paredit)
 (package-install 'slime)
-;(package-install 'slime-company)
+(package-install 'slime-company)
 
 
 
@@ -1488,12 +1488,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)
 
 (package-install 'ac-slime)
 (require 'ac-slime)