From 426180b2326fee46b42655a24db57f41e900b0e0 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Fri, 12 Dec 2014 20:38:40 -0800
Subject: [PATCH] helm-org-in-buffer-headings, mu4e-company

---
 init.el                |  9 +++++++++
 load.d/mu4e-company.el | 15 +++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 load.d/mu4e-company.el

diff --git a/init.el b/init.el
index 794ef09d..1ecdeb66 100644
--- a/init.el
+++ b/init.el
@@ -912,6 +912,15 @@ The current directory is assumed to be the project's root otherwise."
     (use-package helm-ag :ensure t))
   :config
   (progn
+    (cl-defun helm-org-in-buffer-headings ()
+      (interactive)
+      (helm :sources (helm-source-org-headings-for-files
+                      
+                      (list (projectile-completing-read
+                             "File to look at headings from: "
+                             (projectile-all-project-files))))
+            :candidate-number-limit 99999
+            :buffer "*helm org inbuffer*"))
     ;; helm zsh source history
     (defvar helm-c-source-zsh-history
       '((name . "Zsh History")
diff --git a/load.d/mu4e-company.el b/load.d/mu4e-company.el
new file mode 100644
index 00000000..1fcf82b6
--- /dev/null
+++ b/load.d/mu4e-company.el
@@ -0,0 +1,15 @@
+(defun mu4e-company-contacts (command &optional input &rest ignored)
+  (interactive (list 'interactive))
+  (cl-case command
+    (interactive (company-begin-backend 'mu4e-contacts-company))
+    (prefix
+     (when (eq major-mode 'mu4e-compose-mode)
+       (save-excursion
+         (beginning-of-line)
+         (if (and (eq (line-number-at-pos) 2)
+                  (looking-at "^To: *\\(.*?\\)$"))
+             (match-string-no-properties 1)
+           'stop))))
+    (candidates
+     (--filter (string-match-p (downcase input) (downcase it))
+               mu4e~contacts-for-completion))))