743 lines
29 KiB
EmacsLisp
743 lines
29 KiB
EmacsLisp
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
||
|
||
;; Place your private configuration here! Remember, you do not need to run 'doom
|
||
;; sync' after modifying this file!
|
||
;; ** Default Init File
|
||
;; Load the default init file. This is the place where distro packagers can place
|
||
;; their own configuration. Doom disables it as an optimization, but it's useful
|
||
;; for storing information that can only reliably be obtained through package
|
||
;; managers. More specifically, it's used in this dotfiles to specify the full path
|
||
;; to some commands used by Doom. Doing so removes the need to clutter =PATH= with
|
||
;; commands not needed outside of Doom.
|
||
;;
|
||
;;
|
||
;;#+begin_src emacs-lisp
|
||
;;(load "default" 'noerror 'nomessage)
|
||
;;#+end_src
|
||
|
||
|
||
|
||
;; Sane defaults
|
||
(defvar is-archie-p (equal (system-name) "archie"))
|
||
(defvar is-peregrine-p (equal (system-name) "peregrine"))
|
||
(defvar is-macos-p (equal (system-name) "Shawns-Macbook-Pro.local"))
|
||
(setq-default window-combination-resize t)
|
||
(setq global-auto-revert-non-file-buffers t)
|
||
(setq undo-limit 80000000 ; Raise undo-limit to 80Mb
|
||
evil-want-fine-undo t ; By default, all changes while in insert mode are one big blob. Make it granular.
|
||
password-cache-expiry nil ; Trust your computers.
|
||
scroll-margin 2 ; It's nice to maintain a little margin
|
||
window-resize-pixelwise t
|
||
reb-re-syntax 'string ; Normalize Emacs regexps
|
||
)
|
||
;;; (setq auth-sources "~/.authinfo.gpg")
|
||
;;;(setq auth-sources
|
||
;;; '((:source "~/.authinfo.gpg")))
|
||
|
||
(display-time-mode 1)
|
||
(global-subword-mode 1)
|
||
(electric-pair-mode t)
|
||
|
||
(setq-default major-mode 'org-mode)
|
||
(setq-default line-spacing 10)
|
||
;; Enabled inline static analysis
|
||
(add-hook 'prog-mode-hook #'flymake-mode)
|
||
|
||
|
||
;; Some functionality uses this to identify you, e.g. GPG configuration, email
|
||
;; clients, file templates and snippets.
|
||
(setq user-full-name "Shawn Borton"
|
||
user-mail-address "shawn@shawnborton.info")
|
||
|
||
;; Doom exposes five (optional) variables for controlling fonts in Doom. Here
|
||
;; are the three important ones:
|
||
;;
|
||
;; + `doom-font'
|
||
;; + `doom-variable-pitch-font'
|
||
;; + `doom-big-font' -- used for `doom-big-font-mode'; use this for
|
||
;; presentations or streaming.
|
||
;;
|
||
;; They all accept either a font-spec, font string ("Input Mono-12"), or xlfd
|
||
;; font string. You generally only need these two:
|
||
;; (setq doom-font (font-spec :family "monospace" :size 12 :weight 'semi-light)
|
||
;; doom-variable-pitch-font (font-spec :family "sans" :size 13))
|
||
|
||
;; There are two ways to load a theme. Both assume the theme is installed and
|
||
;; available. You can either set `doom-theme' or manually load a theme with the
|
||
;; `load-theme' function. This is the default:
|
||
;;(use-package! all-the-icons)
|
||
(setq doom-font (font-spec :family "JetBrains Mono" :style "Regular" :size 14)
|
||
doom-variable-pitch-font (font-spec :family "Overpass Nerd Font" :style "Regular" :size 18)
|
||
doom-big-font (font-spec :family "JetBrains Mono" :style "Regular" :size 26))
|
||
(defvar sb-org-font (font-spec :family "SauceCodePro" :style "Regular" :size 14))
|
||
|
||
;; (setq doom-theme 'doom-nord)
|
||
(setq doom-theme 'doom-oceanic-next)
|
||
(after! doom-themes
|
||
;;(load-theme 'doom-nano-dark t)
|
||
(setq doom-themes-enable-bold t
|
||
doom-themes-enable-italic t))
|
||
(map! :leader
|
||
:desc "Load new theme"
|
||
"h t" #'counsel-load-theme)
|
||
(funcall (lambda ()
|
||
(set-frame-parameter nil 'alpha-background 95)
|
||
(add-to-list 'default-frame-alist '(alpha-background . 95))
|
||
))
|
||
|
||
;; This determines the style of line numbers in effect. If set to `nil', line
|
||
;; numbers are disabled. For relative line numbers, set this to `relative'.
|
||
(setq display-line-numbers-type 'relative)
|
||
(setq doom-fallback-buffer-name "► Doom"
|
||
+doom-dashboard-name "► Doom")
|
||
(setq which-key-idle-delay 0.5) ;; Faster popups
|
||
|
||
(use-package! all-the-icons-dired)
|
||
|
||
;; Major modes in which to display word count continuously.
|
||
;; Also applies to any derived modes. Respects `doom-modeline-enable-word-count'.
|
||
;; If it brings the sluggish issue, disable `doom-modeline-enable-word-count' or
|
||
;; remove the modes from `doom-modeline-continuous-word-count-modes'.
|
||
;;
|
||
(after! doom-modeline
|
||
(setq doom-modeline-height 28)
|
||
(setq doom-modeline-bar-width 6)
|
||
(setq doom-modeline-enable-word-count t)
|
||
(setq doom-modeline-continuous-word-count-modes '(markdown-mode org-mode)))
|
||
|
||
|
||
(setq evil-vsplit-window-right t
|
||
evil-split-window-below t)
|
||
(defadvice! prompt-for-buffer (&rest _)
|
||
:after '(evil-window-split evil-window-vsplit)
|
||
(consult-buffer))
|
||
(setq +ivy-buffer-preview t)
|
||
|
||
;; Escape insert mode with 'jk':
|
||
(after! evil-escape
|
||
(setq! evil-escape-key-sequence "jk"))
|
||
|
||
;; Here are some additional functions/macros that could help you configure Doom:
|
||
;;
|
||
;; - `load!' for loading external *.el files relative to this one
|
||
;; - `use-package!' for configuring packages
|
||
;; - `after!' for running code after a package has loaded
|
||
;; - `add-load-path!' for adding directories to the `load-path', relative to
|
||
;; this file. Emacs searches the `load-path' when you load packages with
|
||
;; `require' or `use-package'.
|
||
;; - `map!' for binding new keys
|
||
;;
|
||
;; To get information about any of these functions/macros, move the cursor over
|
||
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
|
||
;; This will open documentation for it, including demos of how they are used.
|
||
;;
|
||
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
|
||
;; they are implemented.
|
||
;;
|
||
;; Make 'h' and 'l' go back and forward in dired. Much faster to navigate the directory structure!
|
||
(evil-define-key 'normal dired-mode-map
|
||
(kbd "M-RET") 'dired-display-file
|
||
(kbd "h") 'dired-up-directory
|
||
(kbd "l") 'dired-open-file ; use dired-find-file instead if not using dired-open package
|
||
(kbd "m") 'dired-mark
|
||
(kbd "t") 'dired-toggle-marks
|
||
(kbd "u") 'dired-unmark
|
||
(kbd "C") 'dired-do-copy
|
||
(kbd "D") 'dired-do-delete)
|
||
(evilem-default-keybindings "SPC")
|
||
|
||
(defun sbinfo/thunar-current-dir ()
|
||
"Open the current directory in Thunar."
|
||
(interactive)
|
||
(let ((default-directory (if (buffer-file-name)
|
||
(file-name-directory (buffer-file-name))
|
||
default-directory)))
|
||
(start-process "Thunar" nil "thunar" default-directory)))
|
||
|
||
(defun sbinfo/my-find-file-with-pattern (dir pattern)
|
||
"Find files containing PATTERN in directory DIR and open them."
|
||
(interactive "DEnter directory: \nsEnter pattern: ")
|
||
(let* ((files (directory-files dir))
|
||
(matches (seq-filter (lambda (f) (string-match-p pattern f)) files)))
|
||
(dolist (filename matches)
|
||
(find-file (concat (file-name-as-directory dir) filename)))))
|
||
|
||
;; EWW Stuff
|
||
(setq browse-url-browser-function 'eww-browse-url)
|
||
(map! :leader
|
||
:desc "Eww web browser"
|
||
"e w" #'eww
|
||
:leader
|
||
:desc "Eww reload page"
|
||
"e R" #'eww-reload
|
||
:leader
|
||
:desc "Search web for text between BEG/END"
|
||
"s w" #'eww-search-words)
|
||
|
||
(after! neotree
|
||
(setq neo-smart-open t
|
||
doom-themes-neotree-enable-variable-pitch nil
|
||
neo-window-fixed-size nil))
|
||
|
||
(map! :leader
|
||
:desc "Toggle neotree file viewer"
|
||
"t n" #'neotree-toggle
|
||
:leader
|
||
:desc "Open directory in neotree"
|
||
"d n" #'neotree-dir)
|
||
|
||
;; Development keybindings
|
||
(map! :leader
|
||
:desc "npm install"
|
||
"c n i" #'npm-mode-npm-install
|
||
:leader
|
||
:desc "npm run"
|
||
"c n r" #'npm-mode-npm-run)
|
||
|
||
;; (map! :leader
|
||
;; :desc "Edit agenda file"
|
||
;; "- a" #'(lambda () (interactive) (find-file "~/Org/agenda.org"))
|
||
;; (map! :leader
|
||
;; :desc "Edit eshell aliases"
|
||
;; "- e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases"))
|
||
;; :leader
|
||
;; :desc "Edit doom init.el"
|
||
;; "- i" #'(lambda () (interactive) (find-file "~/.doom.d/init.el"))
|
||
;; :leader
|
||
;; :desc "Edit doom config.el"
|
||
;; "- c" #'(lambda () (interactive) (find-file "~/.doom.d/config.el"))
|
||
;; :leader
|
||
;; :desc "Edit doom packages.el"
|
||
;; "- p" #'(lambda () (interactive) (find-file "~/.doom.d/packages.el")))
|
||
|
||
;; (after! mastodon
|
||
;; (setq mastodon-auth-source-file "~/.authinfo")
|
||
;; (setq mastodon-instance-url "https://distrotoot.com/"))
|
||
|
||
;; TWITTER
|
||
(setq twittering-use-master-password t)
|
||
(setq twittering-icon-mode t)
|
||
|
||
;; RSS (elfeed)
|
||
(after! elfeed
|
||
;;(elfeed-org)
|
||
;;(setq rmh-elfeed-org-files (list "~/Dropbox/Org/feedly.org"))
|
||
(setq elfeed-use-curl t)
|
||
(setq elfeed-protocol-fever-update-unread-only t)
|
||
(setq elfeed-protocol-feeds '(("fever+https://shawnb@rss.onionpatch.cloud"
|
||
:api-url "https://rss.onionpatch.cloud/api/fever.php"
|
||
:password ")9vwibuQmv9pr"
|
||
:autotags (("https://feeds.arstechnica.com/arstechnica/index" secondary)
|
||
("https://api.axios.com/feed/" nooz)
|
||
("https://rss.csmonitor.com/feeds/all" nooz secondary)
|
||
("https://hnrss.org/newest?points=150")
|
||
("https://theimaginativeconservative.org/feed" primary)
|
||
("https://kill-the-newsletter.com/feeds/nnug6b0e4e7h8swq.xml" bellingcat nooz primary)
|
||
("https://planet.emacslife.com/atom.xml" primary emacs)
|
||
("https://www.plough.com/en/Plough-RSS-Feed" primary religion)
|
||
("https://reason.com/feed/" nooz secondary)
|
||
("https://www.readtangle.com/rss/" primary nooz)
|
||
("https://tracydurnell.com/feed/" primary blog)
|
||
("https://www.voanews.com/api/zqboml-vomx-tpeivmy" nooz primary)
|
||
("https://www.voanews.com/api/zpbovl-vomx-tpe_vmr" primary)
|
||
("https://www.voanews.com/api/zyritl-vomx-tpettmq" techno primary)
|
||
("https://www.voanews.com/api/zmbjqvl-vomx-tpeyvror" primary)))))
|
||
;; enable elfeed-protocol
|
||
(setq elfeed-protocol-enabled-protocols '(fever))
|
||
(elfeed-protocol-enable)
|
||
(elfeed-set-timeout 36000)
|
||
(use-package! elfeed-link))
|
||
|
||
(setq freshrss-hostname "https://rss.onionpatch.cloud")
|
||
(setq main-elfeed-feed "https://shawnb@rss.onionpatch.cloud/api/fever.php")
|
||
(defun freshrss-network-connection-p ()
|
||
(not (condition-case nil
|
||
(delete-process
|
||
(make-network-process
|
||
:name freshrss-hostname
|
||
:host "elpa.gnu.org"
|
||
:service 443))
|
||
(error t))))
|
||
|
||
(defun elfeed-full-update ()
|
||
(interactive)
|
||
(if (freshrss-network-connection-p) (delete-directory "~/.cache/doom/elfeed" t))
|
||
(setq elfeed-db nil)
|
||
;; (elfeed-protocol-fever-update main-elfeed-feed))
|
||
(elfeed-update))
|
||
(map! :map 'elfeed-search-mode-map :desc "Update elfeed" :n "g R" #'elfeed-full-update)
|
||
(map! :leader
|
||
:desc "Launch Elfeed"
|
||
"r r" #'elfeed
|
||
:leader
|
||
:desc "Update RSS feeds"
|
||
"r u" #'elfeed-update
|
||
:leader
|
||
:desc "Get Culture items"
|
||
"r c" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread +Culture"))
|
||
:leader
|
||
:desc "Get default search"
|
||
"r d" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread "))
|
||
:leader
|
||
:desc "Get Hacker News items"
|
||
"r h" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread =Hacker"))
|
||
:leader
|
||
:desc "Get MetaFilter items"
|
||
"r m" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread =Meta"))
|
||
:leader
|
||
:desc "Get News items"
|
||
"r n e" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread +News"))
|
||
:leader
|
||
:desc "Get Nitters"
|
||
"r n i" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread +Nitters"))
|
||
:leader
|
||
:desc "Get Technology items"
|
||
"r t" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread +Technology"))
|
||
:leader
|
||
:desc "Get Videos"
|
||
"r v" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread +Videos"))
|
||
:leader
|
||
:desc "Get Writing items"
|
||
"r w" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread +Writing")))
|
||
;; :leader
|
||
;; :desc "Get AI summary"
|
||
;; "r z" #'(lambda () (interactive) (elfeed-summarize-search-toggle-summary)))
|
||
(use-package! elfeed-goodies
|
||
:init
|
||
(elfeed-goodies/setup)
|
||
:config
|
||
(setq elfeed-goodies/entry-pane-size 0.75))
|
||
|
||
(add-hook 'elfeed-show-mode-hook 'visual-line-mode)
|
||
(evil-define-key 'normal elfeed-show-mode-map
|
||
(kbd "J") 'elfeed-goodies/split-show-next
|
||
(kbd "K") 'elfeed-goodies/split-show-prev)
|
||
(evil-define-key 'normal elfeed-search-mode-map
|
||
(kbd "RET") 'elfeed-goodies/split-search-show-entry
|
||
(kbd "J") 'elfeed-goodies/split-show-next
|
||
(kbd "K") 'elfeed-goodies/split-show-prev)
|
||
|
||
(setq elfeed-goodies/entry-pane-position 'bottom)
|
||
|
||
(setq elfeed-search-filter "@1-week-ago +unread "
|
||
elfeed-search-title-min-width 80
|
||
shr-max-image-proportion 0.6)
|
||
|
||
;; (defface elfeed-show-title-face '((t (:weight ultrabold :slant italic :height 1.5)))
|
||
;; "title face in elfeed show buffer"
|
||
;; :group 'elfeed)
|
||
;; (defface elfeed-show-author-face `((t (:weight light)))
|
||
;; "title face in elfeed show buffer"
|
||
;; :group 'elfeed)
|
||
;; (set-face-attribute 'elfeed-search-title-face nil
|
||
;; :foreground 'nil
|
||
;; :weight 'light)
|
||
|
||
(defun sbinfo/elfeed-filter-by-ordinality ()
|
||
"Select a default filter and update elfeed."
|
||
(interactive)
|
||
(let* ((filters
|
||
'(("Default - 3 Days" . "@3-days-ago +unread -Sports -Videos -wait")
|
||
("Default - 7 Days" . "@7-days-ago +unread -Sports -Videos -wait")
|
||
("Default with Videos" . "@7-days-ago +unread")
|
||
("Primary - 7 Days" . "@7-days-ago +unread +primary")
|
||
("Secondary - 7 Days" . "@7-days-ago +unread +secondary")
|
||
("Weekly News" . "@7-days-ago +nooz")
|
||
("Wait Items" . "@7-days-ago +unread +wait")))
|
||
;; ("Third (3rd)" . "@7-days-ago +3rd +unread")
|
||
;; ("Outlets" . "@2-days-ago +outlet")))
|
||
(filter
|
||
(completing-read "Elfeed Filter: " filters nil t)))
|
||
(setq elfeed-search-filter
|
||
(alist-get filter filters nil nil #'string=))
|
||
(elfeed-search-update :force)))
|
||
|
||
(use-package! wombag
|
||
:config
|
||
(setq wombag-host "https://read.onionpatch.cloud" ;where you access Wallabag
|
||
wombag-username "shawnb"
|
||
wombag-password "6!EzrhCk94qxm"
|
||
wombag-client-id "3_2c3vfqmpkqm8oosg8ccwo4scgoscosc0oowssgcs8oowc0w844"
|
||
wombag-client-secret "5otka1i1kpc84wwwwsc404o8o0wow4sgcksk0ok8s8ws0c4c8g"))
|
||
|
||
|
||
;; ⌘-b ; browse to URL in foreground
|
||
;; C-- ⌘-b ; browse to URL in background
|
||
|
||
;; ⌘-i ; search Google in foreground
|
||
;; C-- ⌘-i ; search Google in background
|
||
|
||
;; position cursor on a URL
|
||
;; ⌘-b
|
||
|
||
;; select a region
|
||
;; ⌘-i
|
||
|
||
;;(require 'osx-browse)
|
||
;;(osx-browse-mode 1)
|
||
|
||
;; (after! pocket-reader
|
||
;; (map! :map pocket-reader-mode-map
|
||
;; "ta" #'pocket-reader-add-tags))
|
||
|
||
(defun writing-mode ()
|
||
(interactive)
|
||
;; (zen/toggle)
|
||
(buffer-face-mode)
|
||
;;(linum-mode 0)
|
||
(blink-cursor-mode)
|
||
(visual-line-mode 1)
|
||
(setq truncate-lines nil
|
||
global-hl-line-mode nil
|
||
display-line-numbers nil))
|
||
|
||
(add-hook 'markdown-mode-hook 'writing-mode)
|
||
;; (setq ispell-program-name "/usr/bin/aspell")
|
||
(setq ispell-program-name "/home/shawnb/.nix-profile/bin/aspell")
|
||
(setq ispell-list-command "--list")
|
||
|
||
(defun sbinfo/org-mode-setup ()
|
||
(setq +zen-text-scale 0)
|
||
(org-indent-mode)
|
||
;; (org-superstar-mode 1)
|
||
(org-bullets-mode 1)
|
||
(display-line-numbers-mode -1)
|
||
(variable-pitch-mode 1))
|
||
;; (visual-line-mode 1))
|
||
|
||
(defun sbinfo/org-font-setup ()
|
||
;; Set faces for heading levels
|
||
(dolist (face '((org-level-1 . 1.3)
|
||
(org-level-2 . 1.2)
|
||
(org-level-3 . 1.1)
|
||
(org-level-4 . 1.0)
|
||
(org-level-5 . 1.0)
|
||
(org-level-6 . 1.0)
|
||
(org-level-7 . 1.0)
|
||
(org-level-8 . 1.0)))
|
||
(set-face-attribute (car face) nil :font "Overpass Nerd Font" :weight 'regular :height (cdr face)))
|
||
|
||
;; Ensure that anything that should be fixed-pitch in Org files appears that way
|
||
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
|
||
(set-face-attribute 'org-hide nil :inherit 'fixed-pitch)
|
||
(set-face-attribute 'org-code nil :inherit '(shadow fixed-pitch))
|
||
(set-face-attribute 'org-table nil :inherit '(shadow fixed-pitch))
|
||
(set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
|
||
(set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
|
||
(set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
|
||
(set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)
|
||
)
|
||
;; (set-face-attribute (car face) nil :font "Fira Code Retina" :weight 'regular :height (cdr face))))
|
||
;; (set-face-attribute (car face) nil :font "Source Code Pro" :weight 'regular :height (cdr face)))
|
||
;; (set-face-attribute (car face) nil :font "SauceCodePro" :height (cdr face))))
|
||
|
||
;; AI
|
||
(defun gptel-add-key ()
|
||
"Read API key from file and ensure it's clean."
|
||
(string-trim
|
||
(with-temp-buffer
|
||
;; (insert-file-contents "~/.secrets/claude_key")
|
||
(insert-file-contents "~/.secrets/opencode_key")
|
||
(buffer-string))))
|
||
|
||
(after! chatgpt-shell
|
||
(setq chatgpt-shell-openai-key sbinfo/open-ai-key))
|
||
|
||
(use-package! elfeed-summarize
|
||
;; :ensure
|
||
:after elfeed
|
||
:init (require 'llm-openai)
|
||
:config
|
||
(setq elfeed-summarize-llm-provider
|
||
(make-llm-openai-compatible
|
||
:key (gptel-add-key)
|
||
:url "https://opencode.ai/zen/v1/"
|
||
:chat-model "nemotron-3-ultra-free"))
|
||
(elfeed-summarize-mode 1))
|
||
|
||
(after! org-ai
|
||
(add-hook 'org-mode-hook #'org-ai-mode)
|
||
(org-ai-install-yasnippets)
|
||
(setq org-ai-use-auth-source nil)
|
||
(setq org-ai-openai-api-token sbinfo/open-ai-key))
|
||
|
||
(use-package! gptel
|
||
:custom
|
||
;;(setq gptel-model "claude-3-7-sonnet-20250219")
|
||
(setq gptel-model "claude-sonnet-4-6")
|
||
:config (gptel-add-key)
|
||
|
||
(setq gptel-backend
|
||
(gptel-make-anthropic "Claude"
|
||
:stream t
|
||
:key #'gptel-add-key)))
|
||
|
||
;; (use-package! gptel
|
||
;; :config
|
||
;; )
|
||
|
||
(use-package! org-web-tools
|
||
:commands org-web-tools--url-as-readable-org)
|
||
|
||
(after! org
|
||
(add-hook! org-mode :append
|
||
#'flymake-vale-load)
|
||
|
||
(add-hook 'org-mode-hook #'sbinfo/org-mode-setup)
|
||
(setq org-directory "~/org/"
|
||
org-agenda-files '("agenda.org" "goals_2026.org" "Pillbox.org")
|
||
org-agenda-start-with-follow-mode t
|
||
org-default-notes-file (expand-file-name "notes.org" org-directory)
|
||
org-ellipsis " ▼ "
|
||
org-bullets-bullet-list '("◉" "○" "●" "○" "●" "○" "●")
|
||
org-adapt-indentation t
|
||
org-indent-indentation-per-level 4
|
||
org-log-done 'time
|
||
org-roam-directory "~/org/roam/"
|
||
;;org-journal-dir "~/Dropbox/Org/journal/"
|
||
;;org-journal-date-format "%B %d, %Y (%A) "
|
||
;;org-journal-file-format "%Y-%m-%d.org"
|
||
org-hide-emphasis-markers t
|
||
org-hide-leading-stars t
|
||
;; ex. of org-link-abbrev-alist in action
|
||
;; [[arch-wiki:Name_of_Page][Description]]
|
||
org-link-abbrev-alist ; This overwrites the default Doom org-link-abbrev-list
|
||
'(("ddg" . "https://duckduckgo.com/?q=")
|
||
("wiki" . "https://en.wikipedia.org/wiki/"))
|
||
org-todo-keywords ; This overwrites the default Doom org-todo-keywords
|
||
'((sequence
|
||
"TODO(t)" ; A task that is ready to be tackled
|
||
"BLOG(b)" ; Blog writing assignments
|
||
"PROJ(p)" ; A project that contains other tasks
|
||
"WAIT(w)" ; Something is holding up this task
|
||
"|" ; The pipe necessary to separate "active" states and "inactive" states
|
||
"DONE(d)" ; Task has been completed
|
||
"CANCELLED(c)" )) ; Task has been cancelled
|
||
org-capture-templates
|
||
'(("b" "Bookmark" entry
|
||
(file "~/org/bookmarksv2.org")
|
||
"* %^{title}\n#+date: %U\n- URL: %^{link}\n- Context: %?")
|
||
("c" "Coral Lane To-Do" checkitem
|
||
(file+headline "~/org/coral_lane_activities.org" "To Dos")
|
||
" [ ] %?\n")
|
||
("h" "Templates for hockey games")
|
||
("hp" "Playoff Game" entry
|
||
(file "~/org/dalvsminrd12026.org")
|
||
(file "~/org/templates/playoffcapture.orgtmpl") :unnarrowed t)
|
||
("hr" "Regular Game" entry
|
||
(file+headline "~/org/dallasstars20262027.org" "Dallas Stars 2026-2027 Season")
|
||
(file "~/org/templates/regular.orgtmpl") :unnarrowed t)
|
||
("i" "IT Request" checkitem
|
||
(file+headline "~/org/notes.org" "Future IT Requests")
|
||
" [ ] %?\n")
|
||
("n" "Personal Notes")
|
||
("nn" "Captured notes" entry
|
||
(file+headline "~/org/notes.org" "Inbox")
|
||
"* %u %?\n%i\n%a" :prepend t)
|
||
("np" "Note via org-protocol" entry
|
||
(file+headline "~/org/notes.org" "Web Clipper")
|
||
(file "~/org/templates/webclipper.orgtmpl") :immediate-finish nil)
|
||
("s" "Shopping Item" checkitem
|
||
(file+headline "~/org/Shopping.org" "Needs")
|
||
" [ ] %?\n")
|
||
("t" "Personal todo" entry
|
||
(file "~/org/agenda.org")
|
||
"* TODO %?\n%i\n"))
|
||
org-roam-capture-ref-templates
|
||
'(("w" "ref" plain "%(org-web-tools--url-as-readable-org \"${ref}\")"
|
||
:target (file+head "clips/${slug}.org" "#+title: ${title}\n")
|
||
:unnarrowed t))
|
||
)
|
||
|
||
;;("j" "Journal" entry
|
||
;;(file+olp+datetree +org-capture-journal-file)
|
||
;;"* %U %?\n%i\n%a" :prepend t)))
|
||
(sbinfo/org-font-setup))
|
||
|
||
(setq org-agenda-custom-commands
|
||
'(("d" "Today's Agenda"
|
||
(
|
||
(tags-todo "+afterfocus+SCHEDULED<\"<tomorrow>\""
|
||
((org-agenda-overriding-header "After Focus Items")))
|
||
(agenda "" ((org-agenda-span 3)
|
||
(org-agenda-start-day "-1d")))))
|
||
("p" "Pills Against the Ageless Ills" (
|
||
(agenda "" ((org-agenda-files '("/home/shawnb/org/Pillbox.org"))
|
||
(org-agenda-entry-types '(:scheduled))
|
||
(org-scheduled-past-days 0)
|
||
(org-agenda-overriding-header "Pills Against the Ageles Ills")))))))
|
||
|
||
(use-package! org-modern
|
||
:hook (org-mode . org-modern-mode)
|
||
:config
|
||
(setq org-modern-star '("◉" "○" "✸" "✿" "✤" "✜" "◆" "▶")
|
||
org-modern-table-vertical 1
|
||
org-modern-table-horizontal 0.2
|
||
org-modern-list '((43 . "➤")
|
||
(45 . "–")
|
||
(42 . "•"))
|
||
org-modern-todo-faces
|
||
'(("TODO" :inverse-video t :inherit org-todo)
|
||
("BLOG" :inverse-video t :inherit +org-todo-project)
|
||
("PROJ" :inverse-video t :inherit +org-todo-project)
|
||
("WAIT" :inverse-video t :inherit +org-todo-onhold)
|
||
("CANCELLED" :inverse-video t :inherit +org-todo-cancel))
|
||
org-modern-footnote
|
||
(cons nil (cadr org-script-display))
|
||
org-modern-block-fringe nil
|
||
org-modern-progress nil
|
||
org-modern-priority nil
|
||
org-modern-horizontal-rule (make-string 36 ?─)
|
||
)
|
||
(custom-set-faces! '(org-modern-statistics :inherit org-checkbox-statistics-todo)))
|
||
|
||
(use-package! websocket
|
||
:after org-roam)
|
||
|
||
(use-package! org-roam-ui
|
||
:after org
|
||
;; normally we'd recommend hooking orui after org-roam, but since org-roam does not have
|
||
;; a hookable mode anymore, you're advised to pick something yourself
|
||
;; if you don't care about startup time, use
|
||
;; :hook (after-init . org-roam-ui-mode)
|
||
:config
|
||
(setq org-roam-ui-sync-theme t
|
||
org-roam-ui-follow t
|
||
org-roam-ui-update-on-save t
|
||
org-roam-ui-open-on-start t))
|
||
|
||
(defun sbinfo/split-and-indirect-orgtree ()
|
||
"Splilts window to the right and opens an org tree section in it."
|
||
(interactive)
|
||
(split-window-right)
|
||
(windmove-right)
|
||
(org-tree-to-indirect-buffer))
|
||
|
||
(defun sbinfo/kill-and-unsplit-orgtree ()
|
||
"Kill the cloned buffer and deletes the window."
|
||
(interactive)
|
||
(kill-this-buffer)
|
||
(delete-window))
|
||
|
||
;; (require 'org-similarity)
|
||
|
||
;; (use-package! org-similarity
|
||
;; :config
|
||
;; (setq org-similarity-directory org-roam-directory))
|
||
;; (add-load-path! "~/.emacs.d/.local/straight/repos/org-similarity")
|
||
;; (require 'org-similarity)
|
||
;; (setq org-similarity-python-interpreter "/home/shawnb/.emacs.d/.local/straight/repos/org-similarity/venv/bin/python")
|
||
;; (setq org-similarity-directory org-roam-directory)
|
||
|
||
;; to turn off confirmations
|
||
(setq browse-url-dwim-always-confirm-extraction nil)
|
||
|
||
;; Todoist
|
||
(setq todoist-token "344745a4ca6497cbce38cc957cad0c59c5d91613")
|
||
|
||
;; Vale
|
||
(defvar my-flymake-vale-executable "/home/shawnb/.nix-profile/bin/vale")
|
||
(use-package! flymake-vale
|
||
:config
|
||
(setq flymake-vale-program my-flymake-vale-executable))
|
||
|
||
;; Auto create directories recursively
|
||
;; See https://emacsredux.com/blog/2022/06/12/auto-create-missing-directories/
|
||
(defun er-auto-create-missing-dirs ()
|
||
(let ((target-dir (file-name-directory buffer-file-name)))
|
||
(unless (file-exists-p target-dir)
|
||
(make-directory target-dir t))))
|
||
|
||
;; Run du -hc on a directory in Dired
|
||
(defun sbinfo/dired-du ()
|
||
"Run 'du -hc' on the directory under the cursor in Dired."
|
||
(interactive)
|
||
(let ((current-dir (dired-get-file-for-visit)))
|
||
(if (file-directory-p current-dir)
|
||
(dired-do-async-shell-command "du -hc" nil (list current-dir))
|
||
(message "The current point is not a directory."))))
|
||
|
||
(add-to-list 'find-file-not-found-functions #'er-auto-create-missing-dirs)
|
||
;; ACe Window
|
||
(global-set-key (kbd "M-o") 'ace-window)
|
||
(setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
|
||
;; nov
|
||
(use-package! nov
|
||
:config
|
||
(add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
|
||
)
|
||
|
||
(after! ledger-mode
|
||
(setq ledger-binary-path "hledger.sh")
|
||
(setq ledger-default-date-format "%Y-%m-%d"))
|
||
|
||
;; ================
|
||
;; Helper functions
|
||
;; ================
|
||
(defun my/org-hugo-link-vanilla-markdown (link desc info)
|
||
"Render org links as vanilla Markdown links instead of Hugo relref."
|
||
(let* ((type (org-element-property :type link))
|
||
(raw-path (org-element-property :path link))
|
||
(raw-link (org-element-property :raw-link link)))
|
||
(cond
|
||
;; External links - plain markdown
|
||
((member type '("http" "https" "ftp"))
|
||
(format "[%s](%s)" (or desc raw-link) raw-link))
|
||
;; ID links - resolve org-id to file slug
|
||
((string= type "id")
|
||
(let* ((id-location (org-id-find raw-path))
|
||
(file (when id-location (car id-location)))
|
||
(slug (if file
|
||
(file-name-sans-extension (file-name-nondirectory file))
|
||
raw-path)))
|
||
(format "[%s](%s)" (or desc slug) slug)))
|
||
;; Fuzzy/internal links - convert to anchor links
|
||
((string= type "fuzzy")
|
||
(format "[%s](#%s)" (or desc raw-path)
|
||
(org-hugo-slug raw-path)))
|
||
;; Default: use original behavior for other link types
|
||
(t nil))))
|
||
|
||
(defun my/org-hugo-link-advice (orig-fun link desc info)
|
||
"Advice to use vanilla Markdown links."
|
||
(or (my/org-hugo-link-vanilla-markdown link desc info)
|
||
(funcall orig-fun link desc info)))
|
||
|
||
(advice-add 'org-hugo-link :around #'my/org-hugo-link-advice)
|
||
|
||
;; (advice-remove 'org-hugo-link #'my/org-hugo-link-advice)
|
||
|
||
;; https://jamesendreshowell.com/2026-04-04-my-first-advice-in-emacs-lisp.html
|
||
(defun sbinfo/file-to-string (file)
|
||
"Return a string that is the contents of FILE."
|
||
(with-temp-buffer
|
||
(insert-file-contents file)
|
||
(buffer-string)))
|
||
|
||
;; Keeping count of pills/puffs in the Pillbox. Designed to mark a Pillbox task as CANCELLED
|
||
;; if the supply runs out.
|
||
;; Thanks, Claude
|
||
(defun sbinfo/decrement-org-property (property)
|
||
"Decrement PROPERTY on current heading by 1, clamping at zero.
|
||
When the value reaches zero, mark the task as CANCELLED."
|
||
(let* ((val (org-entry-get nil property))
|
||
(num (and val (string-to-number val))))
|
||
(when num
|
||
(cond
|
||
((> num 1)
|
||
(org-entry-put nil property (number-to-string (1- num))))
|
||
((= num 1)
|
||
(org-entry-put nil property "0")
|
||
(org-todo "CANCELLED")) ;; Already at zero — do nothing
|
||
))))
|
||
|
||
(defun sbinfo/on-recurring-task-done ()
|
||
"Decrement :REMAINING: when a recurring task is completed."
|
||
(when (and (string= org-state "DONE")
|
||
(org-entry-get nil "REMAINING"))
|
||
(sbinfo/decrement-org-property "REMAINING")))
|
||
|
||
(add-hook 'org-after-todo-state-change-hook #'sbinfo/on-recurring-task-done)
|
||
(defun sbinfo/org-capture-frame ()
|
||
(set-frame-parameter nil 'name "org-capture")
|
||
(org-capture))
|