diff options
Diffstat (limited to 'emacs/.doom.d/config.el')
| -rw-r--r-- | emacs/.doom.d/config.el | 365 |
1 files changed, 0 insertions, 365 deletions
diff --git a/emacs/.doom.d/config.el b/emacs/.doom.d/config.el deleted file mode 100644 index 34e66b5..0000000 --- a/emacs/.doom.d/config.el +++ /dev/null @@ -1,365 +0,0 @@ -;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- - -;; Place your private configuration here! Remember, you do not need to run 'doom -;; sync' after modifying this file! - -;; Some functionality uses this to identify you, e.g. GPG configuration, email -;; clients, file templates and snippets. -(setq user-full-name "KJ Orbekk" - user-mail-address "kj@orbekk.com") - -(defmacro system-specific-config (system-regex &rest code) - "Run CODE on systems that match SYSTEM-REGEX." - `(when (string-match ,system-regex (system-name)) - ,@code)) - -(setq kj/font-size 16) -(setq doom-theme 'modus-operandi) -(after! modus-themes - (modus-themes-load-themes)) - -;; Completion gets in the way more often than being useful. -(setq company-idle-delay nil) -(setq lsp-ui-doc-enable nil) - -(setq display-line-numbers-type nil) - -;; Scratch buffers are often for lisp stuff. -(setq doom-scratch-initial-major-mode 'lisp-interaction-mode) - -(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" - (setq kj/font-size 18) - (setq doom-theme 'doom-one)) - -(system-specific-config - "orbekk" - (setq doom-theme 'doom-solarized-light)) - -(system-specific-config - "^siofra\." - (setq kj/font-size 20) - (setq doom-theme 'doom-one-light)) - -(setq doom-font (font-spec :family "iosevka" :size kj/font-size)) -(setq doom-variable-pitch-font (font-spec :family "Noto Serif" :size kj/font-size)) - -;; If you use `org' and don't want your org files in the default location below, -;; change `org-directory'. It must be set before org loads! -(setq org-directory "~/org/") -(setq org-todo-keywords - '((sequence - "TODO(t)" "ACTIVE(a!)" "WAIT(w@/!)" "|" "DONE(d!)" "CANCELED(c@)"))) -(setq org-refile-use-outline-path nil) -(setq org-refile-targets '((nil . (:maxlevel . 2)))) -(setq org-log-into-drawer t) -(setq org-agenda-log-mode-items '(closed clock state)) -(setq org-agenda-start-day nil) -(setq org-agenda-block-separator nil) -(setq org-agenda-compact-blocks t) -(setq org-agenda-start-with-log-mode nil) -(setq org-habit-show-all-today t) -(setq org-agenda-time-grid '((daily today require-timed) (800 1600) "......" "----------------------")) -(setq org-roam-directory (concat org-directory "roam/")) -(setq-default org-agenda-files '()) -(dolist (file '("tasks.org" - "running-2022.org")) - (add-to-list 'org-agenda-files (concat org-roam-directory file))) -(setq org-roam-db-location (concat org-roam-directory "/org-roam.db")) -(setq org-export-with-toc nil) -(setq deft-directory org-directory) -(setq deft-recursive t) -;; Org html export -(setq org-html-htmlize-output-type 'css) -;; Website publish settings. -(defvar kj/publish-tag "publish") -(defvar kj/publish-directory "/ssh:orbekk@dragon.orbekk.com:/storage/srv/kj.orbekk.com") -(add-to-list 'org-modules 'org-habit) - -; (setq org-appear-autolinks t) -; (use-package! org-appear -; :hook (org-mode . org-appear-mode)) - -(setq org-log-done 'time) -(setq org-todo-keywords - '((sequence - "TODO(t)" ; A task that needs doing & is ready to do - "PROJ(p)" ; A project, which usually contains other tasks - "LOOP(r)" ; A recurring task - "STRT(s)" ; A task that is in progress - "WAIT(w)" ; Something external is holding up this task - "HOLD(h)" ; This task is paused/on hold because of me - "IDEA(i)" ; An unconfirmed and unapproved task or notion - "|" - "DONE(d!)" ; Task successfully completed - "KILL(k)") ; Task was cancelled, aborted or is no longer applicable - (sequence - "[ ](T)" ; A task that needs doing - "[-](S)" ; Task is in progress - "[?](W)" ; Task is being held up or paused - "|" - "[X](D)") ; Task was completed - (sequence - "|" - "OKAY(o)" - "YES(y)" - "NO(n)"))) - -;;(use-package! org-super-agenda -;; :after org-agenda -;; :init -;; -;; (setq org-agenda-custom-commands -;; '(("d" "Daily KJ agenda" -;; ((agenda "" ((org-agenda-span 'day) -;; (org-agenda-start-day nil) -;; (org-super-agenda-groups -;; '((:name "Habits" -;; :habit t -;; :order 2) -;; (:name "Past & Overdue" -;; :scheduled past -;; :deadline past) -;; (:name "Today" -;; :time-grid t -;; :date today) -;; (:name "Due Soon" -;; :scheduled future -;; :deadline future))))) -;; (alltodo "" ((org-agenda-overriding-header "") -;; (org-super-agenda-groups -;; '((:name "Important" -;; :priority "A" -;; :priority "B") -;; (:discard (:habit t)))))))))) -;; -;; :config -;; (org-super-agenda-mode 1)) - -(setq org-journal-file-type 'weekly) -(setq org-journal-dir org-roam-directory) -(setq org-journal-file-format "journal-%Y-%m-%d.org") -(setq org-journal-enable-agenda-integration t) -(defun kj/org-journal-init () - (interactive) - (save-excursion - (goto-char (point-min)) - (org-id-get-create) - (org-set-property "category" "journal"))) - -(defun kj/org-journal-file-header (time) - (format-time-string "#+title: Week of %F (%W)\n" - (org-journal--convert-time-to-file-type-time time))) -(setq org-journal-file-header #'kj/org-journal-file-header) -(add-hook 'org-journal-after-header-create-hook 'kj/org-journal-init) - -;; Allow more keys when navigating with avy. -(setq avy-keys '(?a ?o ?e ?u ?d ?h ?n ?s ?l ?, ?. ?p ?r)) -(setq avy-timeout-seconds 0.4) - -;; Low menu delay. -(setq which-key-idle-delay .5) - -;; Allow longer output in compilation buffer. -(setq comint-buffer-maximum-size 10000) - -;; Replace values in an alist from a list of replacements. -;; -;; Example: -;; (kj/assq-replace '((:a . 1)) '((:a . 2))) -(defun kj/assq-replace (replacements alist) - (let ((replace1 (lambda (aelem alist) - (cons aelem (assq-delete-all (car aelem) alist))))) - (if replacements - (kj/assq-replace (cdr replacements) - (funcall replace1 (car replacements) alist)) - alist))) - -(server-start) -(remove-hook 'doom-first-buffer-hook #'smartparens-global-mode) -(add-to-list 'auto-mode-alist '("\\.journal\\'" . ledger-mode)) - -;; Make ace window more visible -(custom-set-faces! - '(aw-leading-char-face - :foreground "white" :background "red" - :weight bold :height 2.5 :box (:line-width 10 :color "red"))) - -(after! racket-mode - (remove-hook! 'racket-mode #'racket-smart-open-bracket-mode)) - -(after! org - (add-hook 'org-mode-hook 'mixed-pitch-mode) - (setq org-roam-mode-section-functions - (list #'org-roam-backlinks-section - #'org-roam-reflinks-section - #'org-roam-unlinked-references-section)) - - (add-to-list 'org-structure-template-alist - '("se" . "src emacs-lisp")) - - (setq org-babel-default-header-args - (kj/assq-replace '((:exports . "both") - (:eval . "never-export") - (:output-dir . "static/data/")) - org-babel-default-header-args)) - - (defun kj/org-journal-find-location () - ;; Open today's journal, but specify a non-nil prefix argument in order to - ;; inhibit inserting the heading; org-capture will insert the heading. - (org-journal-new-entry t)) - ;; (unless (eq org-journal-file-type 'daily) - ;; (org-narrow-to-subtree)) - ;; (goto-char (point-max))) - - (defun kj/org-journal-narrowed-location () - ;; Open today's journal, but specify a non-nil prefix argument in order to - ;; inhibit inserting the heading; org-capture will insert the heading. - (org-journal-new-entry t) - (unless (eq org-journal-file-type 'daily) - (org-narrow-to-subtree)) - (goto-char (point-max))) - - (setq org-capture-templates - `(("g" "Go to current journal entry" plain (function kj/org-journal-find-location) - "%i%?" :jump-to-captured t :immediate-finish t) - ("t" "Create a TODO" entry (file+headline "~/org/roam/tasks.org" "Inbox") - "** TODO %?\n%i\n%a") - ("w" "Log bodyweight" table-line - (file+headline ,(concat org-roam-directory "bodyweight.org") - "Body weight log") - "| %t | %^{Weight} | |" - :prepend t :immediate-finish t))) - - (defun kj/find-agenda-files-containing-tag (tag) - (setq org-agenda-archives-mode nil) - (let* ((org-agenda-archives-mode nil) - (candidates (org-agenda-files nil 'ifmode)) - (matcher (cdr (org-make-tags-matcher tag))) - (files)) - ;; (message "Results:") - (dolist (file candidates files) - (org-check-agenda-file file) - (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)))))) - - (setq kj/inbox-path "/ssh:dragon.orbekk.com:/storage/srv/kj.orbekk.com/dav/Inbox.org") - - (defun kj/fetch-inbox () - (interactive) - (let ((content (with-current-buffer (find-file-noselect kj/inbox-path) - (buffer-string)))) - (kj/org-journal-find-location) - (when (not (string-empty-p content)) - (org-paste-subtree nil content))) - (with-current-buffer (find-file-noselect kj/inbox-path) - (erase-buffer) - (save-buffer) - (kill-buffer))) - - (defvar org-publish-project-alist) - (defun kj/org-publish (&optional project force) - (interactive) - (setq project (or project "all")) - (setq force (or force current-prefix-arg)) - (setq org-agenda-files (list org-roam-directory)) - (let* ((static-files-re (string-join '("css" "txt" "jpg" "png" "gif" "svg") "\\|")) - (files-to-include (kj/find-agenda-files-containing-tag kj/publish-tag)) - ;; Disable org babel exports during publish entirely to speed up publish. - ;; This messes up babel output handling. - ;; (org-export-use-babel nil) - (org-babel-default-header-args - (kj/assq-replace '((:exports . "both") - (:eval . "never-export")) - org-babel-default-header-args)) - (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) - ("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) - ("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 - - ;; 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"))))) - - (org-publish project force)))) - -(setq aw-dispatch-always t) - -;;; Keybindings -(map! (:after evil-org - :leader "n P" #'kj/org-publish) - - (:leader - :desc "window" "e" evil-window-map) - - (:map evil-window-map - "e" #'ace-window)) - -(add-hook 'eshell-mode-hook - (lambda () - (setenv "PAGER" "cat")) - (setenv "EDITOR" "emacsclient")) - -(after! evil-embrace - (evil-embrace-enable-evil-surround-integration) - (setq evil-embrace-show-help-p t)) - -(let ((local-config "~/.doom.d/config.local.el")) - (when (file-exists-p local-config) - (load-file local-config))) |