about summary refs log tree commit diff
path: root/users/glittershark/emacs.d/org-config.el
diff options
context:
space:
mode:
Diffstat (limited to 'users/glittershark/emacs.d/org-config.el')
-rw-r--r--users/glittershark/emacs.d/org-config.el180
1 files changed, 0 insertions, 180 deletions
diff --git a/users/glittershark/emacs.d/org-config.el b/users/glittershark/emacs.d/org-config.el
deleted file mode 100644
index 59953dfeaaa0..000000000000
--- a/users/glittershark/emacs.d/org-config.el
+++ /dev/null
@@ -1,180 +0,0 @@
-;;; ~/.doom.d/org-config.el -*- 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/griffin/code/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/org-setup ()
-  (setq-local truncate-lines -1)
-  (line-number-mode -1))
-
-(add-hook 'org-mode-hook #'+grfn/org-setup)
-
-(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)