diff options
| author | Case Duckworth | 2022-02-06 22:16:51 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-02-06 22:17:02 -0600 |
| commit | a1be3555bc54bd15af19bc97882e4b1fde7dcb2a (patch) | |
| tree | 2feff74cd745e0fb84158ea9ba099450ce722013 | |
| parent | Correct elfeed-async script (diff) | |
| download | emacs-a1be3555bc54bd15af19bc97882e4b1fde7dcb2a.tar.gz emacs-a1be3555bc54bd15af19bc97882e4b1fde7dcb2a.zip | |
Add org sms support
| -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 () |