[Org] Quick capture setup

packages/org-quick-capture.el

@@ -0,0 +1,40 @@
+;;; org-quick-capture.el --- Open a org capture frame and close it directly afterwards. -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;;; The code is grabbed from Reddit
+;;; (https://www.reddit.com/r/emacs/comments/74gkeq/system_wide_org_capture/)
+;;; and was written by u/lebitso (https://www.reddit.com/user/lebitso)
+;;; with the help of an anoymous other user.
+
+;;; Code:
+
+(require 'org)
+(require 'org-capture)
+
+(defadvice org-switch-to-buffer-other-window
+    (after supress-window-splitting activate)
+  "Delete the extra window if we're in a capture frame."
+  (if (equal "Org Capture" (frame-parameter nil 'name))
+      (delete-other-windows)))
+
+(defadvice org-capture-finalize
+    (after delete-capture-frame activate)
+  "Advise capture-finalize to close the frame when finished."
+  (when (and (equal "Org Capture" (frame-parameter nil 'name))
+	     (not (eq this-command 'org-capture-refile)))
+    (delete-frame)))
+
+(defadvice org-capture-refile
+  (after delete-capture-frame activate)
+  "Advise org-refile to close the frame when finished."
+  (delete-frame))
+
+(defun org-quick-capture ()
+  "Run 'org-capture' in an own capture frame."
+  (select-frame-by-name "Org Capture")
+  (switch-to-buffer (get-buffer-create "*scratch*"))
+  (org-capture))
+
+(provide 'org-quick-capture)
+;;; org-quick-capture.el ends here