Switch back to org-mode from howm

HOWM very nice, but I miss the full-featured nature of org-mode.

diff --git a/init.el b/init.el
index 85307cbbe7f5179a5327ad634b23b0455314048a..67a1514aaf5f5f0b19c1810b2da3bbf79e1f48af 100644 (file)
--- 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 6831f88f7a487b40d6742a625b283e11ae324b85..1fe9c92156d459cf58aeeda5fd0887a6721806d9 100644 (file)
--- 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 46987043e83cd8e62202738a50f980205d519340..0712d9752e2f4aea7c40a9e8e9a17430af36d926 100644 (file)
--- 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 7053b9f847756a71dbfa32111d50e7b8be51c80b..822b036c9590e49fe2a2688976bde3844d98f18b 100644 (file)
--- 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))