olm 0.0.1 → 0.1.3

data/olm.gemspec

@@ -1,23 +1,23 @@
-# coding: utf-8
-lib = File.expand_path('../lib', __FILE__)
-$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
-
-require 'olm'
-
-Gem::Specification.new do |spec|
-  spec.name          = "olm"
-  spec.version       = Olm::VERSION
-  spec.authors       = ["Takahiro Noda"]
-  spec.email         = ["takahiro.noda+rubygems@gmail.com"]
-  spec.summary       = %q{A glue library to manipulate MS Outlook Mail.}
-  spec.description   = %q{Olm is designed for reading and writing Outlook mail using the win32ole library and against Outlook 2007.}
-  spec.homepage      = "https://github.com/tnoda/olm"
-  spec.license       = "MIT"
-  spec.files         = `git ls-files -z`.split("\x0")
-  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
-  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
-  spec.require_paths = ["lib"]
-
-  spec.add_development_dependency "bundler", "~> 1.6"
-  spec.add_development_dependency "rake"
-end
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+
+require 'olm'
+
+Gem::Specification.new do |spec|
+  spec.name          = "olm"
+  spec.version       = Olm::VERSION
+  spec.authors       = ["Takahiro Noda"]
+  spec.email         = ["takahiro.noda+rubygems@gmail.com"]
+  spec.summary       = %q{A glue library to handle MS Outlook Mail.}
+  spec.description   = %q{Olm is designed for reading and writing Outlook mail using the win32ole library and against Outlook 2007.}
+  spec.homepage      = "https://github.com/tnoda/olm"
+  spec.license       = "MIT"
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.6"
+  spec.add_development_dependency "rake"
+end

data/org-olm.el

@@ -0,0 +1,71 @@
+;;; org-olm.el --- Org links to Outlook Mail messages
+
+;; Copyright (C) 2014  Takahiro Noda
+
+;; Author: Takahiro Noda <takahiro.noda+github@gmail.com>
+;; Keywords: mail
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This file implements links to Outlook Mail messages from within Org mode.
+;; 
+
+;;; Code:
+
+(require 'org)
+(require 'olm)
+
+;;; Install the link type
+(org-add-link-type "olm" 'org-olm-open)
+(add-hook 'org-store-link-functions 'org-olm-store-link)
+
+;;; Implementation
+(defun org-olm-open (path)
+  "Follow an Outlook Mail message link specified by PATH."
+  (olm-open-message (org-no-properties path)))
+
+(defun org-olm-store-link ()
+  "Store a link to an Outlook Mail message."
+  (or (org-olm-store-link-summary)
+      (org-olm-store-link-message)))
+
+(defun org-olm-store-link-summary ()
+  (when (eq major-mode 'olm-summary-mode)
+    (org-store-link-props
+     :type "olm"
+     :link (concat "olm:" (olm-summary-message-entry-id))
+     :description (org-olm-store-link-description))))
+
+(defun org-olm-store-link-message ()
+  (when (eq major-mode 'olm-message-mode)
+    (error "org-olm-store-link-message has not been implemented yet")))
+
+(defun org-olm-store-link-description ()
+  (with-current-buffer (get-buffer "*olm-message*")
+    (save-excursion
+      (save-restriction
+        (let ((from (progn
+                      (goto-char (point-min))
+                      (re-search-forward "^From: *\\(.+\\)" nil t)
+                      (match-string-no-properties 1)))
+              (subj (progn
+                      (goto-char (point-min))
+                      (re-search-forward "^Subject: *\\(.+\\)" nil t)
+                      (match-string-no-properties 1))))
+          (concat "olm:" from "/" subj))))))
+
+(provide 'org-olm)
+;;; org-olm.el ends here

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: olm
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.1.3
 platform: ruby
 authors:
 - Takahiro Noda
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-07-12 00:00:00.000000000 Z
+date: 2014-12-10 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -53,6 +53,7 @@ files:
 - lib/olm/app.rb
 - olm.el
 - olm.gemspec
+- org-olm.el
 homepage: https://github.com/tnoda/olm
 licenses:
 - MIT
@@ -76,5 +77,5 @@ rubyforge_project:
 rubygems_version: 2.0.14
 signing_key: 
 specification_version: 4
-summary: A glue library to manipulate MS Outlook Mail.
+summary: A glue library to handle MS Outlook Mail.
 test_files: []