summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-05-01 21:58:20 -0400
committerKyle Meyer <kyle@kyleam.com>2014-05-01 22:59:40 -0400
commit2c7aba4d7f3afa0aef2502266898244848d95ea8 (patch)
tree640f4aac36f6768ab063d5dfd71131bf6bd5c0ba
parent68ae8262b2ac3a5ae7ba7bf2a90da1ad9db5c51f (diff)
downloadbog-2c7aba4d7f3afa0aef2502266898244848d95ea8.tar.gz
Add Bog commander
-rw-r--r--README5
-rw-r--r--README.md7
-rw-r--r--bog.el80
3 files changed, 91 insertions, 1 deletions
diff --git a/README b/README
index 95c7776..85fcef6 100644
--- a/README
+++ b/README
@@ -138,3 +138,8 @@ The variables below are important for specifying how Bog behaves.
A keymap is defined for Bog under the prefix =C-c "​=. If you prefer
something else (like =C-c b=), set =bog-keymap-prefix=.
+
+Some Bog functions are useful outside of an Org buffer (e.g.,
+=bog-search-notes=). These functions are available through the
+=bog-commander= interface (based of off the =projectile-commander=).
+This can be bound to a global key for quick access.
diff --git a/README.md b/README.md
index 7cfa868..2ded111 100644
--- a/README.md
+++ b/README.md
@@ -124,4 +124,9 @@ The variables below are important for specifying how Bog behaves.
# Keybindings
A keymap is defined for Bog under the prefix `C-c "​`. If you prefer
-something else (like `C-c b`), set `bog-keymap-prefix`. \ No newline at end of file
+something else (like `C-c b`), set `bog-keymap-prefix`.
+
+Some Bog functions are useful outside of an Org buffer (e.g.,
+`bog-search-notes`). These functions are available through the
+`bog-commander` interface (based of off the `projectile-commander`).
+This can be bound to a global key for quick access. \ No newline at end of file
diff --git a/bog.el b/bog.el
index c648bd2..45e7db7 100644
--- a/bog.el
+++ b/bog.el
@@ -730,6 +730,86 @@ Sorting is only done if the heading's level matches
(font-lock-fontify-buffer))
+;;; Commander
+
+;;; The commander functionality is taken from projectile.
+;;; https://github.com/bbatsov/projectile
+
+(defconst bog-commander-help-buffer "*Commander Help*")
+
+(defvar bog-commander-methods nil
+ "List of file-selection methods for the `bog-commander' command.
+Each element is a list (KEY DESCRIPTION FUNCTION).
+DESCRIPTION is a one-line description of what the key selects.")
+
+;;;###autoload
+(defun bog-commander ()
+ "Execute a Bog command with a single letter.
+
+The user is prompted for a single character indicating the action
+to invoke. Press \"?\" to describe available actions.
+
+See `def-bog-commander-method' for defining new methods."
+ (interactive)
+ (message "Commander [%s]: "
+ (apply #'string (mapcar #'car bog-commander-methods)))
+ (let* ((ch (save-window-excursion
+ (select-window (minibuffer-window))
+ (read-char)))
+ (method (cl-find ch bog-commander-methods :key #'car)))
+ (cond (method
+ (funcall (cl-caddr method)))
+ (t
+ (message "No method for character: ?\\%c" ch)
+ (ding)
+ (sleep-for 1)
+ (discard-input)
+ (bog-commander)))))
+
+(defmacro def-bog-commander-method (key description &rest body)
+ "Define a new `bog-commander' method.
+
+KEY is the key the user will enter to choose this method.
+
+DESCRIPTION is a one-line sentence describing the method.
+
+BODY is a series of forms which are evaluated when the method is
+chosen."
+ (let ((method `(lambda ()
+ ,@body)))
+ `(setq bog-commander-methods
+ (cl-sort (cons (list ,key ,description ,method)
+ (cl-remove ,key bog-commander-methods :key #'car))
+ #'< :key #'car))))
+
+(def-bog-commander-method ?? "Commander help buffer."
+ (ignore-errors (kill-buffer bog-commander-help-buffer))
+ (with-current-buffer (get-buffer-create bog-commander-help-buffer)
+ (insert "Bog commander methods:\n\n")
+ (loop for (key line nil) in bog-commander-methods
+ do (insert (format "%c:\t%s\n" key line)))
+ (goto-char (point-min))
+ (help-mode)
+ (display-buffer (current-buffer) t))
+ (bog-commander))
+
+(def-bog-commander-method ?b
+ "Find citekey BibTeX file."
+ (bog-find-citekey-bib t))
+
+(def-bog-commander-method ?f
+ "Find citekey file."
+ (bog-find-citekey-file t))
+
+(def-bog-commander-method ?h
+ "Find citekey heading in notes."
+ (bog-goto-citekey-heading-in-notes t))
+
+(def-bog-commander-method ?s
+ "Search Bog notes with `org-search-view'."
+ (bog-search-notes))
+
+
;;; Minor mode
(defvar bog-mode-map