From 50aaa353c7db0a8090794e8b62579c48a36aa6bf Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 3 Jul 2023 15:45:56 -0700 Subject: hum --- init-el.org | 135 ++++++++++++++++++++++++++---------------------------------- 1 file 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) <> -(message "LITERATE PROGRAMMING" ) + <> -(message "PAIR PROGRAMMING" ) + <> -(message "SOFTWARE DEV ESSENTIALS" ) + <> -(message "SHELL CONFIG") + <> -(message "LISP COFNIG" ) + +<> #+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 -- cgit v1.2.3