Emacs: add DONE to org-agenda-skip-function

dot_config/emacs/early-init.el.tmpl

@@ -47,10 +47,10 @@
 
 ;; Restore `garbage-collect' and `file-name-handler-alist' settings
 (add-hook 'elpaca-after-init-hook
- (lambda ()
+          (lambda ()
-   (setq file-name-handler-alist default-file-name-handler-alist
+            (setq file-name-handler-alist default-file-name-handler-alist
-         gc-cons-percentage 0.1
+                  gc-cons-percentage 0.1
-         gc-cons-threshold (* 1024 1024 8))))
+                  gc-cons-threshold (* 1024 1024 8))))
 
 ;; Relocate `emacs-user-directory' to XDG_DATA_HOME
 (setq user-emacs-directory
@@ -88,12 +88,17 @@
 ;; Disable startup screen
 (setq inhibit-startup-screen t)
 
-;; Start in `fundamental-mode' instead of `lisp-interaction-mode' to avoid
+;; Start in `fundamental-mode' to prevent loading of non-essential packages
-;; loading unnecessary packages via hooks
 (setq initial-major-mode 'fundamental-mode)
 
-;; Visible bell only
+;; Visible bell in mode-line only
-(setq visible-bell t)
+(setq ring-bell-function
+      (lambda ()
+        (let ((orig_fg (face-foreground 'mode-line)))
+          (set-face-foreground 'mode-line "#F2804F")
+          (run-with-idle-timer 0.1 nil
+                               (lambda (fg) (set-face-foreground 'mode-line fg))
+                               orig_fg))))
 
 ;; Fonts
 {{- if eq .chezmoi.hostname "helix" }}
@@ -102,18 +107,21 @@
 (set-face-font 'fixed-pitch "Hack-24")
 (set-face-font 'variable-pitch "DejaVu Sans-24")
 {{- else }}
-(push '(font . "Hack-12") default-frame-alist)
+(push '(font . "Hack-11") default-frame-alist)
-(set-face-font 'default "Hack-12")
+(set-face-font 'default "Hack-11")
-(set-face-font 'fixed-pitch "Hack-12")
+(set-face-font 'fixed-pitch "Hack-11")
-(set-face-font 'variable-pitch "DejaVu Sans-12")
+(set-face-font 'variable-pitch "DejaVu Sans-11")
 {{- end }}
 
 ;; Some GUI options
-(push '(menu-bar-lines . 0) default-frame-alist)
+(let ((options '((undecorated . t)
-(push '(tool-bar-lines . 0) default-frame-alist)
+                 (menu-bar-lines . 0)
-(push '(vertical-scroll-bars) default-frame-alist)
+                 (tool-bar-lines . 0)
-(push '(background-color . "#282828") default-frame-alist)
+                 (vertical-scroll-bars)
-(push '(foreground-color . "#c6c6c6") default-frame-alist)
+                 (background-color . "#282828")
+                 (foreground-color . "#c6c6c6"))))
+  (dolist (option options)
+    (push option default-frame-alist)))
 
 ;; Make lsp-mode use plists
 (setenv "LSP_USE_PLISTS" "true")

dot_config/emacs/lisp/init-org.el

@@ -91,7 +91,7 @@
 
           ("mt" "Todo"
            entry (file+headline  ,(concat org-directory "/inbox.org") "You can do it!")
-           "** TODO [#B] %?\n:Created: %U\n "
+           "** TODO [#B] %?\n:CREATED: %U\n "
            :empty-lines 1)
 
           ("p" "Projects")
@@ -102,7 +102,7 @@
 
           ("pt" "Todo"
            entry (file+headline ,(concat org-directory "/inbox.org") "Project Tasks")
-           "** TODO [#B] %?\n:Created: %U\n%i\n%a\nNotes: "
+           "** TODO [#B] %?\n:CREATED: %U\n%i\n%a\nNotes: "
            :empty-lines 1)
 
           ("w" "Work")
@@ -113,7 +113,7 @@
 
           ("wt" "Todo"
            entry (file+headline  ,(concat org-directory "/inbox.org") "Work Tasks")
-           "** TODO [#B] %?\n:Created: %U\n%i\n%a\nNotes: "
+           "** TODO [#B] %?\n:CREATED: %U\n%i\n%a\nNotes: "
            :empty-lines 1)))
 
   ;; Headline appearance
@@ -162,7 +162,7 @@
                         ;; (org-agenda-prefix-format "  %-20:c%?-12t %s")
                         (org-agenda-remove-tags t)
                         (org-agenda-skip-function '(org-agenda-skip-entry-if
-                                                    'todo '("WONT-DO")))
+                                                    'todo '("DONE" "WONT-DO")))
                         (org-agenda-span 5)))
 
             (alltodo "" ((org-agenda-overriding-header "")