awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-08 15:23:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/org: fix org-capture workflow and org-shackle hacks

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-24 20:00:59 -05:00
parent 2f81ca11a5
commit a446c58846
4 changed files with 90 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
modules/lang/org/+capture.el
View File

@@ -1,31 +1,26 @@
;;; lang/org/+capture.el --- -*- no-byte-compile: t; -*-
;; Sets up a sane `org-capture' workflow, wherein the org-capture buffer is
;; opened in a popup frame, and can be invoked from outside Emacs as well.
;; Sets up two `org-capture' workflows that I like:
;;
;; See `+org/capture'
;; 1. The traditional way: invoking `org-capture' directly (or through a
;; command, like :org).
;;
;; 2. Through a org-capture popup frame that is invoked from outside Emacs (the
;; script is below). This lets me open an org-capture box anywhere I can call
;; org-capture.sh, like, say, from qutebrowser or vimperator.
;;
;; #!/usr/bin/env bash
;; emacsclient -c \
;; -F "((name . \"org-capture\") (height . 25) (width . 70))" \
;; --eval "(org-capture nil \"${1:-n}\")"
;;
;; Place this in, say, org-capture.sh somewhere in your $PATH.
(add-hook '+org-init-hook '+org|init-capture t)
(defun +org|init-capture ()
"Set up a sane `org-capture' workflow."
(setq org-default-notes-file +org-quicknote-dir)
(require 'org-capture)
(require 'org-protocol)
(set! :popup "*Org Select*" :size 0.4)
(defadvice org-capture (after make-full-window-frame activate)
"If org-capture creates a new frame, this initializes it properly, by
deleting other windows and blanking out the mode-line."
(when (equal "org-capture" (frame-parameter nil 'name))
(setq mode-line-format nil)
(delete-other-windows)))
(defadvice org-capture-finalize (after delete-capture-frame activate)
"Closes the frame once org-capture is done."
(when (equal "org-capture" (frame-parameter nil 'name))
(delete-frame)))
(setq org-default-notes-file (concat +org-dir "notes.org"))
(setq org-capture-templates
'(;; TODO: New Task (todo)
@@ -44,11 +39,30 @@ deleting other windows and blanking out the mode-line."
;; "* %u %?\n%i" :prepend t)
("n" "Notes" entry
(file+headline org-default-notes-file "Inbox")
(file+headline (concat +org-dir "notes.org") "Inbox")
"* %u %?\n%i" :prepend t)
;; ("v" "Vocab" entry
;; (file+headline (concat org-directory "topics/vocab.org") "Unsorted")
;; "** %i%?\n")
)))
))
;; Allows the Emacs mini-frame (opened from an external shell script to run
;; and clean up properly) if the frame is named "org-capture".
(require 'org-capture)
(require 'org-protocol)
(defun +org*capture-init (&rest _)
"Makes sure the org-capture window is the only window in the frame."
(when (equal "org-capture" (frame-parameter nil 'name))
(setq mode-line-format nil)
(delete-other-windows)))
(advice-add 'org-capture :after '+org*capture-init)
(defun +org|capture-finalize ()
"Closes the frame once org-capture is done."
(when (equal "org-capture" (frame-parameter nil 'name))
(when (and (featurep 'persp-mode) persp-mode)
(+workspace/delete (+workspace-current-name)))
(delete-frame)))
(add-hook 'org-capture-after-finalize-hook '+org|capture-finalize))