acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Add org sms support

This commit is contained in:
Case Duckworth 2022-02-06 22:16:51 -06:00
parent 57c91fea2f
commit a1be3555bc
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
init.el
View File

@ -515,6 +515,7 @@
#'+org-open-html)
(org-clock-persistence-insinuate)
(org-link-set-parameters "tel" :follow #'+org-tel-open)
(org-link-set-parameters "sms" :follow #'+org-sms-open)
(setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal)
#'+org-open-html))
;; Extra keywords

4
lisp/+org.el
View File

@ -417,6 +417,10 @@ the deletion might narrow the column."
"Notify the user of what phone NUMBER to call."
(message "Call: %s" number))
(defun +org-sms-open (number _)
"Notify the user of what phone NUMBER to text."
(message "SMS: %s" number))
;; Make a horizontal rule!
(defun +org-horizontal-rule ()