From c1d373b9b9fb82f12904705f04b290fec8cb7182 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Thu, 16 Dec 2021 21:12:54 -0500
Subject: reformat config.el

---
 emacs/.doom.d/config.el | 118 ++++++++++++++++++++++++------------------------
 1 file changed, 58 insertions(+), 60 deletions(-)

(limited to 'emacs/.doom.d/config.el')

diff --git a/emacs/.doom.d/config.el b/emacs/.doom.d/config.el
index cf806e3..e6a39df 100644
--- a/emacs/.doom.d/config.el
+++ b/emacs/.doom.d/config.el
@@ -16,25 +16,23 @@
 (setq kj/font-size 14)
 (setq doom-theme 'doom-dark+)
 
-(setq math-additional-units '(
-  (ZiB "1024 * EiB" "Zebibyte")
-  (EiB "1024 * PiB" "Exbibyte")
-  (PiB "1024 * TiB" "Pebibyte")
-  (TiB "1024 * GiB" "Tebibyte")
-  (GiB "1024 * MiB" "Gibibyte")
-  (MiB "1024 * KiB" "Mebibyte")
-  (KiB "1024 * B" "Kibibyte")
-  (B nil "Byte")
-  (Zib "1024 * ZiB" "Zebibit")
-  (Eib "1024 * PiB" "Exbibit")
-  (Pib "1024 * TiB" "Pebibit")
-  (Tib "1024 * GiB" "Tebibit")
-  (Gib "1024 * Mib" "Gibibit")
-  (Mib "1024 * Kib" "Mebibit")
-  (Kib "1024 * b" "Kibibit")
-  (b "B / 8" "Bit")))
-(let ((math-simplifying-units t))
-  (calc-eval "1 TiB / 256 MiB"))
+(setq math-additional-units
+      '((ZiB "1024 * EiB" "Zebibyte")
+        (EiB "1024 * PiB" "Exbibyte")
+        (PiB "1024 * TiB" "Pebibyte")
+        (TiB "1024 * GiB" "Tebibyte")
+        (GiB "1024 * MiB" "Gibibyte")
+        (MiB "1024 * KiB" "Mebibyte")
+        (KiB "1024 * B" "Kibibyte")
+        (B nil "Byte")
+        (Zib "1024 * ZiB" "Zebibit")
+        (Eib "1024 * PiB" "Exbibit")
+        (Pib "1024 * TiB" "Pebibit")
+        (Tib "1024 * GiB" "Tebibit")
+        (Gib "1024 * Mib" "Gibibit")
+        (Mib "1024 * Kib" "Mebibit")
+        (Kib "1024 * b" "Kibibit")
+        (b "B / 8" "Bit")))
 
 (system-specific-config
  "pincer"
@@ -123,7 +121,7 @@
         (kj/assq-replace '((:exports . "both")
                            (:eval . "never-export")
                            (:output-dir . "static/data/"))
-                           org-babel-default-header-args))
+                          org-babel-default-header-args))
 
   (setq org-agenda-archives-mode nil)
   (defun kj/find-agenda-files-containing-tag (tag)
@@ -137,8 +135,8 @@
         (with-current-buffer (org-get-agenda-file-buffer file)
           (message "%S" (org-scan-tags 'agenda matcher nil))
 
-           (when (org-scan-tags 'agenda matcher nil)
-             (push file files))))))
+          (when (org-scan-tags 'agenda matcher nil)
+            (push file files))))))
 
   (defun kj/org-publish (&optional project force)
     (interactive)
@@ -156,48 +154,48 @@
            (org-publish-project-alist
             `(
               ("static"
-              :base-directory ,(concat org-roam-directory "/static")
-              :base-extension ,static-files-re
-              :recursive t
-              :publishing-directory ,(concat kj/publish-directory "/static")
-              :publishing-function org-publish-attachment)
+               :base-directory ,(concat org-roam-directory "/static")
+               :base-extension ,static-files-re
+               :recursive t
+               :publishing-directory ,(concat kj/publish-directory "/static")
+               :publishing-function org-publish-attachment)
               ("source"
-              :base-directory ,org-roam-directory
-              :base-extension "org"
-              :exclude ".*"
-              :include ,files-to-include
-              :recursive t
-              :publishing-directory ,kj/publish-directory
-              :publishing-function org-publish-attachment)
+               :base-directory ,org-roam-directory
+               :base-extension "org"
+               :exclude ".*"
+               :include ,files-to-include
+               :recursive t
+               :publishing-directory ,kj/publish-directory
+               :publishing-function org-publish-attachment)
               ("html"
-              :base-directory ,org-roam-directory
-              :base-extension "org"
-              :recursive t
-              :exclude ".*"
-              :include ,files-to-include
-              :publishing-directory ,kj/publish-directory
-              :publishing-function org-html-publish-to-html
-
-              :with-broken-links t
-              :with-toc nil
-              :with-latex t
-              :with-drawers t
-              :with-title t
-              :section-numbers nil
+               :base-directory ,org-roam-directory
+               :base-extension "org"
+               :recursive t
+               :exclude ".*"
+               :include ,files-to-include
+               :publishing-directory ,kj/publish-directory
+               :publishing-function org-html-publish-to-html
+
+               :with-broken-links t
+               :with-toc nil
+               :with-latex t
+               :with-drawers t
+               :with-title t
+               :section-numbers nil
 
               ;; HTML options
-              :html-toplevel-hlevel 2
-              :html-preamble ""
-              :html-postamble ""
-              :html-html5-fancy t
-              :html-doctype "html5"
-              :html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"static/org.css\"/>"
-              :html-head-include-scripts nil
-              :html-head-include-default-style nil
-              :html-container article
-              )
-              ("all" :components ("static" "source" "html"))
-             )))
+               :html-toplevel-hlevel 2
+               :html-preamble ""
+               :html-postamble ""
+               :html-html5-fancy t
+               :html-doctype "html5"
+               :html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"static/org.css\"/>"
+               :html-head-include-scripts nil
+               :html-head-include-default-style nil
+               :html-container article)
+              
+              ("all" :components ("static" "source" "html")))))
+             
       (org-publish project force))))
 
 ;;; Keybindings
-- 
cgit v1.2.3