summaryrefslogtreecommitdiff
path: root/utils/bindKeys.el
diff options
context:
space:
mode:
Diffstat (limited to 'utils/bindKeys.el')
-rw-r--r--utils/bindKeys.el25
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