From 4a752006731d59b8fce5e0525305b842c35c6acd Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Sat, 2 Nov 2024 09:45:44 +0200
Subject: .

---
 home/dots/.emacs | 36 +++++++++++++++++-------------------
 1 file changed, 17 insertions(+), 19 deletions(-)

(limited to 'home/dots/.emacs')

diff --git a/home/dots/.emacs b/home/dots/.emacs
index 8f15fc4..f95e716 100644
--- a/home/dots/.emacs
+++ b/home/dots/.emacs
@@ -33,7 +33,6 @@
 		mastodon
 		nix-mode
 		nov
-		org-alert
 		org-remark
 		pass
 		pinentry
@@ -620,16 +619,6 @@
 		 (add-hook 'before-save-hook #'nix-format-buffer nil t)))
    (nix-mode . nix-prettify-mode)))
 
-(use-package hyperbole
-  :ensure t
-  :defer t
-  :bind
-  (:map hyperbole-mode-map
-   ("M-o" . nil))
-  :config
-  (setq hyperbole-file-list '("~/personal-db/notes/inbox.org"))
-  (hyperbole-mode 1))
-
 (use-package eglot
   :config
   ;; Ensure `nil` is in your PATH.
@@ -761,13 +750,23 @@
 		(add-hook 'after-save-hook 'sync-org nil t)))
    (org-mode . variable-pitch-mode)))
 
-(use-package org-alert
+(use-package appt
+  ;; Taken from https://igormelo.org/you_dont_need_org_alert.html
+  ;; Enables notifications for org
   :init
-  (setq alert-default-style 'libnotify
-	org-alert-interval 300
-	org-alert-notify-cutoff 10
-	org-alert-notify-after-event-cutoff 10)
-  :ensure t)
+  (setq appt-message-warning-time 15
+	appt-display-interval 10
+	appt-disp-window-function (lambda (remaining new-time msg)
+				    (notifications-notify
+				     :title (message "In %s minutes" remaining)
+				     :body msg
+				     :urgency 'critical)))
+  (advice-add 'appt-check
+            :before
+            (lambda (&rest args)
+              (org-agenda-to-appt t)))
+  (appt-activate t))
+
 
 (use-package rec-mode
   :ensure t)
@@ -961,7 +960,6 @@
  '(eglot-highlight-symbol-face ((t (:weight bold))))
  '(eglot-mode-line ((t (:weight regular))))
  '(erc-timestamp-face ((t (:foreground "blue" :weight bold))))
- '(hbut-flash ((t (:background "blue" :foreground "white")))) 
  '(eshell-prompt ((t (:weight bold))))
  '(eww-valid-certificate ((t (:foreground "black" :weight bold))))
  '(fixed-pitch ((t (:family "Iosevka SS13 Extended"))))
@@ -997,7 +995,7 @@
  '(org-agenda-structure ((t ())))
  '(org-agenda-date-today ((t (:weight bold))))
  '(org-agenda-date-weekend ((t ())))
- '(help-key-binding ((t (:weight semibold)))) 
+ '(help-key-binding ((t (:weight semibold :background "#EEEEE8" :box (:line-width (5 . -1) :color "#EEEEE8"))))) 
  '(org-agenda-done ((t (:strike-through "on" :inherit org-time-grid :extend nil))))
  '(org-done ((t (:strike-through "on" :weight bold :inherit org-agenda-dimmed-todo-face :extend nil))))
  '(org-todo ((t (:weight bold))))      
-- 
cgit v1.2.3