477 lines
18 KiB
EmacsLisp
477 lines
18 KiB
EmacsLisp
(menu-bar-mode -1)
|
|
(tool-bar-mode -1)
|
|
|
|
(require 'epa-file)
|
|
(epa-file-enable)
|
|
|
|
;; (setq epa-file-encrypt-to nil)
|
|
;; (setq epa-file-select-keys nil)
|
|
;; (setq epa-file-cache-passphrase-for-symmetric-encryption nil)
|
|
|
|
(setq org-startup-folded t)
|
|
(setq make-backup-files nil)
|
|
(setq auto-save-default nil)
|
|
|
|
(require 'package)
|
|
(require 'org-tempo)
|
|
|
|
(setq package-archives
|
|
'(("melpa" . "https://melpa.org/packages/")
|
|
("gnu" . "https://elpa.gnu.org/packages/")
|
|
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
|
|
|
|
(unless (package-installed-p 'use-package)
|
|
(package-refresh-contents)
|
|
(package-install 'use-package))
|
|
|
|
;; Enable use-package
|
|
(eval-when-compile
|
|
(require 'use-package))
|
|
|
|
(use-package org
|
|
:pin gnu)
|
|
|
|
(use-package gruvbox-theme
|
|
:config
|
|
(load-theme 'gruvbox-dark-medium t))
|
|
|
|
(use-package org-contrib
|
|
:ensure t
|
|
:init
|
|
(require 'org-depend)
|
|
(require 'org-protocol))
|
|
|
|
(use-package ace-window
|
|
:bind ("M-o" . ace-window))
|
|
|
|
(use-package org-bullets
|
|
:hook (org-mode . org-bullets-mode))
|
|
|
|
(use-package evil
|
|
:ensure t
|
|
:init
|
|
(setq evil-undo-system 'undo-redo)
|
|
:config
|
|
(evil-mode 1))
|
|
|
|
(use-package helm
|
|
:ensure t
|
|
:config
|
|
(helm-mode 1))
|
|
|
|
(use-package helm-org-rifle
|
|
:ensure t
|
|
:init
|
|
(global-set-key (kbd "C-c r") 'helm-org-rifle-agenda-files))
|
|
|
|
(setq aw-dispatch-always t)
|
|
|
|
(setq use-package-always-ensure t)
|
|
|
|
;; Must do this so the agenda knows where to look for my files
|
|
(setq org-agenda-files '("~/org"))
|
|
(setq org-agenda-files (delete "~/org/done.org" org-agenda-files))
|
|
|
|
;; When a TODO is set to a done state, record a timestamp
|
|
(setq org-log-done 'time)
|
|
(setq org-log-redeadline 'time)
|
|
(setq org-log-reschedule 'time)
|
|
|
|
;; Follow the links
|
|
;; (setq org-return-follows-link t)
|
|
|
|
;; Associate all org files with org mode
|
|
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
|
|
|
|
;; Make the indentation look nicer
|
|
(add-hook 'org-mode-hook 'org-indent-mode)
|
|
|
|
;; Remap the change priority keys to use the UP or DOWN key
|
|
(define-key org-mode-map (kbd "C-c <up>") 'org-priority-up)
|
|
(define-key org-mode-map (kbd "C-c <down>") 'org-priority-down)
|
|
|
|
;; Shortcuts for storing links, viewing the agenda, and starting a capture
|
|
(define-key global-map "\C-cl" 'org-store-link)
|
|
(define-key global-map "\C-ca" 'org-agenda)
|
|
(define-key global-map (kbd "C-c c") 'org-capture)
|
|
(define-key org-mode-map (kbd "C-c i") 'org-id-get-create)
|
|
(define-key org-mode-map (kbd "C-c p") 'org-set-property)
|
|
|
|
(global-set-key (kbd "C-c n") (lambda () (interactive) (find-file "~/org/notes.org")))
|
|
(global-set-key (kbd "C-c w") (lambda () (interactive) (find-file "~/org/work-log.org")))
|
|
|
|
(define-key helm-map (kbd "C-M-n") 'helm-next-source)
|
|
(define-key helm-map (kbd "C-M-p") 'helm-previous-source)
|
|
|
|
;; When you want to change the level of an org item, use SMR
|
|
(define-key org-mode-map (kbd "C-c C-g C-r") 'org-shiftmetaright)
|
|
|
|
;; Hide the markers so you just see bold text as BOLD-TEXT and not *BOLD-TEXT*
|
|
(setq org-hide-emphasis-markers t)
|
|
|
|
;; Wrap the lines in org mode so that things are easier to read
|
|
(add-hook 'org-mode-hook 'visual-line-mode)
|
|
|
|
;; (setq initial-buffer-choice
|
|
;; (lambda ()
|
|
;; (let ((agenda-buffer (org-agenda nil "a")))
|
|
;; (get-buffer "*Org Agenda*"))))
|
|
;; (setq org-agenda-window-setup 'only-window)
|
|
|
|
;; (setq org-agenda-include-diary t)
|
|
|
|
;; show :LOGBOOK:
|
|
(setq org-log-into-drawer t)
|
|
(setq org-log-done 'time)
|
|
|
|
;; evil
|
|
(define-key evil-normal-state-map (kbd "TAB") 'org-cycle) ;; return the standard functionality for TAB
|
|
|
|
(add-hook 'org-mode-hook (lambda () (org-load-modules-maybe t)))
|
|
;; (setq org-id-link-to-org-use-id t)
|
|
|
|
;; autosave org-mode buffers
|
|
(setq auto-save-timeout 20)
|
|
(add-hook 'auto-save-hook 'org-save-all-org-buffers)
|
|
|
|
;; archive
|
|
(setq org-archive-location "~/org/done.org::")
|
|
(defun archive-done-tasks ()
|
|
"Archive all tasks marked as DONE in the current buffer."
|
|
(interactive)
|
|
(org-map-entries 'org-archive-subtree "/DONE" 'file))
|
|
(define-key org-mode-map (kbd "C-c C-x C-d") 'archive-done-tasks)
|
|
|
|
;; disable autosave for some files
|
|
(defun disable-autosave-for-specific-file ()
|
|
"Disable auto-save-visited-mode for a specific file."
|
|
(when (string-equal (buffer-file-name)
|
|
(expand-file-name "~/org/private.org.gpg"))
|
|
(auto-save-visited-mode -1)))
|
|
|
|
(add-hook 'find-file-hook 'disable-autosave-for-specific-file)
|
|
|
|
(defun transform-square-brackets-to-round-ones(string-to-transform)
|
|
"Transforms [ into ( and ] into ), other chars left unchanged."
|
|
(concat
|
|
(mapcar #'(lambda (c) (if (equal c ?\[) ?\( (if (equal c ?\]) ?\) c))) string-to-transform)))
|
|
|
|
(when (display-graphic-p)
|
|
(let* ((variable-tuple
|
|
(cond ((x-list-fonts "JetBrainsMono Nerd Font") '(:font "JetBrainsMono Nerd Font"))
|
|
(nil (warn "Cannot find JetBrainsMono Nerd Font. Please install it."))))
|
|
(base-font-color (face-foreground 'default nil 'default))
|
|
(headline `(:inherit default :weight bold :foreground ,base-font-color)))
|
|
|
|
(custom-theme-set-faces
|
|
'user
|
|
`(org-level-8 ((t (,@headline ,@variable-tuple))))
|
|
`(org-level-7 ((t (,@headline ,@variable-tuple))))
|
|
`(org-level-6 ((t (,@headline ,@variable-tuple))))
|
|
`(org-level-5 ((t (,@headline ,@variable-tuple))))
|
|
`(org-level-4 ((t (,@headline ,@variable-tuple :height 1.0))))
|
|
`(org-level-3 ((t (,@headline ,@variable-tuple :height 1.1))))
|
|
`(org-level-2 ((t (,@headline ,@variable-tuple :height 1.2))))
|
|
`(org-level-1 ((t (,@headline ,@variable-tuple :height 1.3))))
|
|
`(org-document-title ((t (,@headline ,@variable-tuple :height 1.4 :underline nil)))))))
|
|
|
|
(setq org-capture-templates
|
|
'(
|
|
("p" "Private"
|
|
entry (file+headline "~/org/private.org.gpg" "Private")
|
|
"* %?"
|
|
:empty-lines 0)
|
|
|
|
("j" "Work Log Entry"
|
|
entry (file+datetree "~/org/work-log.org")
|
|
"* %?"
|
|
:empty-lines 0)
|
|
|
|
("l" "Link"
|
|
entry (file+headline "~/org/inbox.org" "Inbox")
|
|
"* %U %?\n %:annotation\n %:link"
|
|
:empty-lines 0)
|
|
|
|
("n" "Note"
|
|
entry (file+headline "~/org/notes.org" "Random Notes")
|
|
"** %?"
|
|
:empty-lines 0)
|
|
|
|
("r" "Grocery list"
|
|
entry (file+headline "~/org/grocery.org" "Grocery list")
|
|
"* NEED2BUY [#B] %?\n:PROPERTIES:\n:Created: %T\n:END:\n "
|
|
:empty-lines 0)
|
|
|
|
("g" "General To-Do"
|
|
entry (file+headline "~/org/todos.org" "General Tasks")
|
|
"* TODO [#B] %?\n:PROPERTIES:\n:Created: %T\n:END:\n "
|
|
:empty-lines 0)
|
|
|
|
("m" "Meeting"
|
|
entry (file+datetree "~/org/meetings.org")
|
|
"* %? :meeting:%^g \n:PROPERTIES:\n:Created: %T\n:END:\n** Notes\n** Action Items\n*** TODO [#A] "
|
|
:tree-type week
|
|
:clock-in t
|
|
:clock-resume t
|
|
:empty-lines 0)
|
|
|
|
("c" "Code To-Do"
|
|
entry (file+headline "~/org/todos.org" "Code Related Tasks")
|
|
"* TODO [#B] %?\n:PROPERTIES:\n:Created: %T\n:END:\n%i\nProposed Solution:\n"
|
|
:empty-lines 0)
|
|
|
|
|
|
("w" "Selected web capture"
|
|
entry (file+headline "~/org/web-selection.org" "Selected web capture")
|
|
"* %^{Title}\nSource: %u, %:link\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?"
|
|
:empty-lines 1)
|
|
|
|
("L" "Unselected web capture"
|
|
entry (file "~/org/web-links.org")
|
|
"** %(transform-square-brackets-to-round-ones \"%:description\")%?\n:PROPERTIES:\n:Created: %T\n:END:\n- %:link\n"
|
|
:empty-lines 1)))
|
|
|
|
(setq org-todo-keywords
|
|
'((sequence "TODO(t)" "NEED2BUY(n)" "PLANNING(p)" "IN-PROGRESS(i@/!)" "VERIFYING(v!)" "BLOCKED(b@)" "|" "DONE(d!)" "CANCELED(c@/!)" )
|
|
))
|
|
|
|
(setq org-todo-keyword-faces
|
|
'(
|
|
("TODO" . (:foreground "GoldenRod" :weight bold))
|
|
("PLANNING" . (:foreground "DeepPink" :weight bold))
|
|
("IN-PROGRESS" . (:foreground "Cyan" :weight bold))
|
|
("VERIFYING" . (:foreground "DarkOrange" :weight bold))
|
|
("BLOCKED" . (:foreground "Red" :weight bold))
|
|
("DONE" . (:foreground "LimeGreen" :weight bold))
|
|
("NEED2BUY" . (:foreground "Red" :weight bold))
|
|
))
|
|
|
|
|
|
;; Tags
|
|
(setq org-tag-alist '(
|
|
;; context
|
|
(:startgroup)
|
|
("@shop" . ?s)
|
|
("@home" . ?h)
|
|
("@outdoor" . ?o)
|
|
("@any" . ?a)
|
|
("@meeting" . ?m)
|
|
(:endgroup)
|
|
|
|
;; basic tags
|
|
(:startgroup)
|
|
("chores" . ?C)
|
|
("meeting" . ?M)
|
|
("finance" . ?F)
|
|
("sport" . ?S)
|
|
("code" . ?O)
|
|
("social" . ?I)
|
|
("productivity" . ?P)
|
|
("study" . ?U)
|
|
("privacy" . ?R)
|
|
("family" . ?A)
|
|
("travel" . ?T)
|
|
("life" . ?L)
|
|
("health" . ?H)
|
|
("friends" . ?E)
|
|
("hobby" . ?B)
|
|
("research" . ?G)
|
|
("article" . ?I)
|
|
(:endgroup)
|
|
|
|
;; Special tags
|
|
("CRITICAL" . ?X)
|
|
|
|
;; other tags
|
|
("backend")
|
|
("broken_code")
|
|
("frontend")
|
|
("hike")
|
|
("cycle")
|
|
("pkm")
|
|
("pentest")
|
|
("immigration")
|
|
("devops")
|
|
("pet")
|
|
("accomplishment")
|
|
("music")
|
|
("youtube")
|
|
("trash")
|
|
))
|
|
|
|
|
|
;; Tag colors
|
|
(setq org-tag-faces
|
|
'(
|
|
("@home" . (:foreground "mediumPurple1" :weight bold))
|
|
("@outdoor" . (:foreground "royalblue1" :weight bold))
|
|
("@shop" . (:foreground "forest green" :weight bold))
|
|
("QA" . (:foreground "sienna" :weight bold))
|
|
("chores" . (:foreground "yellow1" :weight bold))
|
|
("sport" . (:foreground "green yellow" :weight bold))
|
|
("finance" . (:foreground "tomato" :weight bold))
|
|
("privacy" . (:foreground "dark olive green" :weight bold))
|
|
("study" . (:foreground "aquamarine" :weight bold))
|
|
("productivity" . (:foreground "violet" :weight bold))
|
|
("family" . (:foreground "medium violet red" :weight bold))
|
|
("health" . (:foreground "DarkOrange1" :weight bold))
|
|
("code" . (:foreground "snow3" :weight bold))
|
|
("travel" . (:foreground "salmon4" :weight bold))
|
|
("life" . (:foreground "goldenrod1" :weight bold))
|
|
("friends" . (:foreground "plum4" :weight bold))
|
|
("hobby" . (:foreground "SeaGreen1" :weight bold))
|
|
("social" . (:foreground "RoyalBlue1" :weight bold))
|
|
("research" . (:foreground "deep sky blue" :weight bold))
|
|
("meeting" . (:foreground "magenta" :weight bold))
|
|
("CRITICAL" . (:foreground "red1" :weight bold))
|
|
)
|
|
)
|
|
|
|
|
|
;; Agenda View "d"
|
|
(defun air-org-skip-subtree-if-priority (priority)
|
|
"Skip an agenda subtree if it has a priority of PRIORITY.
|
|
|
|
PRIORITY may be one of the characters ?A, ?B, or ?C."
|
|
(let ((subtree-end (save-excursion (org-end-of-subtree t)))
|
|
(pri-value (* 1000 (- org-lowest-priority priority)))
|
|
(pri-current (org-get-priority (thing-at-point 'line t))))
|
|
(if (= pri-value pri-current)
|
|
subtree-end
|
|
nil)))
|
|
|
|
(setq org-agenda-skip-deadline-if-done t)
|
|
|
|
(setq org-agenda-custom-commands
|
|
'(
|
|
|
|
;; Daily Agenda & TODOs
|
|
("d" "Daily agenda and all TODOs"
|
|
|
|
;; Display items with priority A
|
|
((tags "PRIORITY=\"A\""
|
|
((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
|
|
(org-agenda-overriding-header "High-priority unfinished tasks:")))
|
|
|
|
;; View 7 days in the calendar view
|
|
(agenda "" ((org-agenda-span 7)))
|
|
|
|
;; Display items with priority B (really it is view all items minus A & C)
|
|
(alltodo ""
|
|
((org-agenda-skip-function '(or (air-org-skip-subtree-if-priority ?A)
|
|
(air-org-skip-subtree-if-priority ?C)
|
|
(org-agenda-skip-if nil '(scheduled deadline))))
|
|
(org-agenda-overriding-header "ALL normal priority tasks:")))
|
|
|
|
;; Display items with pirority C
|
|
(tags "PRIORITY=\"C\""
|
|
((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
|
|
(org-agenda-overriding-header "Low-priority Unfinished tasks:")))
|
|
)
|
|
|
|
;; Don't compress things (change to suite your tastes)
|
|
((org-agenda-compact-blocks nil)))
|
|
|
|
;; My Super View
|
|
("j" "My Super View"
|
|
(
|
|
(agenda ""
|
|
(
|
|
(org-agenda-remove-tags t)
|
|
(org-agenda-span 7)
|
|
(org-agenda-skip-function
|
|
'(org-agenda-skip-entry-if 'todo 'done))
|
|
)
|
|
)
|
|
|
|
(alltodo ""
|
|
(
|
|
;; Remove tags to make the view cleaner
|
|
(org-agenda-remove-tags t)
|
|
(org-agenda-prefix-format " %t %s")
|
|
(org-agenda-overriding-header "CURRENT STATUS")
|
|
|
|
;; Define the super agenda groups (sorts by order)
|
|
(org-super-agenda-groups
|
|
'(
|
|
;; Filter where tag is CRITICAL
|
|
(:name "Critical Tasks"
|
|
:tag "CRITICAL"
|
|
:order 0
|
|
)
|
|
;; Filter where TODO state is IN-PROGRESS
|
|
(:name "Currently Working"
|
|
:todo "IN-PROGRESS"
|
|
:order 1
|
|
)
|
|
;; Filter where TODO state is BLOCKED or where the tag is obstacle
|
|
(:name "Problems & Blockers"
|
|
:todo "BLOCKED"
|
|
:order 3
|
|
)
|
|
;; Filter where tag is research
|
|
(:name "Research Required"
|
|
:tag "research"
|
|
:order 4
|
|
)
|
|
;; Filter where tag is chores
|
|
(:name "Chores"
|
|
:tag "chores"
|
|
:order 5
|
|
)
|
|
;; Filter where tag is meeting and priority is A (only want TODOs from meetings)
|
|
(:name "Meeting Action Items"
|
|
:and (:tag "meeting" :priority "A")
|
|
:order 6
|
|
)
|
|
;; Filter where state is TODO and the priority is A and the tag is not meeting
|
|
(:name "Other Important Items"
|
|
:and (:todo "TODO" :priority "A" :not (:tag "meeting"))
|
|
:order 7
|
|
)
|
|
;; Filter where state is TODO and priority is B
|
|
(:name "General Backlog"
|
|
:and (:todo "TODO" :priority "B")
|
|
:order 8
|
|
)
|
|
;; Filter where the priority is C or less (supports future lower priorities)
|
|
(:name "Non Critical"
|
|
:priority<= "C"
|
|
:order 9
|
|
)
|
|
;; Filter where TODO state is VERIFYING
|
|
(:name "Currently Being Verified"
|
|
:todo "VERIFYING"
|
|
:order 10
|
|
)
|
|
;; Filter where TODO state is PLANNING
|
|
(:name "Planning Next Steps"
|
|
:todo "PLANNING"
|
|
:order 11
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
))
|
|
))
|
|
(custom-set-variables
|
|
;; custom-set-variables was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
'(package-selected-packages '(gruvbox-theme ace-window)))
|
|
(custom-set-faces
|
|
;; custom-set-faces was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
'(org-document-title ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font" :height 1.4 :underline nil))))
|
|
'(org-level-1 ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font" :height 1.3))))
|
|
'(org-level-2 ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font" :height 1.2))))
|
|
'(org-level-3 ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font" :height 1.1))))
|
|
'(org-level-4 ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font" :height 1.0))))
|
|
'(org-level-5 ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font"))))
|
|
'(org-level-6 ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font"))))
|
|
'(org-level-7 ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font"))))
|
|
'(org-level-8 ((t (:inherit default :weight bold :foreground "#ebdbb2" :font "JetBrainsMono Nerd Font")))))
|