initial commit

1 files changed, 95 insertions, 0 deletions

diff --git a/org-tempus.el b/org-tempus.el
new file mode 100644
index 0000000..1d936be
--- /dev/null
+++ b/org-tempus.el
@@ -0,0 +1,95 @@
+;;; org-tempus.el --- Org functions to track work hours  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2025  Raul Benencia
+
+;; Author: Raul Benencia <id@rbenencia.name>
+;; Maintainer: Raul Benencia <id@rbenencia.name>
+;; URL: https://github.com/rul/org-tempus
+;; Version: 0.0.1
+;; Package-Requires: ((emacs "27.1"))
+;; Keywords: convenience, time, clock
+
+;; This file is NOT part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or (at
+;; your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; TODO
+
+;;; Code:
+(require 'org-clock)
+
+(defgroup org-tempus ()
+  "Display mode line indicator with information about clocked time."
+  :group 'org)
+
+(defcustom org-tempus-add-to-global-mode-string t
+  "When non-nil, append the Org Tempus construct to the mode line."
+  :type 'boolean
+  :package-version '(org-tempus . "0.0.1")
+  :group 'org-tempus)
+
+(defvar org-tempus-mode-line-string ""
+  "Org Tempus mode line indicator.")
+
+(defun org-tempus--current-task-name ()
+  "Return unpropertized name of current task."
+  (substring-no-properties org-clock-current-task))
+
+(defun org-tempus--sum-today ()
+  "Return unpropertized time clocked in today."
+  (substring-no-properties (org-clock-sum-today))
+  )
+
+(defun org-tempus--current-task-time ()
+  "Return clocked time for current task."
+  (number-to-string (org-clock-get-clocked-time)))
+
+(defun org-tempus--update-mode-line ()
+  "Update the Org Tempus mode line indicator."
+  (setq org-tempus-mode-line-string
+        (propertize
+         (if (org-clock-is-active)
+             (concat "🧉 " (org-tempus--current-task-name) " " (org-tempus--current-task-time) " " (org-clock-sum-today))
+           (concat "☠️ " " "))
+         'mouse-face 'mode-line-highlight))
+  (force-mode-line-update))
+
+;;;###autoload
+(define-minor-mode org-tempus-mode
+  "Minor mode to enhance time tracking in ‘org-mode’."
+  :lighter " Tempus fugit"
+  :global t
+  (if org-tempus-mode
+      (progn
+        (add-hook 'org-clock-in-hook #'org-tempus--update-mode-line)
+        (add-hook 'org-clock-out-hook #'org-tempus--update-mode-line)
+        (when org-tempus-add-to-global-mode-string
+          (or global-mode-string (setq global-mode-string '("")))
+          (or (memq 'org-tempus-mode-line-string global-mode-string)
+              (setq global-mode-string
+                    (append global-mode-string '(org-tempus-mode-line-string)))))
+        (org-tempus--update-mode-line))
+
+    (when org-tempus-add-to-global-mode-string
+      (or global-mode-string (setq global-mode-string '("")))
+      (setq global-mode-string
+            (remove 'org-tempus-mode-line-string global-mode-string))
+      (force-mode-line-update))
+    (remove-hook 'org-clock-in-hook #'org-tempus--update-mode-line)
+    (remove-hook 'org-clock-out-hook #'org-tempus--update-mode-line)))
+
+(provide 'org-tempus)
+;;; org-tempus.el ends here