diff options
-rw-r--r-- | init.el | 1 | ||||
-rw-r--r-- | lisp/+org.el | 4 |
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 () |