;;; 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