From 16b4c9ed8f62dccce9a3ec32810077a9140f8925 Mon Sep 17 00:00:00 2001
From: bard <bard@ramiel.attlocal.net>
Date: Sun, 8 Oct 2023 15:12:47 -0400
Subject: module files migration complete

---
 bard-emacs-modules/bard-emacs-org.el | 116 +++++++++++++++++++++++++++++++++++
 1 file changed, 116 insertions(+)
 create mode 100644 bard-emacs-modules/bard-emacs-org.el

(limited to 'bard-emacs-modules/bard-emacs-org.el')

diff --git a/bard-emacs-modules/bard-emacs-org.el b/bard-emacs-modules/bard-emacs-org.el
new file mode 100644
index 0000000..1e0c551
--- /dev/null
+++ b/bard-emacs-modules/bard-emacs-org.el
@@ -0,0 +1,116 @@
+;; |------------------------------------|
+;; |            Org Config              |
+;; |------------------------------------|
+
+(require 'bard-emacs-ui)
+
+;; Org Variables
+(setq org-directory "~/Notes/Org-Roam/")
+(setq org-agenda-files (list "~/Notes/Org-Roam/todo.org"))
+(add-hook 'org-mode-hook 'bard/text-hook)
+(add-hook 'org-agenda-mode-hook 'hl-todo-mode)
+
+;; Making org mode look nice
+(setq org-startup-indented t
+        org-hide-emphasis-markers t
+        org-startup-with-inline-images t
+        org-image-actual-width '(300))
+
+;; Org todo keywords
+(setq org-todo-keywords
+      '((sequence "TODO" "WAIT" "DONE")))
+
+;; Org Cliplink
+(global-set-key (kbd "C-x p i") 'org-cliplink)
+
+;; Org Agenda Faces
+(custom-set-faces '(org-agenda-structure ((t (:inherit bold :foreground "#70a89f" :height 1.5 :family "Iosevka Comfy Motion Duo")))))
+
+;; Org Agenda
+(defun bard/choose-agenda ()
+  "For viewing my custom agenda"
+  (interactive)
+  (let ((agenda-views '("Default" "Monthly" "Yearly")))
+    (setq chosen-view (completing-read "Choose an agenda view: " agenda-views))
+  (cond
+      ((string= chosen-view "Yearly")
+       (org-agenda nil "Y"))
+      ((string= chosen-view "Monthly")
+       (org-agenda nil "M"))
+      ((string= chosen-view "Default")
+       (org-agenda nil "D")))))
+
+(global-set-key (kbd "<f6>") 'bard/choose-agenda)
+
+;; Org Agenda
+(setq org-agenda-custom-commands
+      `(("D" "Daily agenda and top priority tasks"
+         ((tags-todo "*"
+                     ((org-agenda-skip-function '(org-agenda-skip-if nil '(timestamp)))
+                      (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                      (org-agenda-overriding-header "All Tasks \n")))
+          (agenda "" ((org-agenda-span 1)
+                      (org-agenda-start-day nil)
+                      (org-deadline-warning-days 0)
+                      (org-scheduled-past-days 0)
+                      ;; We don't need the `org-agenda-date-today'
+                      ;; highlight because that only has a practical
+                      ;; utility in multi-day views.
+                      (org-agenda-day-face-function (lambda (date) 'org-agenda-date))
+                      (org-agenda-format-date "%A %-e %B %Y")
+                      (org-agenda-overriding-header "Today's agenda \n")))
+          ;; write skip function that skips saturdays and sundays
+          (agenda "" ((org-agenda-span 7)
+                      (org-deadline-warning-days 0)
+                      (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                      (org-agenda-overriding-header "Upcoming this week \n")))))
+        ("Y" "Yearly view for all tasks"
+         ((agenda "" ((org-agenda-span 365)
+                      (org-deadline-warning-days 2)
+                      (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                      (org-agenda-overriding-header "Upcoming this Year\n")))))
+        ("M" "Monthly view for all tasks"
+         ((agenda "" ((org-agenda-span 31)
+                      (org-deadline-warning-days 2)
+                      (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                      (org-agenda-overriding-header "Upcoming this month\n")))))))
+
+;; Org capture templates
+(setq org-capture-templates
+      '(("h" "Homework" entry (file+olp "~/Notes/Org-Roam/todo.org" "Inbox" "Homework")
+         "* TODO %?")
+	("e" "Extra/Coding" entry (file+olp "~/Notes/Org-Roam/todo.org" "Inbox" "Extra/Coding")
+         "* TODO %?")
+        ("r" "Reading List" entry (file+olp "~/Notes/Org-Roam/todo.org" "Inbox" "Watch/Read List")
+         "* %?")
+        ("j" "Journal" entry (file+datetree "~/Notes/Org-Roam/journal.org")
+         "* %U %^{Title}\n  %?")
+        ("a" "Appointment" entry (file+heading "~/Notes/Org-Roam/todo.org" "Appointment")
+         "* %^{Task}\n  %^t\n  %?")))
+
+;; Org Roam capture templates
+(setq org-roam-capture-templates
+      '(("d" "default" plain
+         "\n* Tags: \n%? \n\n"
+         :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
+         :unnarrowed t)
+        ("n" "notes" plain
+         "\n\n\n* Tags :: %? \n\n* ${title} \n"
+         :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
+         :unnarrowed t)
+        ("b" "bio" plain
+         "#+ANKI_DECK: Bio \n\n* Tags :: [[id:cfe7bda9-b154-4d6b-989f-6af778a98cbd][Biology]] \n\n* %? \n"
+         :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
+         :unnarrowed t)
+        ("u" "apush" plain
+         "#+ANKI_DECK: APUSH \n\n* Tags :: [[id:06334c1d-5c06-4b70-bfd8-a074c0c36706][APUSH]] \n\n* %? \n"
+         :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
+         :unnarrowed t)
+        ("s" "snapshot" plain
+         (file "~/Notes/Org/snapshot_template.org")
+         :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
+         :unnarrowed t)
+        ("i" "idea" plain
+         "\n* Tags: \n%? \n\n"
+         :if-new (file+head "Ideas/%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
+         :unnarrowed t)))
-- 
cgit v1.2.3