osx things

3 files changed, 26 insertions, 2 deletions

diff --git a/net/jao-osx-mail.el b/net/jao-osx-mail.el
new file mode 100644
index 0000000..8b9efda
--- /dev/null
+++ b/net/jao-osx-mail.el
@@ -0,0 +1,13 @@
+(defun jao--gnus-message-id ()
+  (require 'org-gnus)
+  (let ((header (with-current-buffer gnus-summary-buffer
+                  (gnus-summary-article-header))))
+    (and header (org-remove-angle-brackets (mail-header-id header)))))
+
+(defun jao-gnus-open-in-mail ()
+  (interactive)
+  (let ((id (jao--gnus-message-id)))
+    (unless id (error "no message selected"))
+    (shell-command-to-string (format "open 'message:<%s>'" id))))
+
+(provide 'jao-osx-mail)
diff --git a/org/jao-org-links.el b/org/jao-org-links.el
index ca57f69..4ee4137 100644
--- a/org/jao-org-links.el
+++ b/org/jao-org-links.el
@@ -1,4 +1,6 @@
-(require 'org)
+(require 'jao-org-utils)
+
+(autoload 'jao-as-safari-doc "jao-applescript.el")
 
 ;; doc links
 (defvar jao-org--sink-dir "./")
@@ -26,4 +28,10 @@
 (defun jao-org-links-setup (sink-dir)
   (setq jao-org--sink-dir (file-name-as-directory sink-dir)))
 
-(provide 'jao-org-links)
\ No newline at end of file
+(defun jao-org-insert-safari-link ()
+  (interactive)
+  (let ((ln (jao-as-safari-doc)))
+    (when ln (jao-org-insert-link (car ln) (cdr ln)))))
+
+
+(provide 'jao-org-links)
diff --git a/org/jao-org-utils.el b/org/jao-org-utils.el
index 535e8f4..ea87ec5 100644
--- a/org/jao-org-utils.el
+++ b/org/jao-org-utils.el
@@ -9,6 +9,9 @@
   (interactive)
   (message "%s" (or (jao-org-link-at-point) "No link at point")))
 
+(defun jao-org-insert-link (url title)
+  (insert (format "[[%s][%s]]" url title)))
+
 ;;; eldoc
 (defun jao-org-eldoc--hook ()
   (set (make-local-variable 'eldoc-documentation-function)