ef714fa4e3
First version of the bepo contributed layer. I'm probably the only one using it for now, let's wait for issues and contributions! This is a snapshot-branch of my own development branch, it will not change, except maybe if it reaches a new "clean" state before it gets merged.
123 lines
4.1 KiB
EmacsLisp
123 lines
4.1 KiB
EmacsLisp
;;; funcs.el --- bepo Layer extensions File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2014 Sylvain Benner
|
|
;; Copyright (c) 2014-2015 Fabien Dubosson & Contributors
|
|
;;
|
|
;; Author: Fabien Dubosson <fabien.dubosson@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
;; Map multiple states at once. Courtesy of Michael Markert;
|
|
;; http://permalink.gmane.org/gmane.emacs.vim-emulation/1674
|
|
|
|
(defun bepo//define-key (maps key def bindings)
|
|
"Define a list of keys with their associated bindings in the
|
|
given state maps."
|
|
(while key
|
|
(dolist (map maps)
|
|
(define-key map key def))
|
|
(setq key (pop bindings)
|
|
def (pop bindings))))
|
|
|
|
(defun bepo/set-in-state (map key def &rest bindings)
|
|
"Define a list of keys with their associated bindings in a given state map."
|
|
(declare (indent 1))
|
|
(bepo//define-key (list map) key def bindings))
|
|
|
|
(defun bepo/set-in-states (maps key def &rest bindings)
|
|
"Define a list of keys with their associated bindings in given state maps."
|
|
(declare (indent 1))
|
|
(bepo//define-key maps key def bindings))
|
|
|
|
(defun bepo/set-in-all-evil-states (key def &rest bindings)
|
|
"Define a list of keys with their associated bindings in all states."
|
|
(declare (indent 0))
|
|
(bepo//define-key (list evil-normal-state-map
|
|
evil-visual-state-map
|
|
evil-insert-state-map
|
|
evil-emacs-state-map
|
|
evil-motion-state-map)
|
|
key def bindings))
|
|
|
|
(defun bepo/set-in-all-evil-states-but-insert (key def &rest bindings)
|
|
"Define a list of keys with their associated bindings in all states except
|
|
insert."
|
|
(declare (indent 0))
|
|
(bepo//define-key (list evil-normal-state-map
|
|
evil-visual-state-map
|
|
evil-emacs-state-map
|
|
evil-motion-state-map)
|
|
key def bindings))
|
|
|
|
(defun bepo//replace-in-list-rec (lst elem repl)
|
|
"Replace `elem' in the list `lst' recursively and replace it with `repl'."
|
|
(if (typep lst 'list)
|
|
(let* ((body-position (cl-position elem lst)))
|
|
(if body-position
|
|
;; The element is in the list, replace it
|
|
(progn
|
|
(setf (nth body-position lst) repl)
|
|
lst)
|
|
;; The element is not in the list, recurse
|
|
(dolist (l lst)
|
|
(bepo//replace-in-list-rec l elem repl))))))
|
|
|
|
(defmacro bepo|rebind (&optional name &rest props)
|
|
"Macro used for structuring the keys rebinding."
|
|
(declare (indent 1))
|
|
(let* ((description (plist-get props :description))
|
|
(functions (plist-get props :functions))
|
|
(loader (plist-get props :loader))
|
|
(remap (plist-get props :remap))
|
|
(switch (plist-get props :switch))
|
|
(additional (plist-get props :additional))
|
|
(special (plist-get props :special))
|
|
(mappings (list 'progn))
|
|
body)
|
|
;; Prepare the mappings
|
|
(if remap
|
|
(nconc mappings (list remap)))
|
|
(if switch
|
|
(nconc mappings (list switch)))
|
|
(if additional
|
|
(nconc mappings (list additional)))
|
|
(setq body mappings)
|
|
;; Use loader if defined
|
|
(if loader
|
|
(progn
|
|
(bepo//replace-in-list-rec loader 'BODY mappings)
|
|
(setq body loader)))
|
|
;; Generate the code
|
|
`(progn
|
|
,description
|
|
,functions
|
|
,body
|
|
,special
|
|
,name
|
|
)))
|
|
|
|
(defmacro bepo|config (&optional name &rest props)
|
|
"Macro used for structuring the configuration changes."
|
|
(declare (indent 1))
|
|
(let* ((description (plist-get props :description))
|
|
(functions (plist-get props :functions))
|
|
(loader (plist-get props :loader))
|
|
(config (plist-get props :config))
|
|
(special (plist-get props :special))
|
|
(body config))
|
|
;; Use loader if defined
|
|
(if loader
|
|
(progn
|
|
(bepo//replace-in-list-rec loader 'BODY config)
|
|
(setq body loader)))
|
|
;; Generate the code
|
|
`(progn
|
|
,description
|
|
,functions
|
|
,body
|
|
,special
|
|
,name
|
|
)))
|