ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add a hydra to manage chat clients

Browse source
This commit is contained in:
Tom Willemse 2016-06-10 15:17:19 +02:00
parent 9a094e3eaf
commit ec21b78114
2 changed files with 49 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
emacs/.emacs.d/init.el
View file

@ -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 k") 'desktop-registry-remove-desktop)
(global-set-key (kbd "C-c d s") 'desktop-save-in-desktop-dir) (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 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 m") 'gnus)
(global-set-key (kbd "C-c t") 'oni:raise-ansi-term) (global-set-key (kbd "C-c t") 'oni:raise-ansi-term)
(global-set-key (kbd "C-c u") 'upcase-transient-mode) (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 f") #'hydra-vimish-fold/body)
(global-set-key (kbd "C-c g") 'hydra-magit/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 w") 'oni-window-hydra/body)
(global-set-key (kbd "C-c i") 'oni-im-hydra/body)
(setq org-completion-use-ido t) (setq org-completion-use-ido t)
(setq magit-completing-read-function 'magit-ido-completing-read) (setq magit-completing-read-function 'magit-ido-completing-read)

48
emacs/.emacs.d/site-lisp/oni-im-hydra.el Normal file
View file

@ -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 <tom@ryuslash.org>
;; 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 <http://www.gnu.org/licenses/>.
;;; 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