maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(wpcarro/emacs): Package zle.el

Browse source 
The end-goal is to package all of my Elisp libraries. Why?
- More granular builds/tests
- More explicitly defined dependencies
- Separate personal configuration from library code
- Ease distribution

Change-Id: I2507d129d3a0b3bf0cfe70b9790536a8b2093b96
Reviewed-on: https://cl.tvl.fyi/c/depot/+/5969
Tested-by: BuildkiteCI
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
This commit is contained in:
William Carroll 2022-07-21 19:55:39 -07:00 • committed by clbot
parent 3ecf0b9d69
commit ebbda2484a
3 changed files with 19 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

91
users/wpcarro/emacs/.emacs.d/wpc/zle.el
View file

@ -1,91 +0,0 @@
;;; zle.el --- Functions to mimmick my ZLE KBDs -*- lexical-binding: t -*-
;; Author: William Carroll <wpcarro@gmail.com>
;; Version: 0.0.1
;; Package-Requires: ((emacs "24"))
;;; Commentary:
;; This is primarily for personal use. The keybindings that I choose are those
;; that feel slightly mnemonic while also not shadowing important bindings.
;; It's quite possible that our tastes will differ here.
;;
;; All of these keybindings are intended to shave off milliseconds off your
;; typing. I don't expect these numbers to sum up to a meaningful amount. The
;; primary reason that I wrote this, is that it introduces a small amount of
;; structural editing to my workflow. I've been using these exact keybindings
;; on the command line, and I find them subtely delightful to use. So much so
;; that I decided to bring them to my Emacs configuration.
;;
;; ZLE is the Z-shell line editor. I have some KBDs and functions that I often
;; want in Emacs.
;;
;; Usage:
;; Consider running `(zle-minor-mode)' to run this globally. Depending on your
;; configuration, it could be non-disruptive, disruptive, or extremely
;; disruptive.
;;; Code:
;; subshell (C-j)
(defun zle-subshell ()
"Insert the characters necessary to create a subshell."
(interactive)
(insert-char ?$)
(insert-char ?\()
(save-excursion
(insert-char ?\))))
;; variable (C-v)
(defun zle-variable ()
"Insert the characters to reference a variable."
(interactive)
(insert-char ?$)
(insert-char ?{)
(save-excursion
(insert-char ?})))
;; 2x dash (C-M--)
(defun zle-dash-dash ()
"Insert the characters for flags with 2x dashes."
(interactive)
(insert-char ? )
(insert-char ?-)
(insert-char ?-))
;; 1x quotes (M-')
(defun zle-single-quote ()
"Insert the characters to quickly create single quotes."
(interactive)
(insert-char ? )
(insert-char ?')
(save-excursion
(insert-char ?')))
;; 2x quotes (M-")
(defun zle-double-quote ()
"Insert the characters to quickly create double quotes."
(interactive)
(insert-char ? )
(insert-char ?\")
(save-excursion
(insert-char ?\")))
(defvar zle-kbds
(let ((map (make-sparse-keymap)))
(bind-keys :map map
("C-j" . zle-subshell)
("C-v" . zle-variable)
("C-M--" . zle-dash-dash)
("M-'" . zle-single-quote)
("M-\"" . zle-double-quote))
map)
"Keybindings shaving milliseconds off of typing.")
(define-minor-mode zle-minor-mode
"A minor mode mirroring my ZLE keybindings."
:init-value nil
:lighter " zle"
:keymap zle-kbds)
(provide 'zle)
;;; zle.el ends here