Massive configuration overhaul
Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
This commit is contained in:
parent
a7c72adb2e
commit
6b456c1b7a
551 changed files with 88587 additions and 1392 deletions
45
configs/shared/.emacs.d/wpc/kaomoji.el
Normal file
45
configs/shared/.emacs.d/wpc/kaomoji.el
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
;;; kaomoji.el --- Supporting kaomoji usage -*- lexical-binding: t -*-
|
||||
;; Author: William Carroll <wpcarro@gmail.com>
|
||||
|
||||
;;; Commentary:
|
||||
;; Simple keyboards like this make life a bit better.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defvar kaomoji/install-kbds?
|
||||
nil
|
||||
"Set to t if you'd like the keybindings to be installed.")
|
||||
|
||||
(defconst kaomoji/symbols '(("Joy" . "(⌒‿⌒)")
|
||||
("Love" . "(ღ˘⌣˘ღ)")
|
||||
("Sympathy" . "ヽ(~_~(・_・ )ゝ")
|
||||
("Dissatisfaction" . "(>﹏<)")
|
||||
("Anger" . "ヽ(‵﹏´)ノ")
|
||||
("Hugging" . "(づ ̄ ³ ̄)づ")
|
||||
("Hiding" . "┬┴┬┴┤( ͡° ͜ʖ├┬┴┬┴")
|
||||
("Sleeping" . "(-_-) zzZ")
|
||||
("Embarrassed" . "(×﹏×)")
|
||||
("Shrug" . "ヽ(ー_ー )ノ"))
|
||||
"Alist of human-readable emotions to the kaomoji.")
|
||||
|
||||
;; TODO: Consider supporting a hydra for these.
|
||||
|
||||
(defun kaomoji/select ()
|
||||
"Interactively select a kaomoji and copy it to the clipboard."
|
||||
(interactive)
|
||||
(ivy-read
|
||||
"Select a kaomoji: "
|
||||
kaomoji/symbols
|
||||
:action (lambda (entry)
|
||||
(kill-new (cdr entry))
|
||||
(alert "Copied to clipboard!"))))
|
||||
|
||||
;; TODO: Define Hydra for all custom keyboards.
|
||||
;; TODO: Define a better keybinding in a different keymap.
|
||||
(when kaomoji/install-kbds?
|
||||
(general-define-key
|
||||
:keymaps 'global
|
||||
"M-k" #'kaomoji/select))
|
||||
|
||||
(provide 'kaomoji)
|
||||
;;; kaomoji.el ends here
|
||||
Loading…
Add table
Add a link
Reference in a new issue