mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-17 01:10:10 +00:00
38dcba6872
When it is at the end, the keys don't get bound until after the package has been loaded, which is bad. Placing it at the beginning allows the key bindings to be mapped to auto-loaded functions before the package is loaded, so that a key chord press triggers the package load.
44 lines
1.3 KiB
EmacsLisp
44 lines
1.3 KiB
EmacsLisp
;;; use-package-chords.el --- key-chord keyword for use-package -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2015-2017 Justin Talbott
|
|
|
|
;; Author: Justin Talbott <justin@waymondo.com>
|
|
;; Keywords: convenience, tools, extensions
|
|
;; URL: https://github.com/waymondo/use-package-chords
|
|
;; Version: 0.2
|
|
;; Package-Requires: ((use-package "2.1") (bind-key "1.0") (bind-chord "0.2") (key-chord "0.6"))
|
|
;; Filename: use-package-chords.el
|
|
;; License: GNU General Public License version 3, or (at your option) any later version
|
|
;;
|
|
|
|
;;; Commentary:
|
|
;;
|
|
;; The `:chords' keyword allows you to define `key-chord' bindings for
|
|
;; `use-package' declarations in the same manner as the `:bind'
|
|
;; keyword.
|
|
;;
|
|
|
|
;;; Code:
|
|
|
|
(require 'use-package)
|
|
(require 'bind-chord)
|
|
|
|
;;;###autoload
|
|
(defalias 'use-package-autoloads/:chords 'use-package-autoloads-mode)
|
|
|
|
;;;###autoload
|
|
(defalias 'use-package-normalize/:chords 'use-package-normalize-binder)
|
|
|
|
;;;###autoload
|
|
(defun use-package-handler/:chords (name keyword arg rest state)
|
|
"Handler for `:chords' keyword in `use-package'."
|
|
(use-package-concat
|
|
(use-package-process-keywords name rest state)
|
|
`(,(macroexpand
|
|
`(bind-chords :package ,name ,@arg)))))
|
|
|
|
(add-to-list 'use-package-keywords :chords)
|
|
|
|
(provide 'use-package-chords)
|
|
|
|
;;; use-package-chords.el ends here
|