From ec21b7811409fa5ec5626353c9199225430076e6 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Fri, 10 Jun 2016 15:17:19 +0200 Subject: Add a hydra to manage chat clients --- emacs/.emacs.d/init.el | 2 +- emacs/.emacs.d/site-lisp/oni-im-hydra.el | 48 ++++++++++++++++++++++++++++++++ 2 files changed, 49 insertions(+), 1 deletion(-) create mode 100644 emacs/.emacs.d/site-lisp/oni-im-hydra.el (limited to 'emacs') diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index 03d6845..4409af6 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -669,7 +669,6 @@ MODE1 is enabled and vice-versa." (global-set-key (kbd "C-c d k") 'desktop-registry-remove-desktop) (global-set-key (kbd "C-c d s") 'desktop-save-in-desktop-dir) (global-set-key (kbd "C-c h r") 'hypo-region) -(global-set-key (kbd "C-c i p") 'identica-update-status-interactive) (global-set-key (kbd "C-c m") 'gnus) (global-set-key (kbd "C-c t") 'oni:raise-ansi-term) (global-set-key (kbd "C-c u") 'upcase-transient-mode) @@ -696,6 +695,7 @@ MODE1 is enabled and vice-versa." ;; (global-set-key (kbd "C-c f") #'hydra-vimish-fold/body) (global-set-key (kbd "C-c g") 'hydra-magit/body) (global-set-key (kbd "C-c w") 'oni-window-hydra/body) +(global-set-key (kbd "C-c i") 'oni-im-hydra/body) (setq org-completion-use-ido t) (setq magit-completing-read-function 'magit-ido-completing-read) diff --git a/emacs/.emacs.d/site-lisp/oni-im-hydra.el b/emacs/.emacs.d/site-lisp/oni-im-hydra.el new file mode 100644 index 0000000..3552694 --- /dev/null +++ b/emacs/.emacs.d/site-lisp/oni-im-hydra.el @@ -0,0 +1,48 @@ +;;; oni-im-hydra.el --- A hydra to manage IM/chat clients -*- lexical-binding: t; -*- + +;; Copyright (C) 2016 Tom Willemse + +;; Author: Tom Willemse +;; Keywords: convenience + +;; 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: + +;; This is a hydra used to make managing IM and chat clients easier. + +;;; Code: + +(require 'circe) +(require 'hydra) +(require 'jabber) +(require 'slack) + +;;;###autoload(autoload 'oni-im-hydra/body "oni-im-hydra") +(defhydra oni-im-hydra (:hint nil) + " +Jabber: _js_:start + Circe: _cs_:start + Slack: _ss_:start _sc_:select channel _sd_:select dm _sg_:select group" + ("js" jabber-connect) + + ("cs" circe) + + ("ss" slack-start) + ("sc" slack-channel-select) + ("sd" slack-im-select) + ("sg" slack-group-select)) + +(provide 'oni-im-hydra) +;;; oni-im-hydra.el ends here -- cgit v1.2.3-54-g00ecf