1.1--- a/emacs/default.el	Fri Aug 16 21:27:00 2024 -0400
     1.2+++ b/emacs/default.el	Sat Aug 17 23:42:08 2024 -0400
     1.3@@ -69,6 +69,7 @@
     1.4 
     1.5 (defvar default-theme 'leuven-dark)
     1.6 (defvar company-source-directory (join-paths user-home-directory "comp"))
     1.7+(defvar company-org-directory (join-paths company-source-directory "org"))
     1.8 (defvar company-domain "compiler.company")
     1.9 (defvar company-name "The Compiler Company, LLC")
    1.10 (defvar company-vc-domain "vc.compiler.company")
    1.11@@ -747,7 +748,7 @@
    1.12 (setq org-id-link-to-org-use-id t)
    1.13 ;; capture templates
    1.14 (setq org-capture-templates
    1.15-      '(("t" "task" entry (file "inbox.org") "* %^{title}\n- %?" :prepend t)
    1.16+      '(("t" "task" entry (file "core.org") "* %^{title}\n- %?" :prepend t)
    1.17         ("1" "current-task-item" item (clock) "%i%?")
    1.18         ("2" "current-task-checkbox" checkitem (clock) "%i%?")
    1.19         ("3" "current-task-region" plain (clock) "%i" :immediate-finish t :empty-lines 1)
    1.20@@ -758,6 +759,10 @@
    1.21         ("i" "idea" entry (file "inbox.org") "* OUTLINE %?\n:notes:\n:end:\n- _outline_ [/]\n  - [ ] \n  - [ ] \n- _refs_" :prepend t)
    1.22         ("b" "bug" entry (file "inbox.org") "* FIX %?\n- _review_\n- _fix_\n- _test_" :prepend t)
    1.23         ("r" "research" entry (file "inbox.org") "* RESEARCH %?\n:notes:\n:end:\n- _refs_" :prepend t)))
    1.24+
    1.25+(setq org-default-notes-file (join-paths org-directory "inbox.org")
    1.26+      org-capture-use-agenda-date t)
    1.27+
    1.28 (setq org-html-htmlize-output-type 'css
    1.29       org-html-head-include-default-style nil
    1.30       ;; cc default
    1.31@@ -786,21 +791,24 @@
    1.32 
    1.33         org-refile-targets '((nil :maxlevel . 3)
    1.34                              (org-agenda-files :maxlevel . 3))
    1.35-        org-agenda-files (list "inbox.org")
    1.36+        ;; org-agenda-files (list "inbox.org")
    1.37+        org-agenda-include-diary t
    1.38+        org-agenda-include-inactive-timestamps t
    1.39         org-confirm-babel-evaluate nil
    1.40         org-src-fontify-natively t
    1.41         org-src-tabs-act-natively t
    1.42         org-footnote-section nil
    1.43         org-log-into-drawer t
    1.44+        org-log-refile 'time
    1.45+        org-log-redeadline 'time
    1.46         org-log-states-order-reversed nil
    1.47         org-clock-persist 'history)
    1.48 
    1.49-(setq org-stuck-projects '("+PROJECT/-DONE" ("NEXT") nil ""))
    1.50-
    1.51 (add-hook 'after-init-hook #'org-clock-persistence-insinuate)
    1.52 
    1.53 ;; archive
    1.54 (setq org-archive-location "archive.org::")
    1.55+
    1.56 (defun extract-org-directory-titles-as-list (&optional dir)
    1.57   (interactive "D")
    1.58   (print
    1.59@@ -978,6 +986,9 @@
    1.60        t nil))))
    1.61 
    1.62 ;;;; Agenda
    1.63+(require 'org-agenda)
    1.64+(cl-pushnew '("w" "Work in progress tasks" ((todo "WIP") (agenda))) org-agenda-custom-commands)
    1.65+
    1.66 (defvar org-agenda-overriding-header)
    1.67 (defvar org-agenda-sorting-strategy)
    1.68 (defvar org-agenda-restrict)
    1.69@@ -1080,17 +1091,14 @@
    1.70                                        :html translation-html
    1.71                                        :utf-8 translation-utf-8)))))))
    1.72 
    1.73-;;; Glossary
    1.74-(use-package org-glossary
    1.75-  :vc (:url "https://github.com/tecosaur/org-glossary.git" :branch "master")
    1.76-  :after org)
    1.77+;;; Dictionary
    1.78+(setq dictionary-server "compiler.company"
    1.79+      switch-to-buffer-obey-display-actions t)
    1.80 
    1.81-;;; Dictionary
    1.82-(setq switch-to-buffer-obey-display-actions t)
    1.83-(add-to-list 'display-buffer-alist
    1.84-   '("^\\*Dictionary\\*" display-buffer-in-side-window
    1.85-     (side . right)))
    1.86-
    1.87+;;; Ispell
    1.88+;; requires aspell and a hunspell dictionary (hunspell-en_us)
    1.89+(setq-default ispell-program-name "aspell")
    1.90+(add-hook 'mail-send-hook  #'ispell-message)
    1.91 
    1.92 ;;; Skel
    1.93 (add-to-load-path user-emacs-lib-directory)