about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-02-06 22:16:51 -0600
committerCase Duckworth2022-02-06 22:17:02 -0600
commita1be3555bc54bd15af19bc97882e4b1fde7dcb2a (patch)
tree2feff74cd745e0fb84158ea9ba099450ce722013
parentCorrect elfeed-async script (diff)
downloademacs-a1be3555bc54bd15af19bc97882e4b1fde7dcb2a.tar.gz
emacs-a1be3555bc54bd15af19bc97882e4b1fde7dcb2a.zip
Add org sms support
-rw-r--r--init.el1
-rw-r--r--lisp/+org.el4
2 files changed, 5 insertions, 0 deletions
diff --git a/init.el b/init.el index e11aaef..86617d5 100644 --- a/init.el +++ b/init.el
@@ -515,6 +515,7 @@
515 #'+org-open-html) 515 #'+org-open-html)
516 (org-clock-persistence-insinuate) 516 (org-clock-persistence-insinuate)
517 (org-link-set-parameters "tel" :follow #'+org-tel-open) 517 (org-link-set-parameters "tel" :follow #'+org-tel-open)
518 (org-link-set-parameters "sms" :follow #'+org-sms-open)
518 (setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal) 519 (setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal)
519 #'+org-open-html)) 520 #'+org-open-html))
520 ;; Extra keywords 521 ;; Extra keywords
diff --git a/lisp/+org.el b/lisp/+org.el index 48b3d42..be5a37f 100644 --- a/lisp/+org.el +++ b/lisp/+org.el
@@ -417,6 +417,10 @@ the deletion might narrow the column."
417 "Notify the user of what phone NUMBER to call." 417 "Notify the user of what phone NUMBER to call."
418 (message "Call: %s" number)) 418 (message "Call: %s" number))
419 419
420(defun +org-sms-open (number _)
421 "Notify the user of what phone NUMBER to text."
422 (message "SMS: %s" number))
423
420;; Make a horizontal rule! 424;; Make a horizontal rule!
421 425
422(defun +org-horizontal-rule () 426(defun +org-horizontal-rule ()