JaeUs/dotfiles
1
0
Fork 0
mirror of http://github.com/JaeUs3792/dotfiles synced 2025-12-14 16:11:34 +09:00
Code Issues Packages Projects Releases Wiki Activity

Emacs : change org todo sequence, calendar buffer

Browse Source
This commit is contained in:
JaeYoo-Im
2023-01-26 13:25:45 +09:00
parent d3e2d10df1
commit b7e31592eb
1 changed files with 37 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
.config/emacs/emacs.org
View File

@ -154,6 +154,9 @@ Emacs Configuration for emacs 29.50
(modify-syntax-entry ?_ "w") (modify-syntax-entry ?_ "w")
(setq visible-bell t) (setq visible-bell t)
;; split threshold
(setq split-width-threshold 160
split-height-threshold nil)
(add-hook 'emacs-startup-hook (add-hook 'emacs-startup-hook
(lambda () (lambda ()
(custom-set-faces (custom-set-faces
@ -827,26 +830,43 @@ Quick Action in minibuffer
***** configure org ***** configure org
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el
(setq org-directory "~/org") ; use for relative file location (setq org-directory "~/org") ; use for relative file location
(with-no-warnings
(custom-declare-face '+org-todo-active '((t (:inherit (bold font-lock-constant-face org-todo)))) "")
(custom-declare-face '+org-todo-project '((t (:inherit (bold font-lock-doc-face org-todo)))) "")
(custom-declare-face '+org-todo-onhold '((t (:inherit (bold warning org-todo)))) "")
(custom-declare-face '+org-todo-cancel '((t (:inherit (bold error org-todo)))) ""))
(use-package org (use-package org
:straight (:build t) :straight (:build t)
:defer t :defer t
:config :config
(add-hook 'org-mode-hook #'org-indent-mode) (add-hook 'org-mode-hook #'org-indent-mode)
(add-hook 'org-mode-hook #'org-fold-hide-drawer-all)
(setq org-todo-keywords (setq org-todo-keywords
'((sequence '((sequence
"TODO(t)" ; doing later "TODO(t)" ; A task that needs doing & is ready to do
"NEXT(n)" ; doing now or soon "PROJ(p)" ; A project, which usually contains other tasks
"STRT(s)" ; A task that is in progress
"WAIT(w)" ; Something external is holding up this task
"HOLD(h)" ; This task is paused/on hold because of me
"IDEA(i)" ; An unconfirmed and unapproved task or notion
"|" "|"
"DONE(d)" ; done "DONE(d)" ; Task successfully completed
) "KILL(k)") ; Task was cancelled, aborted or is no longer applicable
(sequence (sequence
"WAIT(w)" ; waiting for some external change (event) "[ ](T)" ; A task that needs doing
"HOLD(h)" ; waiting for some internal change (of mind) "[-](S)" ; Task is in progress
"IDEA(i)" ; maybe someday "[?](W)" ; Task is being held up or paused
"|" "|"
"NOTE(o@/!)" ; end state, just keep track of it "[X](D)") ; Task was completed
"STOP(s@/!)" ; stopped waiting, decided not to work on it ))
))) (setq org-todo-keyword-faces
'(("[-]" . +org-todo-active)
("STRT" . +org-todo-active)
("[?]" . +org-todo-onhold)
("WAIT" . +org-todo-onhold)
("HOLD" . +org-todo-onhold)
("PROJ" . +org-todo-project)
("KILL" . +org-todo-cancel)))
(setq org-ellipsis " ⤵" (setq org-ellipsis " ⤵"
org-hide-emphasis-markers t org-hide-emphasis-markers t
org-image-actual-width 600 org-image-actual-width 600
@ -1565,7 +1585,11 @@ calendar
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-extra.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-extra.el
(use-package calfw (use-package calfw
:straight (:build t) :straight (:build t)
:defer t) :ensure t)
(use-package calfw-org
:after calfw
:straight (:build t)
:ensure t)
#+end_src #+end_src
**** ELFEED **** ELFEED
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-extra.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-extra.el