[modify] clock in advise

1 files changed, 10 insertions, 8 deletions

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)