diff options
| -rw-r--r-- | org-tempus.el | 95 |
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 |