From df6574dc26b38747a24518bf32f31d9316953de4 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Mon, 29 Sep 2025 13:40:16 -0400
Subject: [PATCH] Switch back to org-mode from howm

HOWM very nice, but I miss the full-featured nature of org-mode.
---
 init.el             |  1 -
 re/re-org-defuns.el |  4 ++--
 re/re-packages.el   | 11 ++++++-----
 re/wobow-themes.el  | 22 +++++++++++-----------
 4 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/init.el b/init.el
index 85307cb..67a1514 100644
--- a/init.el
+++ b/init.el
@@ -22,7 +22,6 @@
 (add-hook 'after-init-hook
 	  (lambda ()
 	    (require 're-repl-defuns)
-	    (require 're-howm-defuns)
 	    (require 're-pass-alike)))
 
 (add-to-list 'auto-mode-alist '("\\.keymap\\'" . c-mode))
diff --git a/re/re-org-defuns.el b/re/re-org-defuns.el
index 6831f88..1fe9c92 100644
--- a/re/re-org-defuns.el
+++ b/re/re-org-defuns.el
@@ -13,10 +13,10 @@
   (interactive "P")
   (org-agenda arg "a"))
 
-(defun re/org-agenda-new-frame (&optional arg)
+(defun re/org-agenda-custom-new-frame (&optional arg)
   "Show my custom agenda in a new frame"
   (interactive "P")
-  (select-frame (make-frame '((name . "Org"))))
+  (select-frame (make-frame '((name . "ORG"))))
   (funcall #'re/org-agenda-show-custom))
 
 (defun re/org-auto-generate-ids-in-file ()
diff --git a/re/re-packages.el b/re/re-packages.el
index 4698704..0712d97 100644
--- a/re/re-packages.el
+++ b/re/re-packages.el
@@ -117,9 +117,9 @@
    ("C-c a" . org-agenda)
    ("C-c c" . org-capture)
    ("C-c b" . org-switchb)
-   ;; ("S-<f6>" . re/org-show-agenda)
-   ;; ("S-<f7>" . re/org-agenda-new-frame)
-   ;; ("S-<f8>" . re/org-agenda-show-custom)
+   ("<f6>" . re/org-show-agenda)
+   ("<f8>" . re/org-agenda-show-custom)
+   ("S-<f8>" . re/org-agenda-custom-new-frame)
    :map
    org-mode-map
    ("M-<right>" . org-shiftmetaright)
@@ -139,6 +139,7 @@
 	(append action-lock-default-rules
 		(list '("\\[Mtg\\]" (lambda (&optional dummy) (howm-create 2)))
 		      '("\\[Person\\]" (lambda (&optional dummy) (howm-create 3))))))
+  (require 're-howm-defuns)
   (require 're-howm-skeletons)
   (setq howm-template-list '("= %title%cursor\n%date %file\n\n"
 			     "= %title%cursor Meeting\n%date %file\n\nAttendees: \n"
@@ -156,8 +157,8 @@
   (add-hook 'after-save-hook 'howm-mode-set-buffer-name)
   (add-hook 'howm-mode-hook 'howm-mode-set-buffer-name)
   :bind
-  (("<f6>" . howm-menu)
-   ("<f8>" . re/howm-menu-new-frame)
+  (("S-<f6>" . howm-menu)
+   ;; ("S-<f8>" . re/howm-menu-new-frame)
    :map howm-mode-map
    ("C-c , k" . re/howm-create-keyword)))
 
diff --git a/re/wobow-themes.el b/re/wobow-themes.el
index 7053b9f..822b036 100644
--- a/re/wobow-themes.el
+++ b/re/wobow-themes.el
@@ -127,17 +127,17 @@
       (ido-vertical-match-face (:bold t :italic nil))
 
       ;; org mode
-      (org-drawer (:foreground ,weak))
-      (org-special-keyword (:bold t :foreground ,weak))
-      (org-property-value (:italic t :foreground ,weak))
-      (org-table (:foreground ,weak))
-
-      (org-todo (:bold t :foreground ,highlight))
-      (org-done (:bold t :foreground ,success))
-      (org-agenda-done (:bold t :foreground ,success))
-      (org-date (:foreground ,foreground))
-      (org-agenda-structure (:foreground ,foreground))
-      (org-headline-done (:bold t :foreground ,foreground))
+      ;; (org-drawer (:foreground ,weak))
+      ;; (org-special-keyword (:bold t :foreground ,weak))
+      ;; (org-property-value (:italic t :foreground ,weak))
+      ;; (org-table (:foreground ,weak))
+
+      ;; (org-todo (:bold t :foreground ,foreground))
+      ;; (org-done (:bold nil :foreground ,success))
+      ;; (org-agenda-done (:bold t :foreground ,success))
+      ;; (org-date (:foreground ,foreground))
+      ;; (org-agenda-structure (:foreground ,foreground))
+      ;; (org-headline-done (:bold nil :foreground ,foreground))
 
       ;; various completion matches
       (vertico-current (:bold t :foreground ,foreground :background ,highlight))
-- 
2.39.5