reorganize org-mode configuration
This commit is contained in:
parent
5952248b83
commit
8d6c84b9bd
1 changed files with 84 additions and 77 deletions
161
init.org
161
init.org
|
|
@ -208,7 +208,7 @@ then load it.
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
#+RESULTS:
|
#+RESULTS:
|
||||||
: [nil 26760 24522 367252 nil elpaca-process-queues nil nil 826000 nil]
|
: [nil 26768 31512 287826 nil elpaca-process-queues nil nil 20000 nil]
|
||||||
|
|
||||||
|
|
||||||
*** Wait for initial installations
|
*** Wait for initial installations
|
||||||
|
|
@ -1916,24 +1916,82 @@ templates to be generated. By default it uses
|
||||||
|
|
||||||
** Org Mode
|
** Org Mode
|
||||||
|
|
||||||
*** Configure Org Mode
|
*** Org Configuration
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(use-package org-mode
|
(use-package org
|
||||||
:mode "\\.org$"
|
:mode "\\.org$"
|
||||||
:ensure nil
|
:ensure nil
|
||||||
:after org
|
:custom
|
||||||
|
(org-return-follows-link t)
|
||||||
|
(org-mouse-1-follows-link t)
|
||||||
|
(org-link-descriptive t)
|
||||||
|
(org-agenda-skip-scheduled-if-done t)
|
||||||
|
(org-agenda-skip-deadline-if-done t)
|
||||||
|
(org-hide-emphasis-markers t)
|
||||||
|
|
||||||
|
(line-spacing 0.1)
|
||||||
|
(left-margin-width 2)
|
||||||
|
(right-margin-width 2)
|
||||||
|
|
||||||
|
(org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "WAITING(w)" "SOMEDAY(s)" "PROJ(p)"
|
||||||
|
"|" "DONE(d)" "CANCELED(c)")))
|
||||||
|
(org-todo-keywords-for-agenda '((sequence "NEXT(n)" "TODO(t)" "WAITING(w)" "SOMEDAY(s)" "PROJ(p)" "|" "DONE(d)" "CANCELED(c)")))
|
||||||
|
(org-agenda-files (list
|
||||||
|
"~/Nextcloud/org/"
|
||||||
|
"~/org/snamellit/"
|
||||||
|
"~/org/customer/"
|
||||||
|
"~/org/personal/"
|
||||||
|
"~/.org-jira/"
|
||||||
|
))
|
||||||
|
(org-refile-targets '(
|
||||||
|
(org-agenda-files . (:level . 1))
|
||||||
|
("~/org/customer/gtd.org" . (:level . 1))
|
||||||
|
("~/org/personal/bijen.org" . (:level . 1))
|
||||||
|
("~/org/personal/fitness.org" . (:level . 1))
|
||||||
|
))
|
||||||
|
(org-babel-load-languages '((emacs-lisp . t)
|
||||||
|
(shell . t)
|
||||||
|
(python . t)
|
||||||
|
(latex . t)
|
||||||
|
(scheme . t)
|
||||||
|
(plantuml . t)
|
||||||
|
(dot . t)))
|
||||||
|
|
||||||
:config
|
:config
|
||||||
(progn
|
(message "Configuring org mode")
|
||||||
(setq org-log-done 'time)
|
;; set files for agenda views
|
||||||
(setq org-confirm-babel-evaluate nil)
|
(setq +org-capture-todo-file "~/Nextcloud/org/inbox.org"
|
||||||
(setq org-export-babel-evaluate nil)
|
+org-capture-notes-file "~/Nextcloud/org/inbox.org"
|
||||||
(setq org-html-validation-link nil)
|
+org-capture-journal-file "~/Nextcloud/org/journal.org"
|
||||||
;; ... more stuff
|
+org-capture-projects-file "~/Nextcloud/org/projects.org")
|
||||||
)
|
(org-babel-do-load-languages 'org-babel-load-languages org-babel-load-languages)
|
||||||
)
|
(setq org-log-done 'time)
|
||||||
|
(setq org-confirm-babel-evaluate nil)
|
||||||
|
(setq org-export-babel-evaluate nil)
|
||||||
|
(setq org-html-validation-link nil)
|
||||||
|
:hook (
|
||||||
|
(org-mode . org-indent-mode)
|
||||||
|
)
|
||||||
|
:bind (
|
||||||
|
("C-c a" . org-agenda)
|
||||||
|
("C-c l" . org-store-link)
|
||||||
|
))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
|
#+RESULTS:
|
||||||
|
: org-store-link
|
||||||
|
|
||||||
|
*** Add org-contrib
|
||||||
|
|
||||||
|
Some modules are providedd by org-contrib, like exporting to
|
||||||
|
confluence
|
||||||
|
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(use-package org-contrib
|
||||||
|
:ensure t)
|
||||||
|
#+END_SRC
|
||||||
|
|
||||||
|
|
||||||
*** Mixed Pitch Support by Default in Org
|
*** Mixed Pitch Support by Default in Org
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defun snm-org-mode-config ()
|
(defun snm-org-mode-config ()
|
||||||
|
|
@ -1942,6 +2000,7 @@ templates to be generated. By default it uses
|
||||||
(visual-line-mode)
|
(visual-line-mode)
|
||||||
(turn-on-auto-fill)
|
(turn-on-auto-fill)
|
||||||
)
|
)
|
||||||
|
(add-hook 'org-mode-hook #'snm-org-mode-config)
|
||||||
|
|
||||||
(use-package org-bullets
|
(use-package org-bullets
|
||||||
:ensure t
|
:ensure t
|
||||||
|
|
@ -2047,6 +2106,7 @@ interactive to manually install the latest version if needed.
|
||||||
#+BEGIN_SRC emacs-lisp :tangle yes
|
#+BEGIN_SRC emacs-lisp :tangle yes
|
||||||
;; configure babel languages
|
;; configure babel languages
|
||||||
(use-package ob
|
(use-package ob
|
||||||
|
:ensure nil
|
||||||
:custom
|
:custom
|
||||||
(org-babel-load-languages '((emacs-lisp . t)
|
(org-babel-load-languages '((emacs-lisp . t)
|
||||||
(shell . t)
|
(shell . t)
|
||||||
|
|
@ -2209,14 +2269,6 @@ it in the same context. Hmmm.... sounds even better.
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
**** Export to Confluence
|
**** Export to Confluence
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
(use-package org-contrib
|
|
||||||
:ensure t)
|
|
||||||
#+END_SRC
|
|
||||||
|
|
||||||
#+RESULTS:
|
|
||||||
: [nil 26576 2769 688869 nil elpaca-process-queues nil nil 120000 nil]
|
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(use-package ox-confluence
|
(use-package ox-confluence
|
||||||
:after org-contrib
|
:after org-contrib
|
||||||
|
|
@ -2507,66 +2559,21 @@ the org tree and in the customer JIRA.
|
||||||
| w | Weekly Review | ((agenda ((org-agenda-overriding-header Completed Tasks) (org-agenda-skip-function (org-agenda-skip-entry-if 'nottodo 'done)) (org-agenda-span 'week))) (agenda ((org-agenda-overriding-header Unfinished Scheduled Tasks) (org-agenda-skip-function (org-agenda-skip-entry-if 'todo 'done)) (org-agenda-span 'week)))) |
|
| w | Weekly Review | ((agenda ((org-agenda-overriding-header Completed Tasks) (org-agenda-skip-function (org-agenda-skip-entry-if 'nottodo 'done)) (org-agenda-span 'week))) (agenda ((org-agenda-overriding-header Unfinished Scheduled Tasks) (org-agenda-skip-function (org-agenda-skip-entry-if 'todo 'done)) (org-agenda-span 'week)))) |
|
||||||
|
|
||||||
|
|
||||||
*** Org Configuration
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
(use-package org
|
|
||||||
:ensure nil
|
|
||||||
:demand t
|
|
||||||
:custom
|
|
||||||
(org-return-follows-link t)
|
|
||||||
(org-mouse-1-follows-link t)
|
|
||||||
(org-link-descriptive t)
|
|
||||||
(org-agenda-skip-scheduled-if-done t)
|
|
||||||
(org-agenda-skip-deadline-if-done t)
|
|
||||||
(org-hide-emphasis-markers t)
|
|
||||||
|
|
||||||
(line-spacing 0.1)
|
|
||||||
(left-margin-width 2)
|
|
||||||
(right-margin-width 2)
|
|
||||||
|
|
||||||
(org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "WAITING(w)" "SOMEDAY(s)" "PROJ(p)"
|
**** Context aware GTD
|
||||||
"|" "DONE(d)" "CANCELED(c)")))
|
|
||||||
(org-todo-keywords-for-agenda '((sequence "NEXT(n)" "TODO(t)" "WAITING(w)" "SOMEDAY(s)" "PROJ(p)" "|" "DONE(d)" "CANCELED(c)")))
|
Create agenda views for specific contexts
|
||||||
(org-agenda-files (list
|
|
||||||
"~/Nextcloud/org/"
|
#+BEGIN_SRC emacs-lisp
|
||||||
"~/org/snamellit/"
|
(add-to-list 'org-agenda-custom-commands '("b" "Busy Bees" ((tags-todo "+bees"))))
|
||||||
"~/org/customer/"
|
|
||||||
"~/org/personal/"
|
|
||||||
"~/.org-jira/"
|
|
||||||
))
|
|
||||||
(org-refile-targets '(
|
|
||||||
(org-agenda-files . (:level . 1))
|
|
||||||
("~/org/customer/gtd.org" . (:level . 1))
|
|
||||||
("~/org/personal/bijen.org" . (:level . 1))
|
|
||||||
("~/org/personal/fitness.org" . (:level . 1))
|
|
||||||
))
|
|
||||||
(org-babel-load-languages '((emacs-lisp . t)
|
|
||||||
(shell . t)
|
|
||||||
(python . t)
|
|
||||||
(latex . t)
|
|
||||||
(scheme . t)
|
|
||||||
(plantuml . t)
|
|
||||||
(dot . t)))
|
|
||||||
:config
|
|
||||||
(message "Configuring org mode")
|
|
||||||
;; set files for agenda views
|
|
||||||
(setq +org-capture-todo-file "~/Nextcloud/org/inbox.org"
|
|
||||||
+org-capture-notes-file "~/Nextcloud/org/inbox.org"
|
|
||||||
+org-capture-journal-file "~/Nextcloud/org/journal.org"
|
|
||||||
+org-capture-projects-file "~/Nextcloud/org/projects.org")
|
|
||||||
(org-babel-do-load-languages 'org-babel-load-languages org-babel-load-languages)
|
|
||||||
:hook (
|
|
||||||
(org-mode . snm-org-mode-config)
|
|
||||||
(org-mode . org-indent-mode)
|
|
||||||
)
|
|
||||||
:bind (
|
|
||||||
("C-c a" . org-agenda)
|
|
||||||
("C-c l" . org-store-link)
|
|
||||||
))
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
#+RESULTS:
|
#+RESULTS:
|
||||||
: org-store-link
|
| b | Busy Bees | ((tags-todo +bees)) |
|
||||||
|
| G | Customer GTD | ((alltodo .* ((org-agenda-files '(~/org/customer/ ~/.org-jira/)) (org-agenda-overriding-header Customer GTD)))) |
|
||||||
|
| w | Weekly Review | ((agenda ((org-agenda-overriding-header Completed Tasks) (org-agenda-skip-function (org-agenda-skip-entry-if 'nottodo 'done)) (org-agenda-span 'week))) (agenda ((org-agenda-overriding-header Unfinished Scheduled Tasks) (org-agenda-skip-function (org-agenda-skip-entry-if 'todo 'done)) (org-agenda-span 'week)))) |
|
||||||
|
|
||||||
|
|
||||||
** Denote
|
** Denote
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue