From c5de9ef379e4cfa5d997502368244c95991b12fb Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 18 Sep 2016 00:04:35 +0200 Subject: Add a hydra for Org mode --- emacs/.emacs.d/init.org | 15 ++++++++++++++ emacs/.emacs.d/site-lisp/oni-hydra-org.el | 34 +++++++++++++++++++++++++++++++ 2 files changed, 49 insertions(+) create mode 100644 emacs/.emacs.d/site-lisp/oni-hydra-org.el (limited to 'emacs/.emacs.d') diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org index 00fca2b..3e8fcdb 100644 --- a/emacs/.emacs.d/init.org +++ b/emacs/.emacs.d/init.org @@ -476,6 +476,21 @@ To start off, first I need to enable lexical binding. (global-diff-hl-mode) #+END_SRC +** Hydra + + Hydra is an interesting way of managing keybindings, I want to + experiment. + + #+BEGIN_SRC emacs-lisp + (ensure-library hydra) + #+END_SRC + + Add a hydra for org. + + #+BEGIN_SRC emacs-lisp + (global-set-key (kbd "C-c o") 'oni-hydra-org/body) + #+END_SRC + * Major modes ** Emacs lisp mode diff --git a/emacs/.emacs.d/site-lisp/oni-hydra-org.el b/emacs/.emacs.d/site-lisp/oni-hydra-org.el new file mode 100644 index 0000000..a4ed5b1 --- /dev/null +++ b/emacs/.emacs.d/site-lisp/oni-hydra-org.el @@ -0,0 +1,34 @@ +;;; oni-hydra-org.el --- Hydras for Org-mode -*- lexical-binding: t; -*- + +;; Copyright (C) 2016 Tom Willemse + +;; Author: Tom Willemse +;; Keywords: convenience, local + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; + +;;; Code: + +;;;###autoload(autoload 'oni-hydra-org/body "oni-hydra-org") +(defhydra oni-hydra-org (:color blue) + "Org" + ("a" org-agenda "Agenda") + ("c" org-capture "Capture")) + +(provide 'oni-hydra-org) +;;; oni-hydra-org.el ends here -- cgit v1.2.3-54-g00ecf