From 8198e44befb0c066b622b11266649f0a8531edb9 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Mon, 21 Aug 2023 14:25:06 -0600 Subject: [PATCH] [Emacs] Miscellaneous org changes --- dotfiles/emacs.d/README.org | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index a246a1d0..41e3984c 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -3017,7 +3017,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 #+BEGIN_SRC emacs-lisp :tangle org-config.el (defvar imalison:org-dir "~/org") (defvar imalison:shared-org-dir "~/katnivan") -(defvar imalison:org-whoami nil) +(defvar imalison:org-whoami "Ivan Malison") (defvar imalison:org-default-initial-state "TODO") (use-package org :commands (org-mode org org-mobile-push org-mobile-pull org-agenda) @@ -3043,6 +3043,8 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 (org-refile-targets '((org-agenda-files . (:maxlevel . 2)) (org-agenda-files . (:level . 0)))) (org-refile-use-outline-path 'file) + (org-refile-allow-creating-parent-nodes t) + (org-outline-path-complete-in-steps nil) (org-log-into-drawer t) (org-log-reschedule t) (org-log-redeadline t) @@ -3055,7 +3057,10 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 (org-agenda-skip-deadline-if-done t) (org-agenda-window-setup 'other-window) (org-imenu-depth 10) - (org-agenda-timegrid-use-ampm 1)) + (org-agenda-timegrid-use-ampm 1) + (org-todo-repeat-to-state "TODO") + (org-agenda-span 10) + (org-agenda-start-day "-0d")) :preface (progn (require 'cl-lib) @@ -3251,11 +3256,6 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 "BACKLOG(b!)" "|" "DONE(d!)" "HANDLED(h!)" "EXPIRED(e!)" "CANCELED(c!)"))) - (setq org-todo-repeat-to-state "TODO") - - (setq org-agenda-span 10) - (setq org-agenda-start-day "-2d") - (setq org-columns-default-format "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM") @@ -3451,6 +3451,10 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 `(imalison:def-agenda-pred (>= (org-get-priority-at-point) ,priority))) + (require 'org-agenda) + (when (fboundp 'org-agenda-transient) + (bind-key "C-c a" 'org-agenda-transient)) + (let ((this-week-high-priority ;; The < in the following line has behavior that is opposite ;; to what one might expect. @@ -3486,6 +3490,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 (org-agenda-sorting-strategy '(user-defined-down))))) (next '(todo "NEXT")) (started '(todo "STARTED")) + (inbox '(todo "INBOX")) (missing-deadline '(tags-todo "-DEADLINE={.}/!" ((org-agenda-overriding-header @@ -3504,7 +3509,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 (org-agenda-skip-function 'imalison:assigned-to-me-agenda-pred))) ,due-today ,next - ,started + ,inbox ,this-week-high-priority ,recently-created) nil nil)