193 lines
6.2 KiB
EmacsLisp
193 lines
6.2 KiB
EmacsLisp
;;; -*- lexical-binding: t; -*-
|
|
|
|
(defun notes-file (f)
|
|
(concat org-directory (if (string-prefix-p "/" f) "" "/") f))
|
|
|
|
(defun grfn/org-project-tag->key (tag)
|
|
(s-replace-regexp "^project__" "" tag))
|
|
|
|
(defun grfn/org-project-tag->name (tag)
|
|
(s-titleized-words
|
|
(s-join " " (s-split "_" (grfn/org-project-tag->key tag)))))
|
|
|
|
(defun grfn/org-project-tag->keys (tag)
|
|
(s-join "" (cons "p"
|
|
(-map (lambda (s) (substring-no-properties s 0 1))
|
|
(s-split "_" (grfn/org-project-tag->key tag))))))
|
|
|
|
(defun grfn/org-projects->agenda-commands (project-tags)
|
|
(loop for tag in project-tags
|
|
collect `(,(grfn/org-project-tag->keys tag)
|
|
,(grfn/org-project-tag->name tag)
|
|
tags-todo
|
|
,tag)))
|
|
|
|
(defun grfn/org-projects ()
|
|
(loop for (tag) in
|
|
(org-global-tags-completion-table
|
|
(directory-files-recursively "~/notes" "\\.org$"))
|
|
when (s-starts-with-p "project__" tag)
|
|
collect tag))
|
|
|
|
(comment
|
|
(grfn/org-projects->agenda-commands (grfn/org-projects))
|
|
)
|
|
|
|
(setq
|
|
org-directory (expand-file-name "~/notes")
|
|
+org-dir (expand-file-name "~/notes")
|
|
org-default-notes-file (concat org-directory "/inbox.org")
|
|
+org-default-todo-file (concat org-directory "/inbox.org")
|
|
org-agenda-files (directory-files-recursively
|
|
"~/notes" "\\.org$")
|
|
org-refile-targets '((org-agenda-files :maxlevel . 3))
|
|
org-outline-path-complete-in-steps nil
|
|
org-refile-use-outline-path t
|
|
org-file-apps `((auto-mode . emacs)
|
|
(,(rx (or (and "." (optional "x") (optional "htm") (optional "l") buffer-end)
|
|
(and buffer-start "http" (optional "s") "://")))
|
|
. "firefox %s")
|
|
(,(rx ".pdf" buffer-end) . "apvlv %s")
|
|
(,(rx "." (or "png"
|
|
"jpg"
|
|
"jpeg"
|
|
"gif"
|
|
"tif"
|
|
"tiff")
|
|
buffer-end)
|
|
. "feh %s"))
|
|
org-log-done 'time
|
|
org-archive-location "~/notes/trash::* From %s"
|
|
org-cycle-separator-lines 2
|
|
org-hidden-keywords '(title)
|
|
org-tags-column -130
|
|
org-ellipsis "…"
|
|
org-imenu-depth 9
|
|
org-capture-templates
|
|
`(("t" "Todo" entry
|
|
(file +org-default-todo-file)
|
|
"* TODO %?\n%i"
|
|
:kill-buffer t)
|
|
|
|
("m" "Email" entry
|
|
(file +org-default-todo-file)
|
|
"* TODO [[%L][%:subject]] :email:\n%i")
|
|
|
|
("n" "Notes" entry
|
|
(file +org-default-todo-file)
|
|
"* %U %?\n%i"
|
|
:prepend t
|
|
:kill-buffer t)
|
|
|
|
("c" "Task note" entry
|
|
(clock)
|
|
"* %U %?\n%i[%l[Context]]\n"
|
|
:kill-buffer t
|
|
:unnarrowed t)
|
|
|
|
("p" "Projects")
|
|
("px" "Xanthous" entry
|
|
(file+headline ,(notes-file "xanthous.org") "Backlog")
|
|
"* TODO %?\nContext %a\nIn task: %K")
|
|
("pt" "Tvix" entry
|
|
(file+headline ,(notes-file "tvix.org") "Tvix TODO")
|
|
"* TODO %?\nContext %a\nIn task: %K")
|
|
("pw" "Windtunnel" entry
|
|
(file+headline ,(notes-file "windtunnel.org") "Tasks")
|
|
"* TODO %i%?\nContext: %a\nIn task: %K")
|
|
|
|
("d" "Data recording")
|
|
)
|
|
|
|
org-capture-templates-contexts
|
|
`(("px" ((in-file . "/home/grfn/code/depot/users/grfn/xanthous/.*"))))
|
|
|
|
org-deadline-warning-days 1
|
|
org-agenda-skip-scheduled-if-deadline-is-shown 'todo
|
|
org-todo-keywords '((sequence "TODO(t)" "ACTIVE(a)" "|" "DONE(d)" "RUNNING(r)")
|
|
(sequence "NEXT(n)" "WAITING(w)" "LATER(l)" "|" "CANCELLED(c)"))
|
|
org-agenda-custom-commands
|
|
`(("S" "Sprint Tasks" tags-todo "sprint")
|
|
("i" "Inbox" tags "inbox")
|
|
("r" "Running jobs" todo "RUNNING")
|
|
("w" "@Work" tags-todo "@work")
|
|
("n" . "Next...")
|
|
("np" "Next Sprint" tags-todo "next_sprint|sprint_planning")
|
|
|
|
("p" . "Project...")
|
|
,@(grfn/org-projects->agenda-commands (grfn/org-projects)))
|
|
|
|
org-agenda-dim-blocked-tasks nil
|
|
org-enforce-todo-dependencies nil
|
|
|
|
org-babel-clojure-backend 'cider)
|
|
|
|
|
|
(defun +grfn/insert-work-template ()
|
|
(interactive)
|
|
(goto-char (point-min))
|
|
(forward-line)
|
|
(insert "#+TODO: TODO(t) NEXT(n) ACTIVE(a) | DONE(d) PR(p) RUNNING(r) TESTING(D)
|
|
#+TODO: BLOCKED(b) BACKLOG(l) PROPOSED(o) | CANCELLED(c)
|
|
#+FILETAGS: @work
|
|
#+FILETAGS: @work
|
|
#+PROPERTY: Effort_ALL 0 4:00 8:00 12:00 20:00 32:00
|
|
#+PROPERTY: ESTIMATE_ALL 0 1 2 3 5 8
|
|
#+PROPERTY: STORY-TYPE_ALL Feature Bug Chore
|
|
#+PROPERTY: NOBLOCKING t
|
|
#+COLUMNS: %TODO %40ITEM(Task) %17EFFORT(Estimated){:} %CLOCKSUM(Time Spent) %17STORY-TYPE(Type) %TAGS"))
|
|
|
|
(defun +grfn/insert-org-template ()
|
|
(interactive)
|
|
(pcase (buffer-file-name)
|
|
((s-contains "/work/") (+grfn/insert-work-template))))
|
|
|
|
;;; TODO: this doesn't work?
|
|
(define-auto-insert "\\.org?$" #'grfn/insert-org-template t)
|
|
|
|
(defun forge--post-submit-around---link-pr-to-org-item
|
|
(orig)
|
|
(let ((cb (funcall orig)))
|
|
(lambda (value headers status req)
|
|
(prog1 (funcall cb value headers status req)
|
|
(grfn/at-org-clocked-in-item
|
|
(let ((url (alist-get 'html_url value))
|
|
(number (alist-get 'number value)))
|
|
(org-set-property
|
|
"pull-request"
|
|
(org-make-link-string
|
|
url
|
|
(format "%s/%s/%d"
|
|
(->> value
|
|
(alist-get 'base)
|
|
(alist-get 'repo)
|
|
(alist-get 'name))
|
|
(->> value
|
|
(alist-get 'base)
|
|
(alist-get 'repo)
|
|
(alist-get 'owner)
|
|
(alist-get 'login))
|
|
number)))))))))
|
|
|
|
(advice-add
|
|
#'forge--post-submit-callback
|
|
:around #'forge--post-submit-around---link-pr-to-org-item)
|
|
|
|
(defun +grfn/org-setup ()
|
|
(setq-local truncate-lines -1)
|
|
(display-line-numbers-mode -1)
|
|
(line-number-mode -1))
|
|
|
|
(add-hook 'org-mode-hook #'+grfn/org-setup)
|
|
|
|
(set-face-foreground 'org-block +solarized-s-base00)
|
|
(setq whitespace-global-modes '(not org-mode magit-mode vterm-mode))
|
|
(setf (alist-get 'file org-link-frame-setup) 'find-file-other-window)
|
|
(set-face-foreground 'org-block +solarized-s-base00)
|
|
|
|
;; (add-hook! org-mode
|
|
;; (set-company-backend! 'org-mode
|
|
;; '(:separate company-ob-postgresql
|
|
;; company-dabbrev
|
|
;; company-yasnippet
|
|
;; company-ispell)))
|