diff options
Diffstat (limited to '')
| -rw-r--r-- | utils/bindKeys.el | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/utils/bindKeys.el b/utils/bindKeys.el deleted file mode 100644 index c07c393..0000000 --- a/utils/bindKeys.el +++ /dev/null @@ -1,25 +0,0 @@ -;;; bindKeys.el --- bind key sequence to a key map -*- lexical-binding: t; -*- - -;; Author: Benj Bellon -;; Keywords: lisp - -;;; Commentary: - -;; Bind key seqeuence to a keymap - -;;; Code: -(require 'dash) - -(defun bindKeys (triggerSeq bindings) - "Bind keys to a trigger sequence. -TRIGGERSEQ is a sequence of key(s) to trigger the binding. -BINDINGS is an alist of bindings." - (let ((trigger (concat (-reduce (lambda (acc cur) (concat acc cur)) triggerSeq) " "))) - (mapcar (lambda (binding) - (global-set-key - (kbd (concat (concat "C-c " trigger) (car binding))) - (cdr binding))) - bindings))) - -(provide 'bindKeys) -;;; bindKeys.el ends here |
