olm 0.0.1 → 0.1.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (8) hide show
  1. checksums.yaml +4 -4
  2. data/README.md +1 -4
  3. data/lib/olm.rb +85 -35
  4. data/lib/olm/app.rb +183 -115
  5. data/olm.el +654 -334
  6. data/olm.gemspec +23 -23
  7. data/org-olm.el +71 -0
  8. metadata +4 -3
data/olm.gemspec CHANGED
@@ -1,23 +1,23 @@
1
- # coding: utf-8
2
- lib = File.expand_path('../lib', __FILE__)
3
- $LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
4
-
5
- require 'olm'
6
-
7
- Gem::Specification.new do |spec|
8
- spec.name = "olm"
9
- spec.version = Olm::VERSION
10
- spec.authors = ["Takahiro Noda"]
11
- spec.email = ["takahiro.noda+rubygems@gmail.com"]
12
- spec.summary = %q{A glue library to manipulate MS Outlook Mail.}
13
- spec.description = %q{Olm is designed for reading and writing Outlook mail using the win32ole library and against Outlook 2007.}
14
- spec.homepage = "https://github.com/tnoda/olm"
15
- spec.license = "MIT"
16
- spec.files = `git ls-files -z`.split("\x0")
17
- spec.executables = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
18
- spec.test_files = spec.files.grep(%r{^(test|spec|features)/})
19
- spec.require_paths = ["lib"]
20
-
21
- spec.add_development_dependency "bundler", "~> 1.6"
22
- spec.add_development_dependency "rake"
23
- end
1
+ # coding: utf-8
2
+ lib = File.expand_path('../lib', __FILE__)
3
+ $LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
4
+
5
+ require 'olm'
6
+
7
+ Gem::Specification.new do |spec|
8
+ spec.name = "olm"
9
+ spec.version = Olm::VERSION
10
+ spec.authors = ["Takahiro Noda"]
11
+ spec.email = ["takahiro.noda+rubygems@gmail.com"]
12
+ spec.summary = %q{A glue library to handle MS Outlook Mail.}
13
+ spec.description = %q{Olm is designed for reading and writing Outlook mail using the win32ole library and against Outlook 2007.}
14
+ spec.homepage = "https://github.com/tnoda/olm"
15
+ spec.license = "MIT"
16
+ spec.files = `git ls-files -z`.split("\x0")
17
+ spec.executables = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
18
+ spec.test_files = spec.files.grep(%r{^(test|spec|features)/})
19
+ spec.require_paths = ["lib"]
20
+
21
+ spec.add_development_dependency "bundler", "~> 1.6"
22
+ spec.add_development_dependency "rake"
23
+ end
data/org-olm.el ADDED
@@ -0,0 +1,71 @@
1
+ ;;; org-olm.el --- Org links to Outlook Mail messages
2
+
3
+ ;; Copyright (C) 2014 Takahiro Noda
4
+
5
+ ;; Author: Takahiro Noda <takahiro.noda+github@gmail.com>
6
+ ;; Keywords: mail
7
+
8
+ ;; This program is free software; you can redistribute it and/or modify
9
+ ;; it under the terms of the GNU General Public License as published by
10
+ ;; the Free Software Foundation, either version 3 of the License, or
11
+ ;; (at your option) any later version.
12
+
13
+ ;; This program is distributed in the hope that it will be useful,
14
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16
+ ;; GNU General Public License for more details.
17
+
18
+ ;; You should have received a copy of the GNU General Public License
19
+ ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
20
+
21
+ ;;; Commentary:
22
+
23
+ ;; This file implements links to Outlook Mail messages from within Org mode.
24
+ ;;
25
+
26
+ ;;; Code:
27
+
28
+ (require 'org)
29
+ (require 'olm)
30
+
31
+ ;;; Install the link type
32
+ (org-add-link-type "olm" 'org-olm-open)
33
+ (add-hook 'org-store-link-functions 'org-olm-store-link)
34
+
35
+ ;;; Implementation
36
+ (defun org-olm-open (path)
37
+ "Follow an Outlook Mail message link specified by PATH."
38
+ (olm-open-message (org-no-properties path)))
39
+
40
+ (defun org-olm-store-link ()
41
+ "Store a link to an Outlook Mail message."
42
+ (or (org-olm-store-link-summary)
43
+ (org-olm-store-link-message)))
44
+
45
+ (defun org-olm-store-link-summary ()
46
+ (when (eq major-mode 'olm-summary-mode)
47
+ (org-store-link-props
48
+ :type "olm"
49
+ :link (concat "olm:" (olm-summary-message-entry-id))
50
+ :description (org-olm-store-link-description))))
51
+
52
+ (defun org-olm-store-link-message ()
53
+ (when (eq major-mode 'olm-message-mode)
54
+ (error "org-olm-store-link-message has not been implemented yet")))
55
+
56
+ (defun org-olm-store-link-description ()
57
+ (with-current-buffer (get-buffer "*olm-message*")
58
+ (save-excursion
59
+ (save-restriction
60
+ (let ((from (progn
61
+ (goto-char (point-min))
62
+ (re-search-forward "^From: *\\(.+\\)" nil t)
63
+ (match-string-no-properties 1)))
64
+ (subj (progn
65
+ (goto-char (point-min))
66
+ (re-search-forward "^Subject: *\\(.+\\)" nil t)
67
+ (match-string-no-properties 1))))
68
+ (concat "olm:" from "/" subj))))))
69
+
70
+ (provide 'org-olm)
71
+ ;;; org-olm.el ends here
metadata CHANGED
@@ -1,14 +1,14 @@
1
1
  --- !ruby/object:Gem::Specification
2
2
  name: olm
3
3
  version: !ruby/object:Gem::Version
4
- version: 0.0.1
4
+ version: 0.1.3
5
5
  platform: ruby
6
6
  authors:
7
7
  - Takahiro Noda
8
8
  autorequire:
9
9
  bindir: bin
10
10
  cert_chain: []
11
- date: 2014-07-12 00:00:00.000000000 Z
11
+ date: 2014-12-10 00:00:00.000000000 Z
12
12
  dependencies:
13
13
  - !ruby/object:Gem::Dependency
14
14
  name: bundler
@@ -53,6 +53,7 @@ files:
53
53
  - lib/olm/app.rb
54
54
  - olm.el
55
55
  - olm.gemspec
56
+ - org-olm.el
56
57
  homepage: https://github.com/tnoda/olm
57
58
  licenses:
58
59
  - MIT
@@ -76,5 +77,5 @@ rubyforge_project:
76
77
  rubygems_version: 2.0.14
77
78
  signing_key:
78
79
  specification_version: 4
79
- summary: A glue library to manipulate MS Outlook Mail.
80
+ summary: A glue library to handle MS Outlook Mail.
80
81
  test_files: []