feat(emacs): add pomm

.emacs.d/init.el

@@ -182,6 +182,7 @@
      pass
      calendar
      dired
+     ivy
      debug
      guix
      calc
@@ -957,9 +958,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
 
 (use-package emojify
   :straight t
-  :if (and (display-graphic-p) (not (or my/lowpower my/is-termux)))
+  :if (and (display-graphic-p) (not (or my/lowpower my/is-termux))))
-  :disabled
-  :hook (after-init . global-emojify-mode))
 
 (use-package ligature
   :straight (:host github :repo "mickeynp/ligature.el")
@@ -3860,7 +3859,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
   :straight t
   :commands (prodigy)
   :init
-  (my-leader-def "ap" 'prodigy)
+  (my-leader-def "aP" 'prodigy)
   :config
   (when (not (boundp 'my/docker-directories))
     (load (concat user-emacs-directory "prodigy-config")))
@@ -3922,8 +3921,19 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
   :init
   (my-leader-def "ag" 'guix))
 
+(use-package pomm
+  :straight (:repo "SqrtMinusOne/pomm.el" :host github)
+  :commands (pomm)
+  :init
+  (my-leader-def "ap" #'pomm)
+  :config
+  (setq alert-default-style 'libnotify)
+  (add-hook 'pomm-on-tick-hook 'pomm-update-mode-line-string)
+  (add-hook 'pomm-on-status-changed-hook 'pomm-update-mode-line-string))
+
 (use-package pomidor
   :straight t
+  :disabled
   :commands (pomidor)
   :init
   (my-leader-def "aP" #'pomidor)

Emacs.org

@@ -620,6 +620,7 @@ Basic evil configuration.
      pass
      calendar
      dired
+     ivy
      debug
      guix
      calc
@@ -1840,9 +1841,7 @@ References:
 #+begin_src emacs-lisp
 (use-package emojify
   :straight t
-  :if (and (display-graphic-p) (not (or my/lowpower my/is-termux)))
+  :if (and (display-graphic-p) (not (or my/lowpower my/is-termux))))
-  :disabled
-  :hook (after-init . global-emojify-mode))
 #+end_src
 *** Ligatures
 Ligature setup for the JetBrainsMono font.
@@ -5792,7 +5791,7 @@ The actual service definitions are in the =~/.emacs.d/prodigy.org=, which tangle
   :straight t
   :commands (prodigy)
   :init
-  (my-leader-def "ap" 'prodigy)
+  (my-leader-def "aP" 'prodigy)
   :config
   (when (not (boundp 'my/docker-directories))
     (load (concat user-emacs-directory "prodigy-config")))
@@ -5874,12 +5873,29 @@ An Emacs package to help managing GNU Guix.
   (my-leader-def "ag" 'guix))
 #+end_src
 ** Productivity
-*** Pomidor
+*** pomm
+My package for doing Pomodoro timer.
+
+#+begin_src emacs-lisp
+(use-package pomm
+  :straight (:repo "SqrtMinusOne/pomm.el" :host github)
+  :commands (pomm)
+  :init
+  (my-leader-def "ap" #'pomm)
+  :config
+  (setq alert-default-style 'libnotify)
+  (add-hook 'pomm-on-tick-hook 'pomm-update-mode-line-string)
+  (add-hook 'pomm-on-status-changed-hook 'pomm-update-mode-line-string))
+#+end_src
+*** OFF (OFF) Pomidor
 A simple pomodoro technique timer.
 
+Disabled it in favour of my own package.
+
 #+begin_src emacs-lisp
 (use-package pomidor
   :straight t
+  :disabled
   :commands (pomidor)
   :init
   (my-leader-def "aP" #'pomidor)

bin/polybar/pomm.sh

@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+# [[file:../../Desktop.org::*pomm][pomm:1]]
+if ps -e | grep emacs >> /dev/null; then
+    emacsclient --eval "(if (boundp 'pomm-current-mode-line-string) pomm-current-mode-line-string \"\") " | xargs echo -e
+fi
+# pomm:1 ends here