some fun changes

2 files changed, 58 insertions, 5 deletions

diff --git a/config.org b/config.org
index c0aa2ce..0025b33 100644
--- a/config.org
+++ b/config.org
@@ -492,6 +492,11 @@ without sensible and well-defined org-mode defaults
 
   (use-package ox-rss
     :demand t)
+
+  (use-package org-fragtog
+    :demand t
+    :config
+    (add-hook 'org-mode-hook 'org-fragtog-mode))
 #+END_SRC
 ** Org-agenda
 #+begin_src emacs-lisp
@@ -606,9 +611,9 @@ Based on the setup described [[https://writepermission.com/org-blogging-rss-feed
 
     [[https://git.ykonai.net][Some projects]]
 
-    [[./blogs.html][Blog list]]\n\n"
+    [[./internet.html][Internet catalogue]]\n\n"
               (org-list-to-org list)))
-  
+
   (setq yk/rss-alist (list "blog-rss"
                              :base-directory "~/org/website"
                              :base-extension "org"
@@ -631,6 +636,7 @@ Based on the setup described [[https://writepermission.com/org-blogging-rss-feed
                              :sitemap-function 'rw/format-rss-feed
                              :sitemap-format-entry 'rw/format-rss-feed-entry))
 
+  (setq org-html-postamble-format '(("en" "<p class=\"date\">Last updated: %T</p>")))
   (setq org-publish-project-alist
         `(("er"
              :base-directory "~/org/fun/er"
@@ -644,6 +650,11 @@ Based on the setup described [[https://writepermission.com/org-blogging-rss-feed
 
              :html-postamble nil
              :html-head "<link rel=\"stylesheet\" href=\"../style.css\">")
+          ("img"
+           :base-extension "png\\|jpg"
+           :base-directory "~/org/fun/er"
+           :publishing-directory ,(concat http-dir "er/")
+           :publishing-function org-publish-attachment)
             ("css"
              :base-directory "~/org/website"
              :base-extension "css"
@@ -654,7 +665,8 @@ Based on the setup described [[https://writepermission.com/org-blogging-rss-feed
              :base-extension "org"
              :publishing-directory ,http-dir
 
-             :html-postamble nil
+             :html-postamble t
+
              :html-head "<link rel=\"stylesheet\" href=\"style.css\">")
             ("blog"
              :base-directory "~/org/website/"
@@ -673,7 +685,7 @@ Based on the setup described [[https://writepermission.com/org-blogging-rss-feed
              :html-postamble nil
              :html-head "<link rel=\"stylesheet\" href=\"style.css\">")
             ,yk/rss-alist
-            ("website" :components ("blog" "css" "const" "er" "blog-rss"))))
+            ("website" :components ("blog" "css" "const" "er" "img" "blog-rss"))))
 #+end_src
 ** Org-babel
 Literate programming settings.  
@@ -1146,7 +1158,29 @@ theme seems very pretty on the other hand.
     :config
     (setq-default TeX-master nil)
     (setq TeX-parse-self t)
-    (setq TeX-auto-save t))
+    (setq TeX-auto-save t)
+    (setq TeX-engine 'luatex))
+#+end_src
+** Package =calibredb=
+*** Code
+#+begin_src emacs-lisp
+  (defvar calibre-mountpoint (expand-file-name "~/archive/library"))
+
+  (defun mount-calibre-library ()
+    (if (file-exists-p (expand-file-name "users.sqlite" calibre-mountpoint))
+        t
+      (call-process "sshfs" nil nil nil "calibre@ykonai.net:/srv/calibre" calibre-mountpoint)))
+
+  (add-hook 'kill-emacs-hook
+            (lambda () (if (file-exists-p (expand-file-name "users.sqlite" calibre-mountpoint))
+                      (call-process "umount" nil nil nil calibre-mountpoint))))
+
+  (use-package calibredb
+    :config
+    (setq calibredb-root-dir "/home/ak/archive/library/library")
+    (setq calibredb-db-dir (expand-file-name "metadata.db" calibredb-root-dir))
+    (setq sql-sqlite-program "/gnu/store/xmzx5mzv4863yw9kmr2ykndgp37p8if0-sqlite-3.36.0/bin/sqlite3")
+    (advice-add 'mount-calibre-library :before 'calibredb)) 
 #+end_src
 ** Package =elfeed=
 *** Description
@@ -1171,11 +1205,23 @@ since it is more contained inside of Emacs.
       ("https://sizeof.cat/index.xml" blog tech)
       ("http://michael.orlitzky.com/articles/rss.xml" blog tech)
       ("https://planet.emacslife.com/atom.xml" tech)
+      ("https://terrytao.wordpress.com/feed/" blog math)
+      ("https://divisbyzero.com/blog-division-by-zero/feed/" blog math)
+      ("https://www.logicmatters.net/blog/feed/" blog math)
+      ("https://blog.tanyakhovanova.com/feed/" blog math)
+      ("http://feeds.feedburner.com/FutilityCloset" blog math)
+      ("http://rjlipton.wpcomstaging.com/feed" blog math)
+      ("https://cameroncounts.wordpress.com/feed/" blog math)
       ; News
       ("https://www.to-rss.xyz/wikipedia/current_events/" news)
       ; Entertainment
       ;; Veritasium
       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCHnyfMqiRRG1u-2MsSQLbXA" youtube sci)
+      ;; numberphile
+      ("https://www.youtube.com/feeds/videos.xml?channel_id=UCSju5G2aFaWMqn-_0YBtq5A" youtube math)
+      ;; Primitive Technology
+      ("https://www.youtube.com/feeds/videos.xml?channel_id=UCAL3JXZSzSm8AlZyD3nQdBA" youtube tech)
+
       ;; video games
       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCHSI8erNrN6hs3sUK6oONLA" youtube games)
       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCKtix2xNNXdcEfEFnoOnvMw" youtube games)
@@ -1190,6 +1236,10 @@ since it is more contained inside of Emacs.
     :commands elfeed elfeed-update
     :bind ("C-x f" . my/elfeed))
 #+end_src
+
+#+RESULTS:
+: my/elfeed
+
 ** Built-in entry: =eldoc=
 *** Code
 #+BEGIN_SRC emacs-lisp
diff --git a/emacs-manifest.scm b/emacs-manifest.scm
index 6e385da..d0cd090 100644
--- a/emacs-manifest.scm
+++ b/emacs-manifest.scm
@@ -45,7 +45,10 @@
              emacs-pinentry
              emacs-pass
              emacs-osm
+             emacs-org-fragtog
              ;;             emacs-guix ;; broken
+
+             emacs-calibredb
              emacs-sly
              emacs-slite
              my/geiser-guile