summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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 ()