wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Emacs] Tweaks for kat, including setting default initial TODO state

Browse Source
This commit is contained in:
Kat Huang 2023-08-20 21:47:42 +00:00
parent b8bc76212b
commit 388f6673eb
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
dotfiles/emacs.d/README.org
View File

@ -3017,6 +3017,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
(defvar imalison:org-dir "~/org") (defvar imalison:org-dir "~/org")
(defvar imalison:shared-org-dir "~/katnivan") (defvar imalison:shared-org-dir "~/katnivan")
(defvar imalison:org-whoami nil) (defvar imalison:org-whoami nil)
(defvar imalison:org-default-initial-state "TODO")
(use-package org (use-package org
:commands (org-mode org org-mobile-push org-mobile-pull org-agenda) :commands (org-mode org org-mobile-push org-mobile-pull org-agenda)
:mode ("\\.org\\'" . org-mode) :mode ("\\.org\\'" . org-mode)
@ -3038,7 +3039,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
(org-fold-catch-invisible-edits 'show) (org-fold-catch-invisible-edits 'show)
(org-edit-src-content-indentation 0) (org-edit-src-content-indentation 0)
(org-src-preserve-indentation t) (org-src-preserve-indentation t)
(org-refile-targets '((org-agenda-files . (:maxlevel . 1)) (org-refile-targets '((org-agenda-files . (:maxlevel . 2))
(org-agenda-files . (:level . 0)))) (org-agenda-files . (:level . 0))))
(org-refile-use-outline-path 'file) (org-refile-use-outline-path 'file)
(org-log-into-drawer t) (org-log-into-drawer t)
@ -3052,7 +3053,8 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
(org-agenda-skip-scheduled-if-done t) (org-agenda-skip-scheduled-if-done t)
(org-agenda-skip-deadline-if-done t) (org-agenda-skip-deadline-if-done t)
(org-agenda-window-setup 'other-window) (org-agenda-window-setup 'other-window)
(org-imenu-depth 10)) (org-imenu-depth 10)
(org-agenda-timegrid-use-ampm 1))
:preface :preface
(progn (progn
(require 'cl-lib) (require 'cl-lib)
@ -3062,7 +3064,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
arg)) arg))
(defun imalison:set-display-custom-times () (defun imalison:set-display-custom-times ()
(setq org-display-custom-times t)) (setq org-display-custom-times nil))
(setq org-goto-interface 'outline-path-completion (setq org-goto-interface 'outline-path-completion
org-goto-max-level 10 org-goto-max-level 10
@ -3122,7 +3124,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
(imalison:make-org-template (imalison:get-string-from-file filename))) (imalison:make-org-template (imalison:get-string-from-file filename)))
(cl-defun imalison:make-org-todo-template (cl-defun imalison:make-org-todo-template
(&key (content "%?") (creation-state "TODO")) (&key (content "%?") (creation-state imalison:org-default-initial-state))
(with-temp-buffer (with-temp-buffer
(org-mode) (org-mode)
(org-insert-heading) (org-insert-heading)
@ -3187,9 +3189,9 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
("STYLE_ALL" . "habit")))) ("STYLE_ALL" . "habit"))))
;; Record changes to todo states ;; Record changes to todo states
(setq org-todo-keywords (setq org-todo-keywords
'((sequence "IDEA(i!)" "RESEARCH(r!)" "TODO(t!)" "NEXT(n!)" '((sequence "INBOX(i!)" "TODO(t!)" "NEXT(n!)" "STARTED(s!)" "WAIT(w!)"
"STARTED(s!)" "WAIT(w!)" "BACKLOG(b!)" "|" "BACKLOG(b!)" "|" "DONE(d!)" "HANDLED(h!)" "EXPIRED(e!)"
"DONE(d!)" "HANDLED(h!)" "EXPIRED(e!)" "CANCELED(c!)"))) "CANCELED(c!)")))
(setq org-todo-repeat-to-state "TODO") (setq org-todo-repeat-to-state "TODO")
@ -3313,7 +3315,6 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
:disabled t :disabled t
:config :config
(progn (progn
(setq org-ehtml-docroot (expand-file-name "~/Dropbox/org"))
(setq org-ehtml-allow-agenda t) (setq org-ehtml-allow-agenda t)
(setq org-ehtml-editable-headlines t) (setq org-ehtml-editable-headlines t)
(setq org-ehtml-everything-editable t))) (setq org-ehtml-everything-editable t)))