From a1be3555bc54bd15af19bc97882e4b1fde7dcb2a Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Sun, 6 Feb 2022 22:16:51 -0600
Subject: [PATCH] Add org sms support

---
 init.el      | 1 +
 lisp/+org.el | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/init.el b/init.el
index e11aaef..86617d5 100644
--- a/init.el
+++ b/init.el
@@ -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
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."
   "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 ()