1.1--- a/emacs/default.el Sun Aug 11 01:53:06 2024 -0400
1.2+++ b/emacs/default.el Mon Aug 12 16:18:47 2024 -0400
1.3@@ -68,7 +68,7 @@
1.4 (defvar user-mail-directory (expand-file-name "mail" user-home-directory))
1.5
1.6 (defvar default-theme 'leuven-dark)
1.7-(defvar company-source-directory (join-paths user-lab-directory "comp"))
1.8+(defvar company-source-directory (join-paths user-home-directory "comp"))
1.9 (defvar company-domain "compiler.company")
1.10 (defvar company-name "The Compiler Company, LLC")
1.11 (defvar company-vc-domain "vc.compiler.company")
1.12@@ -739,19 +739,7 @@
1.13 (use-package imenu-list :ensure t)
1.14
1.15 ;;; Org
1.16-;; todos
1.17-(setq org-todo-keywords
1.18- '((type "TBD(0!)" "TODO(t!)" "|")
1.19- (type "WIP(w!)" "|")
1.20- (type "HOLD(H@!)" "WAIT(/j@!)" "|")
1.21- (sequence "FIND(q!)" "READ(r@!)" "WATCH(W@!)" "|")
1.22- (sequence "RESEARCH(s!)" "RECORD(e!)" "|")
1.23- (sequence "OUTLINE(O!)" "RESEARCH(A!)" "DRAFT(M!)" "REVIEW(R!)" "|")
1.24- (sequence "FIX(i!)" "TEST(t!)" "|")
1.25- (type "GOTO(g!)" "HACK(h!)" "NOTE(n!)" "CODE(c!)" "LINK(l!)" "|")
1.26- (type "KLUDGE(k@!)" "|")
1.27- (sequence "|" "DONE(d!)" "NOPE(x@!)" "FOUND(f@!)")))
1.28-
1.29+(setq org-id-link-to-org-use-id t)
1.30 ;; capture templates
1.31 (setq org-capture-templates
1.32 '(("t" "task" entry (file "inbox.org") "* %^{title}\n- %?" :prepend t)
1.33@@ -1087,6 +1075,18 @@
1.34 :html translation-html
1.35 :utf-8 translation-utf-8)))))))
1.36
1.37+;;; Glossary
1.38+(use-package org-glossary
1.39+ :vc (:url "https://github.com/tecosaur/org-glossary.git" :branch "master")
1.40+ :after org)
1.41+
1.42+;;; Dictionary
1.43+(setq switch-to-buffer-obey-display-actions t)
1.44+(add-to-list 'display-buffer-alist
1.45+ '("^\\*Dictionary\\*" display-buffer-in-side-window
1.46+ (side . left)
1.47+ (window-width . 50)))
1.48+
1.49 ;;; Skel
1.50 (add-to-load-path user-emacs-lib-directory)
1.51 (require 'sk)
2.1--- a/emacs/lib/c2.el Sun Aug 11 01:53:06 2024 -0400
2.2+++ b/emacs/lib/c2.el Mon Aug 12 16:18:47 2024 -0400
2.3@@ -1,4 +1,4 @@
2.4-;;; c2.el --- remote execution of elisp -*- lexical-binding: t; -*-
2.5+;;; c2.el --- remote execution of elisp -*- lexical-binding: t -*-
2.6 ;; Copyright (C) 2021-2024 ellis
2.7 ;;
2.8 ;; Author: ellis
3.1--- a/emacs/lib/inbox.el Sun Aug 11 01:53:06 2024 -0400
3.2+++ b/emacs/lib/inbox.el Mon Aug 12 16:18:47 2024 -0400
3.3@@ -1,4 +1,4 @@
3.4-;;; lib/inbox.el --- Inbox API -*- lexical-binding: t; -*-
3.5+;;; lib/inbox.el --- Inbox API -*- lexical-binding: t -*-
3.6
3.7 ;; Copyright (C) 2023 Richard Westhaver
3.8 ;; Version: "0.2.0"
4.1--- a/emacs/lib/publish.el Sun Aug 11 01:53:06 2024 -0400
4.2+++ b/emacs/lib/publish.el Mon Aug 12 16:18:47 2024 -0400
4.3@@ -1,4 +1,4 @@
4.4-;;; publish.el --- the.compiler.company publishing script -*- lexical-binding: t; -*-
4.5+;;; publish.el --- the.compiler.company publishing script -*- lexical-binding:t -*-
4.6
4.7 ;; emacsclient -e '(load-file "publish.el")' '(publish)'
4.8
4.9@@ -39,7 +39,7 @@
4.10 org-id-link-to-org-use-id t)
4.11
4.12 (setq org-publish-project-alist
4.13- `(("compiler.company" :components ("index" "blog" "docs" "notes" "plan"))
4.14+ `(("compiler.company" :components ("index" "meta" "blog" "docs" "notes" "plan"))
4.15 ("index"
4.16 :base-directory ,project-dir
4.17 :base-extension "org"
4.18@@ -51,6 +51,17 @@
4.19 :html-postamble ,html-foot
4.20 :publishing-directory ,publish-dir
4.21 :publishing-function org-html-publish-to-html)
4.22+ ("meta"
4.23+ :base-directory ,(expand-file-name "meta" project-dir)
4.24+ :base-extension "org"
4.25+ :recursive t
4.26+ :footnote-section-p t
4.27+ :html-doctype "<!doctype html>"
4.28+ :publishing-directory ,(expand-file-name "meta" publish-dir)
4.29+ :publishing-function org-html-publish-to-html
4.30+ :htmlized-source t
4.31+ :html-preamble ,html-nav
4.32+ :html-postamble ,html-foot)
4.33 ("blog"
4.34 :base-directory ,(expand-file-name "blog" project-dir)
4.35 :recursive t
4.36@@ -91,10 +102,10 @@
4.37 :footnote-section-p t
4.38 :html-doctype "<!doctype html>"
4.39 :publishing-directory ,(expand-file-name "docs" publish-dir)
4.40- :publishing-function org-html-publish-to-html
4.41- :htmlized-source t
4.42+ :publishing-function org-html-publish-to-html
4.43+ :htmlized-source t
4.44 :html-preamble ,html-nav
4.45- :html-postamble ,html-foot)))
4.46+ :html-postamble ,html-foot)))
4.47
4.48 (defun org-custom-id-get (&optional pom create prefix)
4.49 "Get the CUSTOM_ID property of the entry at point-or-marker POM.
5.1--- a/emacs/lib/sk.el Sun Aug 11 01:53:06 2024 -0400
5.2+++ b/emacs/lib/sk.el Mon Aug 12 16:18:47 2024 -0400
5.3@@ -1,4 +1,4 @@
5.4-;;; sk.el --- skel Emacs Mode -*- lexical-binding: t; -*-
5.5+;;; sk.el --- skel Emacs Mode -*- lexical-binding:t -*-
5.6
5.7 ;; skel-mode, skel-minor-mode,skt-minor-mode, sk-classes
5.8
6.1--- a/emacs/lib/skt.el Sun Aug 11 01:53:06 2024 -0400
6.2+++ b/emacs/lib/skt.el Mon Aug 12 16:18:47 2024 -0400
6.3@@ -1,4 +1,4 @@
6.4-;;; skt.el --- Skel Templates -*- lexical-binding: t; -*-
6.5+;;; skt.el --- Skel Templates -*- lexical-binding:t -*-
6.6
6.7 ;; Copyright (C) 2024 The Compiler Company
6.8
7.1--- a/emacs/lib/sxp.el Sun Aug 11 01:53:06 2024 -0400
7.2+++ b/emacs/lib/sxp.el Mon Aug 12 16:18:47 2024 -0400
7.3@@ -1,4 +1,4 @@
7.4-;;; sxp.el --- S-Expression Mode -*- lexical-binding: t; -*-
7.5+;;; sxp.el --- S-Expression Mode -*- lexical-binding:t -*-
7.6
7.7 ;; Copyright (C) 2023 ellis
7.8
8.1--- a/emacs/lib/ulang.el Sun Aug 11 01:53:06 2024 -0400
8.2+++ b/emacs/lib/ulang.el Mon Aug 12 16:18:47 2024 -0400
8.3@@ -1,4 +1,4 @@
8.4-;;; ulang.el --- ulang compliance lib -*- lexical-binding: t; -*-
8.5+;;; ulang.el --- ulang compliance lib -*- lexical-binding:t -*-
8.6
8.7 ;; Copyright (C) 2023
8.8
8.9@@ -43,6 +43,23 @@
8.10
8.11 (org-export-translate-to-lang (list '("Table of Contents" "TOC")) "ulang")
8.12
8.13+(setq org-todo-keywords
8.14+ '((type "TBD(0!)" "TODO(t!)" "|")
8.15+ (type "WIP(w!)" "|")
8.16+ (type "HOLD(H@!)" "WAIT(/j@!)" "|")
8.17+ (sequence "FIND(q!)" "READ(r@!)" "WATCH(W@!)" "|")
8.18+ (sequence "RESEARCH(s!)" "RECORD(e!)" "|")
8.19+ (sequence "OUTLINE(O!)" "RESEARCH(A!)" "DRAFT(M!)" "REVIEW(R!)" "|")
8.20+ (sequence "FIX(i!)" "TEST(t!)" "|")
8.21+ (type "GOTO(g!)" "HACK(h!)" "NOTE(n!)" "CODE(c!)" "LINK(l!)" "|")
8.22+ (type "PROJECT(p!)" "|")
8.23+ (type "KLUDGE(k@!)" "|")
8.24+ (sequence "|" "DONE(d!)" "NOPE(x@!)" "FOUND(f@!)")))
8.25+
8.26+(setq org-todo-keyword-faces
8.27+ '(("PROJECT" . (:foreground "lightseagreen" :weight bold))
8.28+ ("NOTE" . (:foreground "lemonchiffon" :weight bold))))
8.29+
8.30 (setq org-link-abbrev-alist
8.31 '(("vc" . "https://vc.compiler.company/%s")
8.32 ("comp" . "https://compiler.company/%s")