tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2019-12-11 21:52:14 +01:00
parent 8d5803ced9 2e6853e798
commit ea302ea5b5
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
doc/org-manual.org
View File

@ -9188,17 +9188,16 @@ calls. You could auto-exclude these tags based on the availability of
the Internet, and outside of business hours, with something like this: the Internet, and outside of business hours, with something like this:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun org-my-auto-exclude-fn (tag) (defun my-auto-exclude-fn (tag)
(if (cond (when (cond ((string= tag "net")
((string= tag "net") (/= 0 (call-process "/sbin/ping" nil nil nil
(/= 0 (call-process "/sbin/ping" nil nil nil "-c1" "-q" "-t1" "mail.gnu.org")))
"-c1" "-q" "-t1" "mail.gnu.org"))) ((member tag '("errand" "call"))
((member tag '("errand" "call")) (let ((hr (nth 2 (decode-time))))
(let ((hr (nth 2 (decode-time)))) (or (< hr 8) (> hr 21)))))
(or (< hr 8) (> hr 21))))) (concat "-" tag)))
(concat "-" tag)))
(setq org-agenda-auto-exclude-function 'org-my-auto-exclude-fn) (setq org-agenda-auto-exclude-function #'my-auto-exclude-fn)
#+end_src #+end_src
You can apply this self-adapting filter by using a triple prefix You can apply this self-adapting filter by using a triple prefix