anne/emacs
1
0
Fork 0
Code Activity

Updated init.el.org

Browse Source
This commit is contained in:
Anne
2025-10-31 16:31:48 +01:00
parent 0728d8f955
commit 20b8fceef8
1 changed files with 118 additions and 439 deletions
Download Patch File Download Diff File Expand all files Collapse all files

557
init.el.org
View File

@@ -1,8 +1,12 @@
#+title: init.el.org #+title: init.el.org
#+date: [2025-03-18 Tue] #+date: [2025-03-18 Tue]
#+lastmod: [2025-03-19 Wed 11:19] #+lastmod: [2025-10-31 Fri 16:29]
#+draft: false #+hugo_auto_set_lastmod: t
#+tags: emacs #+hugo_base_dir: ~/projects/blog.minded.net/
#+export_file_name: init.el.org.md
#+hugo_section: pages/emacs/
#+hugo_draft: true
#+hugo_tags: emacs
* My Emacs configuration * My Emacs configuration
:PROPERTIES: :PROPERTIES:
@@ -28,21 +32,13 @@ Or view this file on my blog: [[https://blog.minded.net/emacs][blog.minded.net/e
user-mail-address "anne@minded.net") user-mail-address "anne@minded.net")
#+end_src #+end_src
** System
#+begin_src elisp
(setq laptop-p (equal (system-name) "siskin"))
#+end_src
** Use-package ** Use-package
[[https://github.com/jwiegley/use-package]] [[https://github.com/jwiegley/use-package]]
#+begin_src elisp #+begin_src elisp
(require 'package) (require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")) (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
(package-initialize) (package-initialize)
(unless (package-installed-p 'use-package) (unless (package-installed-p 'use-package)
(package-refresh-contents) (package-refresh-contents)
(package-install 'use-package)) (package-install 'use-package))
@@ -51,7 +47,6 @@ Or view this file on my blog: [[https://blog.minded.net/emacs][blog.minded.net/e
#+end_src #+end_src
** Reload configuration ** Reload configuration
~M-x reload-emacs-init~ ~M-x reload-emacs-init~
#+begin_src elisp #+begin_src elisp
@@ -62,9 +57,7 @@ Or view this file on my blog: [[https://blog.minded.net/emacs][blog.minded.net/e
#+end_src #+end_src
** Customizations file ** Customizations file
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Saving-Customizations.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Saving-Customizations.html]]
You can choose to save customizations somewhere other than your initialization file. You can choose to save customizations somewhere other than your initialization file.
#+begin_src elisp #+begin_src elisp
@@ -72,10 +65,21 @@ You can choose to save customizations somewhere other than your initialization f
(load custom-file 'noerror 'nomessage) (load custom-file 'noerror 'nomessage)
#+end_src #+end_src
** TRAMP
https://www.gnu.org/software/emacs/manual/html_node/tramp/Auto_002dsave-File-Lock-and-Backup.html
#+begin_src elisp
(setq tramp-allow-unsafe-temporary-files t)
#+end_src
** zone-mode
#+begin_src elisp
(add-to-list 'auto-mode-alist '("/etc/bind/zones/" . zone-mode))
#+end_src
** Lock files ** Lock files
[[https://www.gnu.org/software/emacs/manual/html_node/elisp/File-Locks.html]] [[https://www.gnu.org/software/emacs/manual/html_node/elisp/File-Locks.html]]
If create-lockfiles is nil, Emacs does not lock files. If create-lockfiles is nil, Emacs does not lock files.
#+begin_src elisp :tangle no #+begin_src elisp :tangle no
@@ -83,7 +87,6 @@ If create-lockfiles is nil, Emacs does not lock files.
#+end_src #+end_src
** Yes-or-no prompts ** Yes-or-no prompts
[[https://www.emacswiki.org/emacs/YesOrNoP]] [[https://www.emacswiki.org/emacs/YesOrNoP]]
#+begin_src elispx1 #+begin_src elispx1
@@ -91,7 +94,6 @@ If create-lockfiles is nil, Emacs does not lock files.
#+end_src #+end_src
** Keeping buffers up-to-date ** Keeping buffers up-to-date
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Revert.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Revert.html]]
#+begin_src elisp #+begin_src elisp
@@ -99,149 +101,75 @@ If create-lockfiles is nil, Emacs does not lock files.
(setq global-auto-revert-non-file-buffers t) (setq global-auto-revert-non-file-buffers t)
#+end_src #+end_src
** Looks ** Disable startup screen
*** Initial frame configuration
[[https://www.gnu.org/software/emacs/manual/html_node/elisp/Initial-Parameters.html]]
A bigger frame for the gui of Emacs.
#+begin_src elisp
(add-to-list 'default-frame-alist '(height . 56))
(add-to-list 'default-frame-alist '(width . 132))
#+end_src
*** Frame font
[[https://www.gnu.org/software/emacs/manual/html_node/elisp/Frame-Font.html]]
#+begin_src elisp
(ignore-errors (set-frame-font "Roboto Mono-10"))
#+end_src
*** Disable startup screen
[[https://www.gnu.org/software/emacs/manual/html_node/elisp/Startup-Summary.html]] [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Startup-Summary.html]]
#+begin_src elisp #+begin_src elisp :tangle no
(setq inhibit-startup-screen nil) (setq inhibit-startup-screen nil)
#+end_src #+end_src
*** What to display ** What to display
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Frames.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Frames.html]]
I do like the menu bar after all. I do like the menu bar after all.
#+begin_src elisp #+begin_src elisp
(if laptop-p (scroll-bar-mode -1))
(tool-bar-mode -1) (tool-bar-mode -1)
;;(menu-bar-mode -1) ;;(menu-bar-mode -1)
(tooltip-mode -1) (tooltip-mode -1)
#+end_src #+end_src
*** Mode line column and line numbers ** Mode line column and line numbers
[[https://www.gnu.org/software/emacs/manual/html_node/efaq/Displaying-the-current-line-or-column.html]] [[https://www.gnu.org/software/emacs/manual/html_node/efaq/Displaying-the-current-line-or-column.html]]
#+begin_src elisp #+begin_src elisp
(column-number-mode t) (column-number-mode t)
#+end_src #+end_src
*** Mood-line ** Theme
#+begin_src elisp
(use-package ef-themes
:ensure t
:demand t
:config
(ef-themes-select 'ef-dream))
#+end_src
#+begin_src elisp
(custom-set-faces
'(helm-buffer-directory ((t (:extend t :background "dim gray" :foreground "DarkRed"))))
'(helm-ff-directory ((t (:extend t :background "dim gray" :foreground "DarkRed"))))
'(org-agenda-date-today ((t (:inherit org-agenda-date :underline nil))))
'(menu ((t (:background "magenta")))))
#+end_src
** Mood-line
[[https://gitlab.com/jessieh/mood-line]] [[https://gitlab.com/jessieh/mood-line]]
A lightweight, drop-in replacement for the default Emacs mode line configuration. A lightweight, drop-in replacement for the default Emacs mode line configuration.
#+begin_src elisp #+begin_src elisp
(use-package mood-line (use-package mood-line
:config (mood-line-mode)) :config (mood-line-mode)
(setq mood-line-format mood-line-format-default) ;;(setq mood-line-format mood-line-format-default)
(setq mood-line-format mood-line-format-default-extended)
(setq mood-line-glyph-alist mood-line-glyphs-unicode))
#+end_src #+end_src
*** DISABLED Diminish ** Suppress dialog boxes
[[https://github.com/myrjola/diminish.el]]
Diminish implements hiding or abbreviation of the mode line displays (lighters) of minor-modes.
With Mood-line there's no need to diminish
#+begin_src elisp :tangle no
(use-package diminish
:ensure t)
#+end_src
*** Suppress dialog boxes
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Dialog-Boxes.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Dialog-Boxes.html]]
#+begin_src elisp #+begin_src elisp
(setq use-dialog-box nil) (setq use-dialog-box nil)
#+end_src #+end_src
*** Sentences ** Sentences
[[https://www.gnu.org/software/emacs/manual/html_node/efaq/Filling-paragraphs-with-a-single-space.html]] [[https://www.gnu.org/software/emacs/manual/html_node/efaq/Filling-paragraphs-with-a-single-space.html]]
#+begin_src elisp #+begin_src elisp
(setq sentence-end-double-space nil) (setq sentence-end-double-space nil)
#+end_src #+end_src
*** DISABLED Rainbow delimiters ** Minibuffer
[[https://github.com/Fanael/rainbow-delimiters]]
#+begin_src elisp :tangle no
(use-package rainbow-delimiters
:init
(add-hook 'text-mode-hook #'rainbow-delimiters-mode)
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
#+end_src
*** Doom themes
[[https://github.com/doomemacs/themes]]
#+begin_src elisp
(use-package doom-themes
:ensure t
:config
(setq doom-themes-enable-bold t ; if nil, bold is universally disabled
doom-themes-enable-italic t ; if nil, italics is universally disabled
doom-themes-padded-modeline t)
(load-theme 'doom-vibrant t)
;;(setq doom-horizon-brighter-comments nil)
(setq doom-themes-treemacs-theme "doom-colors") ; use "doom-colors" for less minimal icon theme
(doom-themes-treemacs-config)
(doom-themes-org-config) ; corrects (and improves) org-mode's native fontification
(custom-set-faces
'(font-lock-comment-face ((t (:foreground "#6c6f93" :slant normal))))
'(org-hide ((t (:foreground "grey15"))))
'(org-scheduled-today ((t (:foreground "violet"))))
'(org-todo ((t (:foreground "magenta"))))
'(org-done ((t (:foreground "#9ca0a4" :bold nil :background "grey15"))))
'(org-tag ((t (:foreground "teal"))))
'(org-link ((t (:bold nil))))))
#+end_src
*** DISABLED all-the-icons
[[https://github.com/domtronn/all-the-icons.el]]
#+begin_src elisp :tangle no
(use-package all-the-icons
:if (display-graphic-p))
(use-package all-the-icons-dired
:after all-the-icons
:hook (dired-mode . all-the-icons-dired-mode))
#+end_src
*** Minibuffer
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Minibuffer-Edit.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Minibuffer-Edit.html]]
#+begin_src elisp #+begin_src elisp
@@ -249,18 +177,14 @@ With Mood-line there's no need to diminish
(setq max-mini-window-height 0.5) (setq max-mini-window-height 0.5)
#+end_src #+end_src
*** Word wrap ** Word wrap
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Visual-Line-Mode.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Visual-Line-Mode.html]]
#+begin_src elisp #+begin_src elisp
(add-hook 'text-mode-hook 'visual-line-mode) (add-hook 'text-mode-hook 'visual-line-mode)
#+end_src #+end_src
** Editing and moving around ** Mouse support
*** Mouse support
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Mouse-Input.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Mouse-Input.html]]
#+begin_src elisp #+begin_src elisp
@@ -269,74 +193,51 @@ With Mood-line there's no need to diminish
(context-menu-mode 1) (context-menu-mode 1)
#+end_src #+end_src
*** xclip ** Kill-line
[[https://elpa.gnu.org/packages/xclip.html]]
This package allows Emacs to copy to and paste from the GUI clipboard
when running in text terminal.
#+begin_src elisp
(use-package xclip
:if laptop-p
:init
(xclip-mode 1))
#+end_src
*** Kill-line
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Killing-by-Lines.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Killing-by-Lines.html]]
If non-nil, ~kill-line~ with no arg at start of line kills the whole line. If non-nil, ~kill-line~ with no arg at start of line kills the whole line.
#+begin_src elisp #+begin_src elisp
(setq kill-whole-line t) (setq kill-whole-line t)
#+end_src #+end_src
*** Indentation ** Indentation
[[https://www.gnu.org/software/emacs/manual/html_node/eintr/Indent-Tabs-Mode.html]] [[https://www.gnu.org/software/emacs/manual/html_node/eintr/Indent-Tabs-Mode.html]]
#+begin_src elisp #+begin_src elisp
(setq-default indent-tabs-mode nil) (setq-default indent-tabs-mode nil)
#+end_src #+end_src
*** Electric pair mode ** Electric pair mode
[[https://emacsdocs.org/docs/emacs/Matching]] [[https://emacsdocs.org/docs/emacs/Matching]]
#+begin_src elisp #+begin_src elisp
(electric-pair-mode 1) (electric-pair-mode 1)
#+end_src #+end_src
*** Overwrite highlighted region ** Overwrite highlighted region
[[https://www.gnu.org/software/emacs/manual/html_node/efaq/Replacing-highlighted-text.html]] [[https://www.gnu.org/software/emacs/manual/html_node/efaq/Replacing-highlighted-text.html]]
#+begin_src elisp #+begin_src elisp
(delete-selection-mode t) (delete-selection-mode t)
#+end_src #+end_src
*** Scrolling ** Scrolling
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Scrolling.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Scrolling.html]]
#+begin_src elisp #+begin_src elisp
(setq scroll-error-top-bottom t) (setq scroll-error-top-bottom t)
#+end_src #+end_src
*** Cursor ** Cursor
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Cursor-Display.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Cursor-Display.html]]
#+begin_src elisp #+begin_src elisp
(global-hl-line-mode t) (global-hl-line-mode t)
#+end_src #+end_src
*** Window handling ** Window handling
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Window-Convenience.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Window-Convenience.html]]
Winner mode is a global minor mode that records the changes in the window configuration (i.e., how the frames are partitioned into windows), so that you can undo them. Winner mode is a global minor mode that records the changes in the window configuration (i.e., how the frames are partitioned into windows), so that you can undo them.
#+begin_src elisp #+begin_src elisp
@@ -355,9 +256,7 @@ The Windmove package defines commands for moving directionally between neighbori
#+end_src #+end_src
** Crux ** Crux
[[https://github.com/bbatsov/crux]] [[https://github.com/bbatsov/crux]]
A Collection of Ridiculously Useful eXtensions for Emacs. crux bundles many useful interactive commands to enhance your overall Emacs experience. A Collection of Ridiculously Useful eXtensions for Emacs. crux bundles many useful interactive commands to enhance your overall Emacs experience.
#+begin_src elisp #+begin_src elisp
@@ -366,15 +265,15 @@ A Collection of Ridiculously Useful eXtensions for Emacs. crux bundles many usef
("C-a" . crux-move-beginning-of-line) ("C-a" . crux-move-beginning-of-line)
("C-c o" . crux-open-with) ("C-c o" . crux-open-with)
("C-k" . crux-kill-whole-line) ("C-k" . crux-kill-whole-line)
("C-c f" . crux-cleanup-buffer-or-region)
("C-x C-a" . crux-sudo-edit)
:config :config
(crux-with-region-or-buffer indent-region) (crux-with-region-or-buffer indent-region)
(crux-with-region-or-buffer untabify) (crux-with-region-or-buffer untabify)
(crux-with-region-or-line comment-or-uncomment-region) (crux-with-region-or-line comment-or-uncomment-region))
:hook (before-save-hook . crux-cleanup-buffer-or-region))
#+end_src #+end_src
** Dired ** Dired
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Dired.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Dired.html]]
#+begin_src elisp #+begin_src elisp
@@ -389,19 +288,14 @@ A Collection of Ridiculously Useful eXtensions for Emacs. crux bundles many usef
#+end_src #+end_src
** Unset C-z ** Unset C-z
Unset C-z which is bound to `suspend-frame' by default. Unset C-z which is bound to `suspend-frame' by default.
#+begin_src elisp #+begin_src elisp
(global-unset-key (kbd "C-z")) (global-unset-key (kbd "C-z"))
#+end_src #+end_src
** Saving files ** Backups
*** Backups
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Backup.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Backup.html]]
Automatically backup buffers/files into the ~.emacs.d/backup/ directory. Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
#+begin_src elisp #+begin_src elisp
@@ -413,8 +307,16 @@ Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
kept-old-versions 5) ; and how many of the old kept-old-versions 5) ; and how many of the old
#+end_src #+end_src
*** Auto save ** backup-walker
https://github.com/lewang/backup-walker
#+begin_src elisp
(use-package backup-walker
:bind
("C-c b" . backup-walker-start))
#+end_src
** Auto save
[[https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Save-Control.html]] [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Save-Control.html]]
#+begin_src elisp #+begin_src elisp
@@ -422,10 +324,10 @@ Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
auto-save-interval 200) ; number of keystrokes between auto-saves (default: 300) auto-save-interval 200) ; number of keystrokes between auto-saves (default: 300)
#+end_src #+end_src
*** Lastmod time stamp ** Lastmod time stamp
#+begin_src elisp #+begin_src elisp
(setq time-stamp-start "\\(^:last_modified: \\\\?[\[<]+\\|^#\\+lastmod: \\\\?[\[<]+\\|^;; lastmod: \\\\?[\[<]+\\)") (setq time-stamp-start "\\(^:last_modified: \\\\?[\[<]+\\|^:LASTMOD: \\\\?[\[<]+\\|^#\\+lastmod: \\\\?[\[<]+\\|^;; lastmod: \\\\?[\[<]+\\)")
(setq time-stamp-end "\\\\?[\]>]") (setq time-stamp-end "\\\\?[\]>]")
(setq time-stamp-format "%Y-%02m-%02d %3a %02H:%02M") (setq time-stamp-format "%Y-%02m-%02d %3a %02H:%02M")
(setq time-stamp-limit 12) (setq time-stamp-limit 12)
@@ -434,9 +336,7 @@ Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
#+end_src #+end_src
** Magit ** Magit
[[https://magit.vc/]] [[https://magit.vc/]]
[[https://systemcrafters.net/mastering-git-with-magit/introduction/]] [[https://systemcrafters.net/mastering-git-with-magit/introduction/]]
#+begin_src elisp #+begin_src elisp
@@ -444,57 +344,8 @@ Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
:ensure t) :ensure t)
#+end_src #+end_src
** Treemacs
[[https://github.com/Alexander-Miller/treemacs]]
A tree layout file explorer for Emacs.
#+begin_src elisp
(use-package treemacs
:ensure t
:defer t
:init
(with-eval-after-load 'winum
(define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
:config
(setq treemacs-show-hidden-files nil)
:bind
(:map global-map
("M-0" . treemacs-select-window)
("C-x t 1" . treemacs-delete-other-windows)
("C-x t t" . treemacs)
("<f8>" . treemacs)
("C-x t d" . treemacs-select-directory)
("C-x t B" . treemacs-bookmark)
("C-x t C-t" . treemacs-find-file)
("C-x t M-t" . treemacs-find-tag)))
(use-package treemacs-icons-dired
:hook (dired-mode . treemacs-icons-dired-enable-once)
:ensure t)
(use-package nerd-icons
;; :custom
;; The Nerd Font you want to use in GUI
;; "Symbols Nerd Font Mono" is the default and is recommended
;; but you can use any other Nerd Font if you want
;; (nerd-icons-font-family "Symbols Nerd Font Mono")
)
(use-package treemacs-nerd-icons
:config
(treemacs-load-theme "nerd-icons"))
(use-package treemacs-magit
:after (treemacs magit)
:ensure t)
#+end_src
** Which-key ** Which-key
[[https://github.com/justbur/emacs-which-key]] [[https://github.com/justbur/emacs-which-key]]
which-key is a minor mode for Emacs that displays the key bindings following your currently entered incomplete command (a prefix) in a popup. which-key is a minor mode for Emacs that displays the key bindings following your currently entered incomplete command (a prefix) in a popup.
#+begin_src elisp #+begin_src elisp
@@ -506,217 +357,8 @@ which-key is a minor mode for Emacs that displays the key bindings following you
(which-key-setup-side-window-bottom)) (which-key-setup-side-window-bottom))
#+end_src #+end_src
** Org Mode
[[https://orgmode.org/org.html]]
*** Org Mode on my laptop
#+begin_src elisp
(use-package org
:if laptop-p
:bind
(("C-c l" . org-store-link)
("C-c a" . org-agenda)
("C-c c" . org-capture))
:config
(setq org-directory "~/org"
org-default-notes-file "~/org/agenda/inbox.org"
org-attach-id-dir "~/org/data/")
;;(setq org-agenda-text-search-extra-files (directory-files-recursively "~/org/" "\\.org$"))
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(setq org-startup-indented nil
org-pretty-entities t
org-hide-emphasis-markers t
org-hide-leading-stars nil
org-startup-with-inline-images t
org-image-actual-width '(300)
org-tags-column 0
org-log-done 'time
org-log-into-drawer t
org-deadline-warning-days 7
org-refile-targets '((org-agenda-files :maxlevel . 5))
org-refile-use-outline-path 'file
org-outline-path-complete-in-steps nil
org-refile-allow-creating-parent-nodes 'confirm)
;;(setq org-blank-before-new-entry (quote ((heading) (plain-list-item))))
(advice-add 'org-refile :after 'org-save-all-org-buffers)
(setq org-capture-templates
'(("t" "Task" entry (file "~/org/agenda/todo.org") "* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:" :empty-lines 1)
("n" "Note" entry (file org-default-notes-file) "* %?\n:PROPERTIES:\n:CREATED: %U\n:END:" :empty-lines 1)
("j" "Journal entry" entry (file+olp+datetree "~/org/journal.org") "* %?" :unnarrowed t :empty-lines-after 1)
("J" "Journal entry on date" entry (file+olp+datetree "~/org/journal.org") "* %?" :time-prompt t :unnarrowed t :empty-lines-after 1)
("m" "Meeting" entry (file+olp+datetree "~/org/agenda/agenda.org") "* %?\n%T" :time-prompt t :tree-type month :empty-lines 1)
("a" "Agenda entry" entry (file+olp+datetree "~/org/agenda/agenda.org") "* %?\n%t" :time-prompt t :tree-type month :empty-lines 1)))
(setq org-todo-keywords
'((sequence "TODO(t)" "STARTED(s)" "WAITING" "SOMEDAY" "MAYBE" "|" "DONE(d)" "CANCELLED(c)")
(sequence "TOREAD(r)" "READING" "|" "READ")
(sequence "TOWATCH(w)" "WATCHING" "|" "WATCHED"))))
#+end_src
*** Org Mode on other systems
#+begin_src elisp
(use-package org
:if (not laptop-p)
:bind
(("C-c l" . org-store-link)
("C-c a" . org-agenda)
("C-c c" . org-capture))
:config
(setq org-directory "~/org"
org-default-notes-file "~/org/inbox.org"
org-agenda-files '("~/org"))
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(setq org-startup-indented nil
org-pretty-entities t
org-hide-emphasis-markers t
org-hide-leading-stars nil
org-startup-with-inline-images t
org-image-actual-width '(300)
org-tags-column 0
org-log-done 'time
org-log-into-drawer t
org-deadline-warning-days 7
org-refile-targets '((org-agenda-files :maxlevel . 5))
org-refile-use-outline-path 'file
org-outline-path-complete-in-steps nil
org-refile-allow-creating-parent-nodes 'confirm)
(advice-add 'org-refile :after 'org-save-all-org-buffers)
(setq org-capture-templates
'(("t" "Task" entry (file org-default-notes-file) "* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:CONTEXT: %a\n:END:" :empty-lines 1)
("n" "Note" entry (file org-default-notes-file) "* %?\n:PROPERTIES:\n:CREATED: %U\n:CONTEXT: %a\n:END:" :empty-lines 1))))
#+end_src
*** org-super-agenda
[[https://github.com/alphapapa/org-super-agenda]]
#+begin_src elisp
(use-package org-super-agenda
:if laptop-p
:after org-agenda
:init
(setq org-agenda-files '("~/org" "~/org/agenda" "~/org/notes"))
;;(setq org-agenda-text-search-extra-files (directory-files-recursively "~/org/" "\\.org$"))
(setq calendar-week-start-day 1)
(calendar-set-date-style 'european)
(setq calendar-time-display-form
'(24-hours ":" minutes
(if time-zone " (") time-zone (if time-zone ")")))
(setq org-agenda-format-date (lambda (date) (concat "\n" (org-agenda-format-date-aligned date))))
(setq org-agenda-start-day nil)
(setq org-agenda-span 'day)
(setq use-agenda-use-time-grid nil)
(setq org-agenda-start-on-weekday nil)
(setq org-agenda-include-diary nil)
(setq org-agenda-tags-column 0)
(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-include-deadlines t)
(setq org-agenda-block-separator nil)
(setq org-agenda-compact-blocks t)
(setq org-agenda-start-with-log-mode nil)
(setq org-agenda-sticky t)
(setq org-agenda-dim-blocked-tasks nil)
(setq org-agenda-custom-commands
'(("d" "Daily agenda"
((agenda "" ((org-super-agenda-groups
'((:discard (:todo "CANCELLED"))
(:discard (:file-path "someday"))
(:name none
:file-path "days"
:file-path "people"
:tag "day")
(:name "Scheduled"
:time-grid t)
(:auto-tags t
:order 5)
(:name "Today"
:and (:todo t :scheduled t)
:deadline t
:order 3)
))))))
("t" "Todo"
((agenda "" ((org-super-agenda-groups
'(
(:name none
:discard (:file-path "days")
:discard (:file-path "people")
:discard (:tag "day"))
(:auto-tags t
:order 5)
(:name "Today"
:and (:todo t :scheduled t :not (:todo "SOMEDAY"))
:deadline t
:order 3)
(:discard (:anything t))
))))
(alltodo "" ((org-agenda-overriding-header "\nUnscheduled")
(org-super-agenda-groups
'(
(:discard (:deadline t)
:discard (:scheduled t)
:discard (:todo "SOMEDAY")
:discard (:file-path "someday"))
(:auto-tags t
:order 0)
(:name "Tags: none"
:not (:scheduled t)
:and (:file-path "todo")
:order 9)
(:discard (:anything t))
))))))
("x" "Daily schedule"
((agenda "" ((org-super-agenda-groups
'(
(:name none
:file-path "days"
:file-path "people"
:tag "day")
(:name none
:time-grid nil)
(:name none
:discard (:todo t))
))))))))
:config
(org-super-agenda-mode t))
(if laptop-p
(defun pop-to-org-agenda (&optional split)
(interactive "P")
(org-agenda nil "d")
(delete-other-windows)
(treemacs)
(windmove-right)))
(if laptop-p
(global-set-key (kbd "<f5>") 'pop-to-org-agenda))
#+end_src
*** Org-appear
[[https://github.com/awth13/org-appear]]
Make invisible parts of Org elements appear visible.
#+begin_src elisp
(use-package org-appear
:load-path "~/.emacs.d/etc/elisp/org-appear"
:hook (org-mode . org-appear-mode)
:init
(setq org-appear-autolinks t))
#+end_src
Hide emphasis markers by default.
#+begin_src elisp
(setq org-hide-emphasis-markers t)
#+end_src
** Helm ** Helm
[[https://emacs-helm.github.io/helm/]] [[https://emacs-helm.github.io/helm/]]
Imagine a life without Helm... Imagine a life without Helm...
#+begin_src elisp #+begin_src elisp
@@ -741,14 +383,51 @@ Imagine a life without Helm...
("<tab>" . helm-execute-persistent-action))) ("<tab>" . helm-execute-persistent-action)))
#+end_src #+end_src
*** Helm-org ** Org-appear
[[https://github.com/awth13/org-appear]]
[[https://github.com/emacs-helm/helm-org]] Make invisible parts of Org elements appear visible.
#+begin_src elisp #+begin_src elisp
(use-package helm-org (use-package org-appear
:after helm :load-path "~/.emacs.d/etc/elisp/org-appear"
:config :hook (org-mode . org-appear-mode)
(add-to-list 'helm-completing-read-handlers-alist '(org-capture . helm-org-completing-read-tags)) :init
(add-to-list 'helm-completing-read-handlers-alist '(org-set-tags . helm-org-completing-read-tags))) (setq org-appear-autolinks t))
#+end_src
Hide emphasis markers by default.
#+begin_src elisp
(setq org-hide-emphasis-markers t)
#+end_src
** Org-roam
https://github.com/org-roam/org-roam
https://www.orgroam.com/
#+begin_src elisp
(use-package org-roam
:ensure t
;;:init
;;(setq org-roam-v2-ack t)
:custom
(org-roam-directory "~/org/notes")
(org-roam-completion-everywhere t)
(org-roam-capture-templates
'(("d" "default" plain "%?"
:target (file+head "%<%Y%m%d>-${slug}.org"
":PROPERTIES:\n:CREATED: %U\n:LASTMOD: []\n:END:\n#+title: ${title}\n\n\n")
:unnarrowed t)))
:config
(org-roam-db-autosync-mode)
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:42}" 'face 'org-tag)))
:bind (("C-c n l" . org-roam-buffer-toggle)
("C-c n f" . org-roam-node-find)
("C-c n i" . org-roam-node-insert)
("C-c n c" . org-roam-capture)
("C-c n d" . org-id-get-create)
("C-c n t" . org-roam-tag-add)
("C-c n u" . org-roam-tag-remove)
("C-c n a" . org-roam-alias-add)
("C-c n b" . org-roam-alias-remove)))
#+end_src #+end_src