From 9202d6d179686f527a5b50d03ef7fd5abfb3bd65 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 17 Apr 2011 20:59:57 +0200 Subject: osx things --- net/jao-osx-mail.el | 13 +++++++++++++ org/jao-org-links.el | 12 ++++++++++-- org/jao-org-utils.el | 3 +++ 3 files changed, 26 insertions(+), 2 deletions(-) create mode 100644 net/jao-osx-mail.el 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) -- cgit v1.2.3