From f8c273e7fdabecf3b43c8fdbc7eb6ad6c109bc74 Mon Sep 17 00:00:00 2001 From: KemoNine Date: Tue, 11 Apr 2023 12:08:54 -0400 Subject: [PATCH] add day job initial config --- code/init.el | 9 ++++++++ common/workspaces.el | 25 ++++++++++++++++++++ org/config-org-agendas.el | 47 ++++++++++++++++++++++++++++++++++++++ org/config-org-capture.el | 18 +++++++++++++++ org/config-org-keyboard.el | 8 +++++++ org/init.el | 8 +++++++ 6 files changed, 115 insertions(+) diff --git a/code/init.el b/code/init.el index b8bb471..7ef5297 100644 --- a/code/init.el +++ b/code/init.el @@ -14,6 +14,11 @@ (setq kmn/is-termux (string-suffix-p "Android" (string-trim (shell-command-to-string "uname -a")))) +;; day job env? +(setq kmn/is-dayjob + (string= "PCE" (getenv "USERDOMAIN")) +) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; os specific config (when (eq system-type 'windows-nt) @@ -25,6 +30,10 @@ (add-to-list 'exec-path "C:/Users/mcros/OneDrive/Programs/PortableApps/sqlite3") (add-to-list 'exec-path "C:/Users/mcros/OneDrive/Programs/PortableApps/MultiMarkdown-Windows-6.6.0/bin") ) +(when kmn/is-dayjob + (setenv "HOME" "I:/") + (setq default-directory "I:/") +) (when kmn/is-termux ; setup storage locations -- cheat so mobile/desktop look alike for file urls ;(setq user-init-file "/data/data/com.termux/files/home/storage/shared/.emacs") diff --git a/common/workspaces.el b/common/workspaces.el index 1d0cf6a..c7a92c8 100644 --- a/common/workspaces.el +++ b/common/workspaces.el @@ -52,6 +52,31 @@ ) ) +(when kmn/is-dayjob +(defun kmn/workspace-org () + (interactive) + ; start with fresh frame + (delete-other-windows) + (kmn/kill-other-buffers) + (ignore-errors (kill-buffer "*scratch*")) + ; front load org-agenda so it doesnt reshuffle the frame layout on us + (org-agenda nil "r") + (split-window-below) + (next-multiframe-window) + ; show slipbox + (find-file "~/org/orgzly/_slipbox.org") + ; split window for additional file to show + (split-window-below) + (next-multiframe-window) + (find-file "~/org/_habits.org") + (find-file "~/org/_todo.org") + (find-file "~/org/_index.org") + ; switch to top of agenda window so most useful window is focused + (next-multiframe-window) + (goto-char 0) +) +) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; org-mode workspace for termux devices (mobile / android) (when (not kmn/is-dayjob) diff --git a/org/config-org-agendas.el b/org/config-org-agendas.el index a059714..459d4e2 100644 --- a/org/config-org-agendas.el +++ b/org/config-org-agendas.el @@ -90,6 +90,13 @@ "~/org/orgzly/_slipbox.org" )) ) +(when kmn/is-dayjob +(setq org-agenda-files (list + "~/org/_index.org" + "~/org/_slipbox.org" + "~/org/_todo.org" +)) +) (require 'org-super-agenda) (org-super-agenda-mode) @@ -186,3 +193,43 @@ ) ) ) +(when kmn/is-dayjob +(setq org-super-agenda-groups + '( + (:name "Habits" :habit t) + (:name "Active" + :todo ("WIP" "READY")) + (:name "Slip Box" :tag "slipbox") + (:name "To Do" :priority>= "C") + (:name "Low Priority" :priority< "C"))) + +(setq org-agenda-custom-commands + '( + ("r" "PCE" + ( + (agenda "" ( + (org-agenda-overriding-header "Scheduled") + (org-agenda-remove-tags t) + )) + (agenda "" ( + (org-agenda-overriding-header "Habits") + (org-agenda-files (list "~/org/_habits.org")) + (org-agenda-remove-tags t) + )) + (todo "WIP" ( + (org-agenda-overriding-header "WIP") + (org-agenda-remove-tags t) + )) + (todo "READY" ( + (org-agenda-overriding-header "Ready") + (org-agenda-remove-tags t) + )) + (tags-todo "-TODO=\"WIP\"-TODO=\"READY\"" ( + (org-agenda-overriding-header "") + (org-agenda-remove-tags t) + )) + ) + ) + ) +) +) diff --git a/org/config-org-capture.el b/org/config-org-capture.el index d230707..7c72252 100644 --- a/org/config-org-capture.el +++ b/org/config-org-capture.el @@ -168,3 +168,21 @@ ) )) ) +(when (not kmn/is-dayjob) +(setq org-capture-templates '( + ("d" "TODO (Main)" entry + (file "~/org/_todo.org") + (file "~/org/template_todo.org") + :prepend t + :immediate-finish "f" + :jump-to-captured "t" + ) + ("s" "TODO (Slipbox)" entry + (file "~/org/_slipbox.org") + (file "~/org/template_slipbox.org") + :prepend t + :immediate-finish "f" + :jump-to-captured "t" + ) +)) +) diff --git a/org/config-org-keyboard.el b/org/config-org-keyboard.el index d35dc62..50596cc 100644 --- a/org/config-org-keyboard.el +++ b/org/config-org-keyboard.el @@ -28,3 +28,11 @@ (lambda () (interactive) (find-file "~/org/culinary/_culinary.org")) ) ) +(when kmn/is-dayjob +(global-set-key (kbd "C-c t") + (lambda () (interactive) (find-file "~/org/_todo.org")) +) +(global-set-key (kbd "C-c s") + (lambda () (interactive) (find-file "~/org/_slipbox.org")) +) +) diff --git a/org/init.el b/org/init.el index db8d964..79026c0 100644 --- a/org/init.el +++ b/org/init.el @@ -13,6 +13,10 @@ (require 'subr-x) (setq kmn/is-termux (string-suffix-p "Android" (string-trim (shell-command-to-string "uname -a")))) +;; day job env? +(setq kmn/is-dayjob + (string= "PCE" (getenv "USERDOMAIN")) +) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; os specific config @@ -26,6 +30,10 @@ (add-to-list 'exec-path "C:/msys64/usr/bin/unzip.exe") (setenv "PATH" (concat "C:\\msys64\\mingw64\\bin;" (getenv "PATH"))) ) +(when kmn/is-dayjob + (setenv "HOME" "I:/") + (setq default-directory "I:/") +) (when kmn/is-termux ; setup storage locations -- cheat so mobile/desktop look alike for file urls ;(setq user-init-file "/data/data/com.termux/files/home/storage/shared/.emacs")