From 3e406fae0f08ee980bac692bc3b465778f2e5e25 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 16 Aug 2022 13:42:27 -0500
Subject: [modify] clock in advise

---
 init-el.org | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'init-el.org')

diff --git a/init-el.org b/init-el.org
index 5258165..0f7cfae 100644
--- a/init-el.org
+++ b/init-el.org
@@ -275,7 +275,15 @@ So, to use this file for the very first time you must
   "to be added as advice to org-clock-in"
   (when +cicadas-surf-task-status-file+
     (with-temp-buffer
-      (insert (org-clock-get-clock-string))
+      (insert "👷 ")
+      (insert
+       (first
+        (split-string
+         (buffer-name (marker-buffer org-clock-marker))
+         "\\.")))
+      (insert " -- ")
+      (insert org-clock-heading)
+      (insert " 👷")
       (write-file +cicadas-surf-task-status-file+))))
 
 (defun clock-out-external-log-advice (&rest args) 
@@ -348,13 +356,7 @@ So, to use this file for the very first time you must
 
     (?c "table re[c]alculate" org-table-recalculate)
 
-    (?C "[C]lock" my-org-clock-command)))
-
-
-(def-my-command my-org-clock-command
-  '((?c "[c]lock in" org-clock-in)
-    (?o "clock [o]ut" org-clock-out)
-    (?r "clock [r]eport" org-clock-report)))
+    (?C "[C]lock" org-clock-in)))
 
 (def-my-command my-org-export-subcommand
   '((?t "[t]angle file" org-babel-tangle)
-- 
cgit v1.2.3