diff options
Diffstat (limited to 'config.org')
| -rw-r--r-- | config.org | 642 |
1 files changed, 642 insertions, 0 deletions
diff --git a/config.org b/config.org new file mode 100644 index 0000000..1992330 --- /dev/null +++ b/config.org @@ -0,0 +1,642 @@ +#+title: Emacs Configuration +#+startup: overview +#+DATE: 2026-03-24T10:00:00+11:00 +#+DRAFT: false +#+PROPERTY: header-args:emacs-lisp :results silent :tangle init.el + +* Early startup + +These settings have to exist before the first GUI frame is created, so they +tangle into =early-init.el=. + +#+begin_src emacs-lisp :tangle early-init.el +;;; early-init.el --- generated from config.org -*- lexical-binding: t; -*- + +;;; Commentary: + +;; This file is generated from config.org. Do not edit it directly. + +;;; Code: + +(dolist (parameter '((width . 140) + (height . 42))) + (add-to-list 'default-frame-alist parameter) + (add-to-list 'initial-frame-alist parameter)) +#+end_src + +* Bootstrapping + +This is the start of the main runtime entry point, which tangles into =init.el=. + +#+begin_src emacs-lisp +;;; init.el --- generated from config.org -*- lexical-binding: t; -*- + +;;; Commentary: + +;; This file is generated from config.org. Do not edit it directly. + +;;; Code: + +(let ((minver "27.1")) + (when (version< emacs-version minver) + (error "Your Emacs is too old -- this config requires v%s or higher" minver))) +(when (version< emacs-version "28.1") + (message + (concat + "Your Emacs is old, and some functionality in this config will be " + "disabled. Please upgrade if possible."))) +#+end_src + +* Shared paths and system identity + +These definitions set up the shared paths used by the rest of the +configuration, including the Org directory under =~/org/=. + +#+begin_src emacs-lisp + (defconst *spell-check-support-enabled* nil) + (defconst *is-a-windows* (memq system-type '(windows-nt ms-dos cygwin))) + (defconst *is-a-linux* (eq system-type 'gnu/linux)) + (defconst *is-a-mac* (eq system-type 'darwin)) + + (defun ss/home-path (path) + "Expand PATH relative to the user's home directory." + (expand-file-name path "~")) + + (defun ss/config-path (path) + "Expand PATH relative to `user-emacs-directory'." + (expand-file-name path user-emacs-directory)) + + (defun ss/org-path (path) + "Expand PATH relative to the Org directory." + (expand-file-name path (ss/home-path "org/"))) + + (provide 'init-paths) + + ;; Keep custom-set-variables out of the main config. + (setq custom-file (ss/config-path "custom.el")) +#+end_src + +* Package setup + +This section bootstraps packages and defines the archives the rest of the +configuration relies on. + +#+begin_src emacs-lisp + (eval-and-compile + (require 'package) + + (setq package-archives + (append '(("melpa" . "https://melpa.org/packages/")) + package-archives) + package-archive-priorities '(("gnu" . 10) + ("nongnu" . 8) + ("melpa" . 5)) + package-install-upgrade-built-in t + use-package-always-ensure nil) + + (package-initialize) + (require 'use-package)) +#+end_src + +* Interface defaults + +This section sets the visual defaults: theme, fonts, and frame behavior. + +#+begin_src emacs-lisp + (defconst ss/font-family "JetBrains Mono" + "Preferred font family for GUI Emacs.") + + (defconst ss/font-height 160 + "Preferred default font height for GUI Emacs.") + + (defconst ss/font-weight 'medium + "Preferred default font weight for GUI Emacs.") + + (defconst ss/frame-width 140 + "Preferred width for graphical Emacs frames, in columns.") + + (defconst ss/frame-height 42 + "Preferred height for graphical Emacs frames, in lines.") + + (defun ss/apply-frame-size (&optional frame) + "Apply the preferred size to FRAME when it is graphical. + If FRAME is nil, use the selected frame." + (let ((target-frame (or frame (selected-frame)))) + (when (display-graphic-p target-frame) + (set-frame-size target-frame ss/frame-width ss/frame-height)))) + + (defun ss/apply-font-faces () + "Apply the original JetBrains-based face setup." + (set-face-attribute + 'default nil + :family ss/font-family :height ss/font-height :weight ss/font-weight) + (set-face-attribute + 'fixed-pitch nil + :family ss/font-family :weight ss/font-weight) + (set-face-attribute + 'fixed-pitch-serif nil + :family ss/font-family :weight ss/font-weight)) + + (defun ss/disable-menu-bar () + "Disable the menu bar for the current frame/session." + (menu-bar-mode -1)) + + (add-hook 'after-make-frame-functions #'ss/apply-frame-size) + + (when (display-graphic-p) + (ss/apply-frame-size) + (ss/disable-menu-bar) + (tool-bar-mode -1) + (scroll-bar-mode -1) + (tooltip-mode -1) + (when (find-font (font-spec :name ss/font-family)) + (ss/apply-font-faces))) + + (unless (display-graphic-p) + (add-hook 'emacs-startup-hook #'ss/disable-menu-bar)) + + (setq inhibit-startup-message t + inhibit-startup-screen t + ring-bell-function 'ignore) + + (use-package modus-themes + :ensure nil + :no-require t + :config + (load-theme 'modus-vivendi t)) + + (line-number-mode 1) + (column-number-mode 1) + (show-paren-mode 1) + + ;; Disable all fringe indicators + (setq-default indicate-empty-lines nil) + (setq-default indicate-buffer-boundaries nil) + (setq-default fringe-indicator-alist nil) + +#+end_src + +* Modeline + +#+begin_src emacs-lisp + (use-package time + :ensure nil + :config + ;; Enable 24-hour time display without load average. + (setq display-time-24hr-format t + display-time-day-and-date t + display-time-default-load-average nil) + (display-time-mode 1)) + + ;; Customize modeline appearance - white background with line only on top + (set-face-attribute 'mode-line nil + :background "white" + :foreground "black" + :overline "gray50" + :underline nil + :box nil) + + (set-face-attribute 'mode-line-inactive nil + :background "gray95" + :foreground "gray40" + :overline "gray30" + :underline nil + :box nil) + + ;; Customize the modeline format with padding and right-aligned time + (setq-default mode-line-format + (list + ;; Left padding + " " + "%e" + mode-line-front-space + mode-line-mule-info + mode-line-client + mode-line-modified + mode-line-remote + mode-line-frame-identification + mode-line-buffer-identification + " " + mode-line-position + '(vc-mode vc-mode) + " " + mode-line-modes + ;; Right-align from here + '(:eval (propertize " " 'display '((space :align-to (- right 22))))) + mode-line-misc-info + ;; Right padding + " " + mode-line-end-spaces)) + +#+end_src + +* Editing defaults + +This section covers global editing behavior and a few startup-time tuning +choices. + +#+begin_src emacs-lisp + (set-language-environment "UTF-8") + (set-default-coding-systems 'utf-8) + (prefer-coding-system 'utf-8) + + (setq auto-save-default nil + backup-inhibited t + echo-keystrokes 0.1 + compilation-ask-about-save nil + mouse-wheel-scroll-amount '(1 ((shift) . 1)) + mouse-wheel-progressive-speed nil + mouse-wheel-follow-mouse t + scroll-step 1 + scroll-conservatively 101 + enable-recursive-minibuffers t + gc-cons-threshold (* 128 1024 1024) + read-process-output-max (* 4 1024 1024) + process-adaptive-read-buffering nil) + + (fset 'yes-or-no-p 'y-or-n-p) + (global-auto-revert-mode 1) + (delete-selection-mode 1) + + (setq-default indent-tabs-mode nil + fill-column 80 + tab-width 2 + indicate-empty-lines t + sentence-end-double-space nil) + +#+end_src + +* Dired + +On macOS, the system =ls= does not support GNU's =--dired= flag. Keeping +Dired on its built-in path avoids noisy directory listing errors when opening +folders from note helpers. + +#+begin_src emacs-lisp + (use-package dired + :ensure nil + :custom + (dired-use-ls-dired nil)) +#+end_src + +* Minibuffer completion + +This keeps completion close to standard Emacs behaviour while improving the +minibuffer prompts used throughout the notes workflow. Vertico provides the +UI, Orderless handles flexible matching, and Marginalia adds lightweight +annotations. + +#+begin_src emacs-lisp + (use-package vertico + :ensure t + :pin melpa + :init + (vertico-mode 1)) + + (use-package orderless + :ensure t + :pin melpa + :custom + (completion-styles '(orderless basic)) + (completion-category-defaults nil) + (completion-category-overrides '((file (styles basic partial-completion))))) + + (use-package marginalia + :ensure t + :pin melpa + :after vertico + :init + (marginalia-mode 1)) +#+end_src + +* Notes workflow + +This keeps the note-taking system deliberately small. Daily notes stay as plain +Org files in =~/org/daily/=, while longer-lived notes use Denote inside the +same root directory and rely on links for relationships. + +** Org foundations + +The Org setup establishes the shared directories, ensures the PARA structure is +present at startup, and provides a small helper for opening today's daily note +with the standard section layout already in place. Agenda views stay focused on +PARA notes, so project, area, and resource files can surface TODOs without +pulling in daily or archived notes. A small directory helper keeps PARA +subdirectories easy to create from the minibuffer before capturing into them. + +#+begin_src emacs-lisp + (use-package org + :ensure nil + :functions (denote-keywords-prompt) + :defines (denote-directory denote-use-directory denote-use-keywords) + :preface + (defconst ss/org-directory (expand-file-name "~/org/") + "Root directory for Org files.") + + (defconst ss/org-daily-directory (expand-file-name "daily/" ss/org-directory) + "Directory for plain daily Org notes.") + + (defconst ss/org-projects-directory (expand-file-name "projects/" ss/org-directory) + "Directory for project notes.") + + (defconst ss/org-areas-directory (expand-file-name "areas/" ss/org-directory) + "Directory for area notes.") + + (defconst ss/org-people-directory (expand-file-name "areas/people/" ss/org-directory) + "Directory for people notes.") + + (defconst ss/org-resources-directory (expand-file-name "resources/" ss/org-directory) + "Directory for resource notes.") + + (defconst ss/org-archives-directory (expand-file-name "archives/" ss/org-directory) + "Directory for archived notes.") + + (defconst ss/org-note-directories + (list ss/org-directory + ss/org-daily-directory + ss/org-projects-directory + ss/org-areas-directory + ss/org-people-directory + ss/org-resources-directory + ss/org-archives-directory) + "Directories that make up the note-taking workflow.") + + (defconst ss/org-agenda-directories + (list ss/org-projects-directory + ss/org-areas-directory + ss/org-resources-directory) + "Directories whose Org files feed the agenda.") + + (defconst ss/org-subdirectory-roots + `(("projects" . ,ss/org-projects-directory) + ("areas" . ,ss/org-areas-directory) + ("people" . ,ss/org-people-directory) + ("resources" . ,ss/org-resources-directory)) + "PARA roots offered when creating note subdirectories.") + + (defun ss/denote-capture-in-directory (directory &optional keywords &rest prompts) + "Start a Denote Org capture in DIRECTORY with KEYWORDS and PROMPTS. +If PROMPTS is empty, rely on `denote-prompts'." + (let* ((prompt-for-keywords (memq :keywords prompts)) + (denote-directory directory) + (denote-use-directory (unless (memq :subdirectory prompts) directory)) + (denote-use-keywords + (if prompt-for-keywords + (delete-dups (append keywords (denote-keywords-prompt))) + keywords))) + (if prompts + (denote-org-capture-with-prompts + (memq :title prompts) + nil + (memq :subdirectory prompts) + (memq :date prompts) + (memq :template prompts)) + (denote-org-capture)))) + + (defun ss/note-subdirectory-candidates (root) + "Return existing subdirectories under ROOT as relative paths." + (sort + (delete-dups + (mapcar (lambda (path) + (directory-file-name (file-relative-name path root))) + (seq-filter + #'file-directory-p + (directory-files-recursively root directory-files-no-dot-files-regexp t t)))) + #'string<)) + + (defun ss/create-note-subdirectory () + "Create a PARA subdirectory using minibuffer completion." + (interactive) + (let* ((root-name (completing-read + "PARA root: " + (mapcar #'car ss/org-subdirectory-roots) + nil t)) + (root (alist-get root-name ss/org-subdirectory-roots nil nil #'string=)) + (completion-extra-properties '(:category file)) + (subdirectory (completing-read + (format "Subdirectory in %s: " root-name) + (ss/note-subdirectory-candidates root) + nil nil)) + (target (expand-file-name subdirectory root)) + (existing (file-directory-p target))) + (make-directory target t) + (message "%s note directory: %s" + (if existing "Using existing" "Created") + target))) + + (defun ss/ensure-org-note-directories () + "Create the Org directories used by the notes workflow." + (mapc (lambda (directory) + (make-directory directory t)) + ss/org-note-directories)) + + (defun ss/ensure-org-agenda-loaded () + "Load Org agenda support before using agenda-specific helpers. +This ensures `org-agenda-file-regexp' and `org-agenda' are available." + (require 'org-agenda)) + + (defun ss/org-agenda-files () + "Return the Org files that should be scanned by the agenda." + (ss/ensure-org-agenda-loaded) + (delete-dups + (apply #'append + (mapcar (lambda (directory) + (if (file-directory-p directory) + (directory-files-recursively directory org-agenda-file-regexp) + nil)) + ss/org-agenda-directories)))) + + (defun ss/refresh-org-agenda-files () + "Refresh `org-agenda-files' from the current PARA directories." + (setq org-agenda-files (ss/org-agenda-files))) + + (defun ss/daily-note-path (&optional time) + "Return the file name for the daily note at TIME. +If TIME is nil, use the current date." + (expand-file-name + (format-time-string "%Y-%m-%d.org" time) + ss/org-daily-directory)) + + (defun ss/daily-note-template (&optional time) + "Return the initial contents for the daily note at TIME." + (format "#+title: %s\n\n* Tasks\n\n* Meetings\n\n* Notes\n\n* Open loops\n" + (format-time-string "%Y-%m-%d" (or time (current-time))))) + + (defun ss/ensure-daily-note (&optional time) + "Create the daily note for TIME when it does not exist. +Return the path to the note." + (let* ((date (or time (current-time))) + (file (ss/daily-note-path date))) + (unless (file-exists-p file) + (make-directory (file-name-directory file) t) + (with-temp-file file + (insert (ss/daily-note-template date)))) + file)) + + (defun ss/open-todays-note () + "Open today's daily Org note." + (interactive) + (find-file (ss/ensure-daily-note))) + + (defun ss/open-agenda () + "Refresh agenda files and invoke `org-agenda'." + (interactive) + (ss/ensure-org-agenda-loaded) + (ss/refresh-org-agenda-files) + (call-interactively #'org-agenda)) + :bind (("C-c a" . ss/open-agenda) + ("C-c c" . org-capture) + ("C-c n m" . ss/create-note-subdirectory) + ("C-c n d" . ss/open-todays-note)) + :config + (setq org-directory ss/org-directory + org-hide-emphasis-markers t) + (add-hook 'org-mode-hook + (lambda () + (setq-local org-hide-emphasis-markers t) + (font-lock-flush) + (font-lock-ensure))) + (ss/refresh-org-agenda-files) + (add-hook 'org-capture-after-finalize-hook #'ss/refresh-org-agenda-files) + (ss/ensure-org-note-directories)) +#+end_src + +** Capture entry points + +Daily capture goes to today's plain Org file. Denote capture uses Denote's own +Org integration so note identity, metadata, and directories stay under Denote's +control rather than custom code. The convenience templates set a few durable +defaults and prompt for subdirectory placement within the relevant PARA root. + +#+begin_src emacs-lisp + (use-package org-capture + :ensure nil + :after (org denote) + :config + (setq org-capture-templates + `(("d" "Daily") + ("dt" "Task" entry + (file+headline ,#'ss/ensure-daily-note "Tasks") + "* TODO %?") + ("dn" "Note" entry + (file+headline ,#'ss/ensure-daily-note "Notes") + "* %?") + ("dm" "Meeting" entry + (file+headline ,#'ss/ensure-daily-note "Meetings") + "* %<%H:%M> %?") + ("n" "Denote") + ("nn" "Generic" plain + (file denote-last-path) + (function + (lambda () + (denote-org-capture-with-prompts :title :keywords :subdirectory))) + :no-save t + :immediate-finish nil + :kill-buffer t + :jump-to-captured t) + ("np" "Project" plain + (file denote-last-path) + (function + (lambda () + (ss/denote-capture-in-directory + ss/org-projects-directory '("project") :title :keywords :subdirectory))) + :no-save t + :immediate-finish nil + :kill-buffer t + :jump-to-captured t) + ("na" "Area" plain + (file denote-last-path) + (function + (lambda () + (ss/denote-capture-in-directory + ss/org-areas-directory '("area") :title :keywords :subdirectory))) + :no-save t + :immediate-finish nil + :kill-buffer t + :jump-to-captured t) + ("nP" "Person" plain + (file denote-last-path) + (function + (lambda () + (ss/denote-capture-in-directory + ss/org-people-directory '("person") :title :keywords :subdirectory))) + :no-save t + :immediate-finish nil + :kill-buffer t + :jump-to-captured t) + ("nr" "Resource" plain + (file denote-last-path) + (function + (lambda () + (ss/denote-capture-in-directory + ss/org-resources-directory '("resource") :title :keywords :subdirectory))) + :no-save t + :immediate-finish nil + :kill-buffer t + :jump-to-captured t) + ("nm" "Meeting" plain + (file denote-last-path) + (function + (lambda () + (ss/denote-capture-in-directory + ss/org-directory '("meeting") :title :keywords :subdirectory))) + :no-save t + :immediate-finish nil + :kill-buffer t + :jump-to-captured t)))) +#+end_src + +** Denote + +Denote manages the durable notes. The folder layout reflects lifecycle, while +Denote handles naming, metadata, linking, and retrieval. + +#+begin_src emacs-lisp + (use-package denote + :ensure t + :after org + :bind (("C-c n n" . denote-open-or-create) + ("C-c n l" . denote-link)) + :config + (setq denote-directory ss/org-directory + denote-known-keywords '("area" "project" "person" "meeting" "1on1" "resource" "decision") + denote-prompts '(title keywords) + denote-org-capture-specifiers "%?") + (denote-rename-buffer-mode 1)) +#+end_src + +* Gptel workflow + +This keeps LLM chat available as a small workflow tool inside Emacs. GitHub +Copilot authentication is handled on demand by gptel, so there is no token +plumbing in this file. + +#+begin_src emacs-lisp + (use-package gptel + :ensure t + :init + (setq gptel-default-mode 'org-mode + gptel-model 'gpt-4o + gptel-backend (gptel-make-gh-copilot "Copilot")) + :bind (("C-c n g" . gptel) + ("C-c n s" . gptel-send) + ("C-c n r" . gptel-rewrite) + ("C-c n a" . gptel-add))) +#+end_src + +* Generated file footers + +The closing blocks just finish the generated startup files cleanly. + +#+begin_src emacs-lisp + +(when (file-exists-p custom-file) + (load custom-file nil 'nomessage)) + +;;; init.el ends here +#+end_src + +#+begin_src emacs-lisp :tangle early-init.el + +;;; early-init.el ends here +#+end_src |