Improve org-agenda

config.org

@@ -267,7 +267,6 @@ Standard =elfeed= settings:
 
 #+BEGIN_SRC emacs-lisp
   (defun elfeed-load-db-and-open ()
-    "Wrapper to load the elfeed db from disk before opening"
     (interactive)
     (elfeed-db-load)
     (elfeed)
@@ -283,7 +282,6 @@ Standard =elfeed= settings:
     '(define-key elfeed-search-mode-map (kbd "m") 'elfeed-toggle-star))
 
   (defun elfeed-save-db-and-bury ()
-    "Wrapper to save the elfeed db to disk before burying buffer"
     (interactive)
     (elfeed-db-save)
     (quit-window))
@@ -348,7 +346,6 @@ I kind of hate markdown but I still have to use it sometimes.
            ("\\.markdown\\'" . markdown-mode))
     :init
     (add-hook 'markdown-mode-hook 'auto-fill-mode)
-    (add-hook 'markdown-mode-hook 'typo-mode)
     :config
     (setq markdown-asymmetric-header t)
     :custom
@@ -551,11 +548,9 @@ Set the files to be included.
 #+BEGIN_SRC emacs-lisp
   (unless (atwork)
     (setq org-agenda-files (list "~/Documents/drive/org/calendar"
-                                 "~/Documents/drive/org/period.org"
                                  "~/Documents/drive/org/habit.org")))
   (when (atwork)
     (setq org-agenda-files (list "~/Documents/drive/org/calendar"
-                                 "~/Documents/drive/org/period.org"
                                  "~/Documents/drive/org/acwri.org")))
 #+END_SRC
 
@@ -569,6 +564,15 @@ Set how the agenda looks.
   (setq org-use-property-inheritance (quote ("LOCATION")))
   (setq org-agenda-todo-ignore-scheduled t)
   (setq org-agenda-todo-ignore-deadlines t)
+#+END_SRC
+
+Add period information to the agenda header (this has a very weird output, completely different when you insert a function from just using text, utterly bizarre).
+
+#+BEGIN_SRC emacs-lisp
+  (setq org-agenda-custom-commands
+        '(("a" "Slightly modified agenda view"
+                ((agenda ""
+                 ((org-agenda-overriding-header (periodise))))))))
   #+END_SRC
 
 Use a horizontal line to divide each day from the next.
@@ -666,15 +670,18 @@ As previously described, “the big boy”. I know little about most of these se
 
 ** =typo=
 
-Automatically use smart quotes. (Can’t be set to =text-mode-hook=, unfortunately, as this messes things up in LaTeX; but the only other text-modes I use are =org= and Markdown, I think.)
+Automatically use smart quotes. (Can’t be set to =text-mode-hook=, unfortunately, as this messes things up in LaTeX; but the only other text-modes I use are =org= and Markdown, I think.) Also, best to /unset/ this mode in source blocks in =org=, [[https://emacs.stackexchange.com/questions/55944/disable-minor-mode-inside-source-blocks][hook taken from here]].
 
 #+BEGIN_SRC emacs-lisp
-    (use-package typo
-      :custom
-      (typo-global-mode 1)
-      :init
-      (add-hook 'org-mode-hook 'typo-mode)
-      (add-hook 'markdown-mode-hook 'typo-mode))
+  (use-package typo
+    :custom
+    (typo-global-mode 1)
+    :init
+    (add-hook 'org-mode-hook 'typo-mode)
+    (add-hook 'markdown-mode-hook 'typo-mode))
+  (defun unsmart-hook ()
+    (add-hook 'typo-disable-electricity-functions 'org-in-src-block-p nil :local))
+  (add-hook 'org-mode-hook 'unsmart-hook)
 #+END_SRC
 
 ** =yasnippet=