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 () |