14 KiB
14 KiB
org-mode
tags :: emacs
tips
(org-num-mode)to show numbers
org-agenda
To display the list of clocked tasks in agenda, type L to pass in org-agenda-log-mode.
configuration
;; function needed to have nice name displayed by helm
(defun org-capture-todo ()
"Capture a todo."
(interactive)
(org-capture nil "t"))
(defun org-capture-pause ()
"Capture a pause."
(interactive)
(org-capture nil "p"))
(defun org-capture-review ()
"Capture a review."
(interactive)
(org-capture nil "r"))
(defun org-capture-work ()
"Capture a work."
(interactive)
(org-capture nil "w"))
(defun org-capture-meeting ()
"Capture time spend during meeting."
(interactive)
(org-capture nil "m"))
(defun org-capture-email ()
"Capture time spend in email."
(interactive)
(org-capture nil "e"))
(defun org-capture-chat ()
"Capture time spend in chat."
(interactive)
(org-capture nil "c"))
(defun fci-mode-override-advice (&rest args)
"https://github.com/alpaker/fill-column-indicator/issues/45.")
(defun org-publish-force ()
"Force publish blog by deleting the cache."
(interactive)
(save-excursion
(delete-directory org-publish-timestamp-directory t)
(org-publish "blog" t)))
(defun org-publish-current-file-keep-position ()
"Force publish blog by deleting the cache."
(interactive)
(save-excursion
(org-publish-current-file)))
(defun org-publish-current-project-keep-position ()
"Force publish blog by deleting the cache."
(interactive)
(save-excursion
(org-publish-current-project)))
(defun org-publish-assets ()
"Force publish assets."
(interactive)
(save-excursion
(org-publish "assets" t)))
(defun org-publish-draft ()
"Force publish assets."
(interactive)
(save-excursion
(org-publish "draft" t)))
(defun org-mode-config ()
"Org-mode."
;; EXPERIMENTAL
(setq helm-org-rifle-org-directories "~/.org/")
(setq helm-org-rifle-org-directories-filename-regex "\.org(\.gpg)?$")
(setq helm-org-rifle-directories-recursive t)
;; EXPERIMENTAL
(setq org-todo-keywords
'((sequence "TODO(t)"
"IN-PROGRESS(p)"
"|"
"DONE(d)"
"HOLD(h@/!)"
"CANCELED(c@/!)")
(sequence "|" "PAUSE(p)" "CHAT(c)" "EMAIL(e)" "MEETING(m)" "REVIEW(r)")))
(require 'org-download)
(setq-default org-download-image-dir "~/.org/img")
;; generate stable ids for headers, human readable, github-like
(require 'org-auto-id)
;; Align tags
(add-hook 'focus-in-hook
(lambda () (progn
(setq org-tags-column 60))
(org-align-all-tags)))
(add-hook 'focus-out-hook
(lambda () (progn
(setq org-tags-column 60))
(org-align-all-tags)))
;; org-sticky-full-path
(setq org-sticky-header-full-path 'full)
(setq org-sticky-header-heading-star ">")
(setq org-sticky-header-outline-path-separator "/")
;; src block indentation / editing / syntax highlighting
(setq org-src-fontify-natively t
org-src-window-setup 'current-window ;; edit in current window
org-src-strip-leading-and-trailing-blank-lines t
org-src-preserve-indentation t ;; do not put two spaces on the left
org-src-tab-acts-natively t)
;; Org Journal
(setq org-journal-dir "~/.org/journal/")
(setq org-journal-file-type "daily")
(setq org-journal-file-format "%Y-%m-%d.org")
(evil-leader/set-key "ooj" 'org-journal-new-entry)
(defvar birth-date "1977-03-05")
(defun str-time-to-year-float (date-str)
(/ (float-time
(apply 'encode-time
(mapcar (lambda (x) (if (null x) 0 x))
(parse-time-string date-str))))
(* 365.25 24 60 60)))
(defun y-date ()
"Number of year since my birth"
(let ((y (- (str-time-to-year-float (format-time-string "%Y-%m-%d" (current-time)))
(str-time-to-year-float birth-date))))
(format "∆y=%.2f (%d)" y (floor (* 365.25 y)))))
(defun my/journal-template ()
(mapconcat 'identity
`(,(format "#+Title: Journal (%s - %s)"
(format-time-string "%Y-%m-%d" (current-time))
(y-date))
"#+Author: Yann Esposito"
,(format "#+Date: [%s]" (format-time-string "%Y-%m-%d" (current-time)))
"#+STARTUP: showeverything"
""
"- tags :: [[id:ad2aac23-4550-4f9a-acf3-3bd2c5d0cb5e][journal]] "
""
"* Resumé Journée"
""
" | sommeil | ?/5 | horrible -> comme un bébé |"
" | activité φ | ?/5 | au lit -> activité sportive |"
" | nourriture | ?/5 | malbouffe -> saine |"
" | humeur | ?/5 | exécrable -> excellente |"
" | interêt | ?/5 | habituel -> exceptionel |"
""
"- Faits positifs"
"- Faits marquants"
"- Résumé des discussions intéressantes"
"- Réflexions/Éssais")
"\n"))
(setq org-journal-date-format "%Y-%m-%d %A")
(setq org-journal-file-header 'my/journal-template)
;; Org Roam
(setq org-roam-directory "~/.org/journal")
(setq org-roam-graph-viewer "/System/Applications/Preview.app/Contents/MacOS/Preview")
(setq org-roam-buffer-position 'left)
;; (setq org-roam-buffer "*my-buffer-name*")
(setq org-roam-buffer-width 0.4)
;; (setq org-roam-link-title-format "R:%s")
(setq org-roam-capture-templates
'(("d" "default" plain (function org-roam--capture-get-point)
"%?"
:file-name "%(format-time-string \"%Y-%m-%d--%H-%M-%SZ--${slug}\" (current-time) t)"
:head "#+TITLE: ${title}\n#+Author: Yann Esposito\n\ntags ::\nsource ::\n"
:unnarrowed t)))
(evil-leader/set-key "orr" 'org-roam)
(evil-leader/set-key "orf" 'org-roam-find-file)
(evil-leader/set-key "ori" 'org-roam-insert)
(evil-leader/set-key "orb" 'org-roam-switch-to-buffer)
(evil-leader/set-key "org" 'org-roam-graph)
(org-roam-mode +1)
;; Org Capture
;; Org capture is really neat. So for now I use these infos.
;; *** Templates
;; You can specify your own properties in the property list for the template, and then you can access those properties with plist-get and org-capture-plist. Here's a brief example:
;;
;; (defun my/expense-template ()
;; (format "Hello world %s" (plist-get org-capture-plist :account)))
;; (setq org-capture-templates '(("x" "Test entry 1" plain
;; (file "~/tmp/test.txt")
;; (function my/expense-template)
;; :account "Account:Bank")
;; ("y" "Test entry 2" plain
;; (file "~/tmp/test.txt")
;; (function my/expense-template)
;; :account "Account:AnotherBank")))
(setq org-capture-templates
'(("t" "todo" entry (file "~/.org/TODO.org")
"** TODO %?\n %U\n %a\n")
;; time tracker
("c" "chat" entry (file "~/.org/tracker.org")
"** CHAT %?\n %U\n %a\n" :clock-in t :clock-resume t)
("e" "email" entry (file "~/.org/tracker.org")
"** EMAIL %?\n %U\n %a\n" :clock-in t :clock-resume t)
("m" "meeting" entry (file "~/.org/tracker.org")
"** MEETING %? :meeting:\n %U\n %a\n" :clock-in t :clock-resume t)
("p" "pause" entry (file "~/.org/tracker.org")
"* PAUSE pause %?\n %U\n" :clock-in t :clock-resume t)
("r" "review" entry (file "~/.org/tracker.org")
"* REVIEW %?\n %U\n %a\n" :clock-in t :clock-resume t)
("w" "work" entry (file "~/.org/tracker.org")
"** IN-PROGRESS %?\n %U\n %a\n" :clock-in t :clock-resume t)))
(evil-leader/set-key "oc." 'org-capture)
(evil-leader/set-key "oct" 'org-capture-todo)
(evil-leader/set-key "occ" 'org-capture-chat)
(evil-leader/set-key "oce" 'org-capture-email)
(evil-leader/set-key "ocm" 'org-capture-meeting)
(evil-leader/set-key "ocp" 'org-capture-pause)
(evil-leader/set-key "ocr" 'org-capture-review)
(evil-leader/set-key "ocw" 'org-capture-work)
(evil-leader/set-key "ocof" 'org-capture-refile)
(evil-leader/set-key "ocol" 'org-capture-goto-last-stored)
(evil-leader/set-key "oxF" 'org-publish-force)
(evil-leader/set-key "oxf" 'org-publish-current-file-keep-position)
(evil-leader/set-key "oxp" 'org-publish-current-project-keep-position)
(evil-leader/set-key "oxa" 'org-publish-assets)
(evil-leader/set-key "oxd" 'org-publish-draft)
;; *** Projectile
(setq org-projectile-file "TODO.org")
;; *** Refile
;; to sync with beorg on iCloud
;; create a symlink named "~/.org" to iCloud dir for beorg
(when (not (file-symlink-p "~/.org"))
(if (not (file-exists-p "~/.org"))
(let ((icloudpath
(concat (getenv "HOME")
"/Library/Mobile Documents/iCloud~com~appsonthemove~beorg/Documents/org")))
(f-symlink icloudpath "~/.org"))
(message "%" "~/.org exists and is not a symlink to iCloud for beorg")))
;; Refile to either the =refile.org= file or to =agenda.org= org =standup.org=
(setq org-refile-target-files '("~/.org/tracker.org"))
(setq org-refile-targets
'((nil :maxlevel . 5)
(org-refile-target-files :maxlevel . 5)))
;; *** Agenda
(setq org-agenda-files '("~/.org/TODO.org" "~/.org/tracker.org"))
;; ** Org Annotate
;; Ability to take annotate some files, can of double usage with org-capture.
;; Still, I keep that keyboard shortcut here.
(defun my-org-settings ()
(org-display-inline-images)
(spacemacs/toggle-auto-fill-mode-on)
(setq fill-column 75)
(abbrev-mode)
(org-indent-mode))
(add-hook 'org-mode-hook #'my-org-settings)
(evil-leader/set-key "oa" 'org-annotate-file)
(setq org-annotate-file-storage-file "~/.org/annotations.org")
;; ** Org colums
;; I can pass in org-column view mode with SPC-o-v-c
(evil-leader/set-key "ovc" 'org-columns)
(setq org-columns-default-format
"%TODO %3PRIORITY %40ITEM(Task) %17Effort(Estimated Effort){:} %CLOCKSUM %8TAGS(TAG)")
;; ** Deft
(setq deft-extensions '("org" "gpg" "md" "txt"))
(setq deft-recursive t)
(setq deft-use-filter-string-for-filename t)
(setq deft-default-extension "org")
(setq deft-directory "~/.org")
;; ** Look and Feel
;; I like to have something different than ellipsis because I often use them
;; myself.
(setq org-ellipsis "⤵")
;; *** Colors
(setq solaryzed-yellow "#b58900")
(setq solaryzed-orange "#cb4b16")
(setq solaryzed-red "#d30102")
(setq solaryzed-magenta "#d33682")
(setq solaryzed-violet "#6c71c4")
(setq solaryzed-blue "#268bd2")
(setq solaryzed-cyan "#2aa198")
(setq solaryzed-green "#859900")
;; **** Spacemacs bug workaround
;; To handle a colorization bug; see https://github.com/syl20bnr/spacemacs/issues/9950
(add-hook 'org-mode-hook (lambda () (hl-todo-mode -1) nil))
;; **** Rainbow colors
(custom-theme-set-faces 'user `(org-level-1 ((t (:foreground ,solaryzed-green)))))
(custom-theme-set-faces 'user `(org-level-2 ((t (:foreground ,solaryzed-cyan)))))
(custom-theme-set-faces 'user `(org-level-3 ((t (:foreground ,solaryzed-blue)))))
(custom-theme-set-faces 'user `(org-level-4 ((t (:foreground ,solaryzed-violet)))))
(custom-theme-set-faces 'user `(org-level-5 ((t (:foreground ,solaryzed-magenta)))))
(custom-theme-set-faces 'user `(org-level-6 ((t (:foreground ,solaryzed-red)))))
(custom-theme-set-faces 'user `(org-level-7 ((t (:foreground ,solaryzed-orange)))))
(custom-theme-set-faces 'user `(org-level-8 ((t (:foreground ,solaryzed-yellow)))))
(setq org-priority-faces `((?A . (:background ,solaryzed-red :foreground "white" :weight bold))
(?B . (:foreground ,solaryzed-yellow))
(?C . (:foreground ,solaryzed-cyan))))
;; **** Keywords colors
(setq org-todo-keyword-faces
`(("TODO" . (:foreground ,solaryzed-orange :weight bold))
("IN-PROGRESS" . (:foreground ,solaryzed-yellow :weight bold))
("HOLD" . (:foreground ,solaryzed-violet :weight bold))
("DONE" . (:foreground ,solaryzed-green :weight bold))
("CANCELED" . (:foreground ,solaryzed-green :weight bold))
("CHAT" . (:foreground ,solaryzed-blue :weight bold))
("EMAIL" . (:foreground ,solaryzed-blue :weight bold))
("MEETING" . (:foreground ,solaryzed-blue :weight bold))
("PAUSE" . (:foreground ,solaryzed-cyan :weight bold))
("REVIEW" . (:foreground ,solaryzed-blue :weight bold))))
;; Org Babel
(org-babel-do-load-languages
'org-babel-load-languages
'(;; other Babel languages
(shell . t)
(haskell . t)
(plantuml . t)))
(setq org-plantuml-jar-path "~/bin/plantuml.jar")
;; https://github.com/alpaker/fill-column-indicator/issues/45
(advice-add 'org-html-fontify-code :around
(lambda (fun &rest args)
(advice-add 'fci-mode :override #'fci-mode-override-advice)
(let ((result (apply fun args)))
(advice-remove 'fci-mode #'fci-mode-override-advice)
result)))
;; FIX easytemplates issue
;; https://github.com/syl20bnr/spacemacs/issues/11798
(when (version<= "9.2" (org-version))
(require 'org-tempo)))