मैं अपने द्वारा उपयोग की जाने वाली प्रणाली से काफी खुश हूं, जो (मुझे लगता है) बिल्कुल वही है जो आप चाहते हैं। इसके दो भाग हैं: एक Emacs भाग जो अनुस्मारक और एक छोटे शेल प्रोग्राम (मैं लिनक्स का उपयोग कर रहा हूं) को पॉपअप + साउंड नोटिफिकेशन बनाने के लिए appt.el का उपयोग करता है। यहां मैं दोनों हिस्सों के लिए कोड साझा करता हूं।
ए) में कोड ~ / .emacs.d / init.el
(require 'appt)
(appt-activate t)
(setq appt-message-warning-time 5) ; Show notification 5 minutes before event
(setq appt-display-interval appt-message-warning-time) ; Disable multiple reminders
(setq appt-display-mode-line nil)
; Use appointment data from org-mode
(defun my-org-agenda-to-appt ()
(interactive)
(setq appt-time-msg-list nil)
(org-agenda-to-appt))
; Update alarms when...
; (1) ... Starting Emacs
(my-org-agenda-to-appt)
; (2) ... Everyday at 12:05am (useful in case you keep Emacs always on)
(run-at-time "12:05am" (* 24 3600) 'my-org-agenda-to-appt)
; (3) ... When TODO.txt is saved
(add-hook 'after-save-hook
'(lambda ()
(if (string= (buffer-file-name) (concat (getenv "HOME") "/ideas/TODO.txt"))
(my-org-agenda-to-appt))))
; Display appointments as a window manager notification
(setq appt-disp-window-function 'my-appt-display)
(setq appt-delete-window-function (lambda () t))
(setq my-appt-notification-app (concat (getenv "HOME") "/bin/appt-notification"))
(defun my-appt-display (min-to-app new-time msg)
(if (atom min-to-app)
(start-process "my-appt-notification-app" nil my-appt-notification-app min-to-app msg)
(dolist (i (number-sequence 0 (1- (length min-to-app))))
(start-process "my-appt-notification-app" nil my-appt-notification-app (nth i min-to-app) (nth i msg)))))
बी) में कोड ~ / बिन / appt- अधिसूचना
#!/bin/sh
TIME="$1"
MSG="$2"
notify-send -t 0 "<br>Appointment in $TIME minutes:<br>$MSG<br>"
play "~/bin/alarm.wav"
ध्वनि सूचनाएं प्राप्त करने के लिए आप अंतिम पंक्ति (प्ले) को निम्नलिखित के साथ बदल सकते हैं:
espeak "Appointment in $TIME minutes: $MSG"