Initial commit

1 files changed, 90 insertions, 0 deletions

diff --git a/meen.el b/meen.el
new file mode 100644
index 0000000..627db1c
--- /dev/null
+++ b/meen.el
@@ -0,0 +1,90 @@
+;;; meen.el --- Hide clocks replacing them with fish -*- lexical-binding: t -*-
+
+;; Hide clocks replacing them with fish
+;; Copyright (C) 2022 Arun Isaac
+;;
+;; Author: Arun Isaac <arunisaac@systemreboot.net>
+;; Version: 0.1.0
+;; Homepage: https://git.systemreboot.net/meen
+;; Package-Requires: ((emacs "25.1"))
+
+;; This file is part of meen.
+
+;; meen 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.
+
+;; meen 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 meen.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; meen is a minor mode to hide clocks replacing them with fish icons.
+;; It is useful to escape the tyranny of the clock and live a life not
+;; knowing the precise artificial time.
+;;
+;; Usage:
+;;
+;; Toggle meen mode in all buffers using M-x global-meen-mode. Or,
+;; toggle meen mode in the current buffer using M-x meen-mode.
+;;
+;; Clocks will be replaced by Unicode fish icons. You will need a font
+;; that supports the Unicode fish icon. If you would rather use some
+;; other character, customize `meen-char'.
+
+;;; Code:
+
+(defcustom meen-regexp
+  (rx (repeat 1 2 digit) ":" (= 2 digit) (optional ":" (= 2 digit)))
+  "Regexp matching clocks to hide.")
+
+(defcustom meen-regexp-group
+  0
+  "Regexp group in `meen-regexp' to hide.")
+
+(defcustom meen-char
+  ?🐟
+  "Character to hide clock with.")
+
+(defun meen-compose ()
+  "Compose matching region in the current buffer."
+  (compose-region (match-beginning meen-regexp-group)
+                  (match-end meen-regexp-group)
+                  meen-char))
+
+;;;###autoload
+(define-minor-mode meen-mode
+  "Meen mode."
+  :lighter " meen"
+  (let ((keywords `((,meen-regexp
+                     (,meen-regexp-group
+                      (meen-compose))))))
+    (if meen-mode
+        ;; Enable mode.
+        (font-lock-add-keywords nil keywords)
+      ;; Disable mode.
+      (font-lock-remove-keywords nil keywords)
+      (with-silent-modifications
+        (remove-text-properties (point-min)
+                                (point-max)
+                                '(composition nil))))
+    (font-lock-flush)))
+
+(defun meen-turn-on ()
+  "Enable `meen-mode' in the current buffer if it is not already."
+  (unless meen-mode
+    (meen-mode)))
+
+;;;###autoload
+(define-globalized-minor-mode global-meen-mode
+  meen-mode meen-turn-on)
+
+(provide 'meen)
+
+;;; meen.el ends here