From: rearman <rearman@r717.net>
Date: Wed, 26 Mar 2025 20:08:02 +0000 (-0400)
Subject: Add org defun, change some templates and skeletons
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=a37b0728537b51b40610976a896a4d1f223de9e4;p=emacsinit.git

Add org defun, change some templates and skeletons
---

diff --git a/re/re-org-defuns.el b/re/re-org-defuns.el
index 6c32cd2..b428baa 100644
--- a/re/re-org-defuns.el
+++ b/re/re-org-defuns.el
@@ -23,10 +23,15 @@
   "Tangle and compile config.org.
 Stolen from https://github.com/larstvei/dot-emacs."
   (when (equal (buffer-file-name)
-               (expand-file-name (concat user-emacs-directory "config.org")))
+	       (expand-file-name (concat user-emacs-directory "config.org")))
     (let ((prog-mode-hook
-           nil))
+	   nil))
       (org-babel-tangle))))
 
+(defun re/org-auto-clock ()
+  (if (string= org-state "IN-PROGRESS")
+      (org-clock-in)
+    (org-clock-out)))
+
 (provide 're-org-defuns)
 ;;; re-org-defuns.el ends here
diff --git a/re/re-org.el b/re/re-org.el
index 24ecb8b..a8bdf0f 100644
--- a/re/re-org.el
+++ b/re/re-org.el
@@ -114,7 +114,7 @@
 			       :time-prompt t)
 			      ("s" "Semi-Weekly PLC Meeting" entry
 			       (file+olp+datetree org-journal-file)
-			       "* Semi-Weekly PLC Meeting :plc:semiweekly:meeting:%^g \n%t\n** Notes\n** Action Items"
+			       "* Semi-Weekly PLC Meeting :plc:semiweekly:meeting:%^g \n%t\n** ITEM1"
 			       :clock-in t
 			       :clock-resume t)
 			      ("a" "Appointment" entry
diff --git a/re/re-skeletons.el b/re/re-skeletons.el
index c88eadf..aaa0588 100644
--- a/re/re-skeletons.el
+++ b/re/re-skeletons.el
@@ -22,9 +22,11 @@
   "** "
   _ - \n
   "*** System Notes\n"
+  "*** Before Startup\n"
   "*** PLC [/]\n"
   "*** Wonderware [/]\n"
   "*** Commissioning [/]\n"
+  "*** After Startup \n"
   "*** TODO Get Licenses	:licenses:\n"
   "**** TODO Wonderware\n"
   "**** TODO TOPServer\n")