wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Emacs] org-wild-notifier debugging functions

Browse Source
This commit is contained in:
Ivan Malison 2023-08-30 14:20:03 -06:00
parent 87ea0bd124
commit 3b0559cfa1
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
dotfiles/emacs.d/org-config.org
View File

@ -208,8 +208,6 @@ We're going to use this to write separate parts of our config to different secti
#+end_src #+end_src
*** Disables *** Disables
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el
(add-hook 'org-mode-hook 'imalison:disable-linum-mode)
(add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)
(add-hook 'org-agenda-mode-hook 'imalison:set-display-custom-times) (add-hook 'org-agenda-mode-hook 'imalison:set-display-custom-times)
(add-hook 'org-agenda-mode-hook (lambda () (eldoc-mode -1))) (add-hook 'org-agenda-mode-hook (lambda () (eldoc-mode -1)))
#+end_src #+end_src
@ -854,7 +852,8 @@ alphanumeric characters only."
:custom :custom
((org-wild-notifier-keyword-whitelist nil) ((org-wild-notifier-keyword-whitelist nil)
(org-wild-notifier-tags-blacklist '("nonotify")) (org-wild-notifier-tags-blacklist '("nonotify"))
(org-wild-notifier-alert-time '(30 5 0))) (org-wild-notifier-alert-time '(30 5 0))
(org-wild-notifier-extra-alert-plist '(:persistent t)))
:config :config
(org-wild-notifier-mode +1) (org-wild-notifier-mode +1)
(defun org-wild-notify-check-at-time () (defun org-wild-notify-check-at-time ()
@ -866,7 +865,16 @@ alphanumeric characters only."
(-map 'org-wild-notifier--check-event) (-map 'org-wild-notifier--check-event)
(-flatten) (-flatten)
(-uniq)) (-uniq))
'org-wild-notifier--notify))))) 'org-wild-notifier--notify))))
(defun org-wild-notify-list-at-time ()
(interactive)
(imalison:org-at-time
:fn (lambda ()
(message "%s"
(->> (funcall (org-wild-notifier--retrieve-events))
(-map 'org-wild-notifier--check-event)
(-flatten)
(-uniq)))))))
#+end_src #+end_src
** org-reveal ** org-reveal
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp