:map - undefined variable error

[contrapunctus-1]

(use-package boon
  :commands (boon-mode)
  :bind
  ((:map boon-command-map
         ("C-l" . recenter-top-bottom)
         ("r"   . swiper)
         ("/"   . undo-tree-undo)
         ("?"   . undo-tree-redo)
         ("J"   . join-line)
         ("TAB" . 'company-indent-or-complete-common)
         ("C"   . 'boon-toggle-comment))
   (:map boon-x-map
         ("s" . 'save-buffer)
         ("d" . 'dired-jump)
         ("f" . 'find-file)
         ("l" . 'ido-mini)
         ("c" . 'kill-emacs)
         ("v" . 'find-alternate-file)
         ("b" . 'ibuffer))
   (:map markdown-mode-map
         ("C-c ,"   . 'markdown-promote)
         ("C-c ."   . 'markdown-demote)
         ("C-c C-e" . 'markdown-export)))
  :init
  (boon-mode)
  :config
  (use-package boon-qwerty)
  (add-to-list 'boon-enclosures `(40 "(" ")")) ;; opening paren
  (use-package boon-powerline)
  (boon-powerline-theme))

Warnings

Error (use-package): boon/:catch: Symbol’s value as variable is void: markdown-mode-map

Backtrace

Debugger entered--Lisp error: (void-variable markdown-mode-map)
  (or markdown-mode-map global-map)
  (lookup-key (or markdown-mode-map global-map) key)
  (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote)))
  (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export))))
  (lambda nil (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export)))))()
  eval-after-load(boon (lambda nil (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export))))))
  (if (boundp 'markdown-mode-map) (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export))))))))
  (progn (if (boundp 'boon-command-map) (progn (let* ((name "C-l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function recenter-top-bottom) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function recenter-top-bottom))) (let* ((name "r") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function swiper) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function swiper))) (let* ((name "/") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-undo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-undo))) (let* ((name "?") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-redo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-redo))) (let* ((name "J") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function join-line) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function join-line))) (let* ((name "TAB") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function company-indent-or-complete-common) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function company-indent-or-complete-common))) (let* ((name "C") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function boon-toggle-comment) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function boon-toggle-comment)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "C-l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function recenter-top-bottom) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function recenter-top-bottom))) (let* ((name "r") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function swiper) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function swiper))) (let* ((name "/") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-undo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-undo))) (let* ((name "?") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-redo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-redo))) (let* ((name "J") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function join-line) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function join-line))) (let* ((name "TAB") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function company-indent-or-complete-common) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function company-indent-or-complete-common))) (let* ((name "C") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function boon-toggle-comment) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function boon-toggle-comment)))))))) (if (boundp 'boon-x-map) (progn (let* ((name "s") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function save-buffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function save-buffer))) (let* ((name "d") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function dired-jump) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function dired-jump))) (let* ((name "f") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-file))) (let* ((name "l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ido-mini) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ido-mini))) (let* ((name "c") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function kill-emacs) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function kill-emacs))) (let* ((name "v") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-alternate-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-alternate-file))) (let* ((name "b") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ibuffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ibuffer)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "s") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function save-buffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function save-buffer))) (let* ((name "d") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function dired-jump) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function dired-jump))) (let* ((name "f") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-file))) (let* ((name "l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ido-mini) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ido-mini))) (let* ((name "c") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function kill-emacs) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function kill-emacs))) (let* ((name "v") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-alternate-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-alternate-file))) (let* ((name "b") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ibuffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ibuffer)))))))) (if (boundp 'markdown-mode-map) (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export)))))))))
  (progn (if (fboundp 'recenter-top-bottom) nil (autoload (function recenter-top-bottom) "boon" nil t)) (if (fboundp 'swiper) nil (autoload (function swiper) "boon" nil t)) (if (fboundp 'undo-tree-undo) nil (autoload (function undo-tree-undo) "boon" nil t)) (if (fboundp 'undo-tree-redo) nil (autoload (function undo-tree-redo) "boon" nil t)) (if (fboundp 'join-line) nil (autoload (function join-line) "boon" nil t)) (if (fboundp 'boon-mode) nil (autoload (function boon-mode) "boon" nil t)) (condition-case err (boon-mode) ((debug error) (funcall use-package--warning2 :init err))) (eval-after-load 'boon (function (lambda nil (condition-case err (progn (progn (defvar use-package--warning0 (function (lambda (keyword err) (let ((msg (format "%s/%s: %s" 'boon-qwerty keyword (error-message-string err)))) (display-warning 'use-package msg :error))))) (condition-case err (if (not (require 'boon-qwerty nil t)) (display-warning 'use-package (format "Cannot load %s" 'boon-qwerty) :error)) ((debug error) (funcall use-package--warning0 :catch err)))) (let* ((x '(40 "(" ")"))) (if (member x boon-enclosures) boon-enclosures (setq boon-enclosures (cons x boon-enclosures)))) (progn (defvar use-package--warning1 (function (lambda (keyword err) (let ((msg (format "%s/%s: %s" 'boon-powerline keyword (error-message-string err)))) (display-warning 'use-package msg :error))))) (condition-case err (if (not (require 'boon-powerline nil t)) (display-warning 'use-package (format "Cannot load %s" 'boon-powerline) :error)) ((debug error) (funcall use-package--warning1 :catch err)))) (boon-powerline-theme) t) ((debug error) (funcall use-package--warning2 :config err)))))) (progn (if (boundp 'boon-command-map) (progn (let* ((name "C-l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function recenter-top-bottom) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function recenter-top-bottom))) (let* ((name "r") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function swiper) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function swiper))) (let* ((name "/") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-undo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-undo))) (let* ((name "?") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-redo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-redo))) (let* ((name "J") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function join-line) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function join-line))) (let* ((name "TAB") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function company-indent-or-complete-common) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function company-indent-or-complete-common))) (let* ((name "C") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function boon-toggle-comment) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function boon-toggle-comment)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "C-l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function recenter-top-bottom) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function recenter-top-bottom))) (let* ((name "r") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function swiper) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function swiper))) (let* ((name "/") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-undo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-undo))) (let* ((name "?") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-redo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-redo))) (let* ((name "J") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function join-line) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function join-line))) (let* ((name "TAB") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function company-indent-or-complete-common) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function company-indent-or-complete-common))) (let* ((name "C") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function boon-toggle-comment) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function boon-toggle-comment)))))))) (if (boundp 'boon-x-map) (progn (let* ((name "s") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function save-buffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function save-buffer))) (let* ((name "d") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function dired-jump) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function dired-jump))) (let* ((name "f") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-file))) (let* ((name "l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ido-mini) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ido-mini))) (let* ((name "c") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function kill-emacs) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function kill-emacs))) (let* ((name "v") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-alternate-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-alternate-file))) (let* ((name "b") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ibuffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ibuffer)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "s") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function save-buffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function save-buffer))) (let* ((name "d") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function dired-jump) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function dired-jump))) (let* ((name "f") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-file))) (let* ((name "l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ido-mini) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ido-mini))) (let* ((name "c") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function kill-emacs) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function kill-emacs))) (let* ((name "v") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-alternate-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-alternate-file))) (let* ((name "b") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ibuffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ibuffer)))))))) (if (boundp 'markdown-mode-map) (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export))))))))))
  (condition-case err (progn (if (fboundp 'recenter-top-bottom) nil (autoload (function recenter-top-bottom) "boon" nil t)) (if (fboundp 'swiper) nil (autoload (function swiper) "boon" nil t)) (if (fboundp 'undo-tree-undo) nil (autoload (function undo-tree-undo) "boon" nil t)) (if (fboundp 'undo-tree-redo) nil (autoload (function undo-tree-redo) "boon" nil t)) (if (fboundp 'join-line) nil (autoload (function join-line) "boon" nil t)) (if (fboundp 'boon-mode) nil (autoload (function boon-mode) "boon" nil t)) (condition-case err (boon-mode) ((debug error) (funcall use-package--warning2 :init err))) (eval-after-load 'boon (function (lambda nil (condition-case err (progn (progn (defvar use-package--warning0 (function (lambda (keyword err) (let ((msg (format "%s/%s: %s" 'boon-qwerty keyword (error-message-string err)))) (display-warning 'use-package msg :error))))) (condition-case err (if (not (require 'boon-qwerty nil t)) (display-warning 'use-package (format "Cannot load %s" 'boon-qwerty) :error)) ((debug error) (funcall use-package--warning0 :catch err)))) (let* ((x '(40 "(" ")"))) (if (member x boon-enclosures) boon-enclosures (setq boon-enclosures (cons x boon-enclosures)))) (progn (defvar use-package--warning1 (function (lambda (keyword err) (let ((msg (format "%s/%s: %s" 'boon-powerline keyword (error-message-string err)))) (display-warning 'use-package msg :error))))) (condition-case err (if (not (require 'boon-powerline nil t)) (display-warning 'use-package (format "Cannot load %s" 'boon-powerline) :error)) ((debug error) (funcall use-package--warning1 :catch err)))) (boon-powerline-theme) t) ((debug error) (funcall use-package--warning2 :config err)))))) (progn (if (boundp 'boon-command-map) (progn (let* ((name "C-l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function recenter-top-bottom) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function recenter-top-bottom))) (let* ((name "r") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function swiper) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function swiper))) (let* ((name "/") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-undo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-undo))) (let* ((name "?") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-redo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-redo))) (let* ((name "J") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function join-line) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function join-line))) (let* ((name "TAB") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function company-indent-or-complete-common) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function company-indent-or-complete-common))) (let* ((name "C") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function boon-toggle-comment) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function boon-toggle-comment)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "C-l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function recenter-top-bottom) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function recenter-top-bottom))) (let* ((name "r") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function swiper) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function swiper))) (let* ((name "/") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-undo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-undo))) (let* ((name "?") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function undo-tree-redo) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function undo-tree-redo))) (let* ((name "J") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function join-line) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function join-line))) (let* ((name "TAB") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function company-indent-or-complete-common) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function company-indent-or-complete-common))) (let* ((name "C") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-command-map)) (binding (lookup-key (or boon-command-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function boon-toggle-comment) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-command-map global-map) key (function boon-toggle-comment)))))))) (if (boundp 'boon-x-map) (progn (let* ((name "s") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function save-buffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function save-buffer))) (let* ((name "d") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function dired-jump) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function dired-jump))) (let* ((name "f") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-file))) (let* ((name "l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ido-mini) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ido-mini))) (let* ((name "c") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function kill-emacs) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function kill-emacs))) (let* ((name "v") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-alternate-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-alternate-file))) (let* ((name "b") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ibuffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ibuffer)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "s") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function save-buffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function save-buffer))) (let* ((name "d") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function dired-jump) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function dired-jump))) (let* ((name "f") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-file))) (let* ((name "l") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ido-mini) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ido-mini))) (let* ((name "c") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function kill-emacs) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function kill-emacs))) (let* ((name "v") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function find-alternate-file) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function find-alternate-file))) (let* ((name "b") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'boon-x-map)) (binding (lookup-key (or boon-x-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function ibuffer) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or boon-x-map global-map) key (function ibuffer)))))))) (if (boundp 'markdown-mode-map) (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export)))) (eval-after-load 'boon (function (lambda nil (progn (let* ((name "C-c ,") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-promote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-promote))) (let* ((name "C-c .") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-demote) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-demote))) (let* ((name "C-c C-e") (key (if (vectorp name) name (read-kbd-macro name))) (kdesc (cons (if (stringp name) name (key-description name)) 'markdown-mode-map)) (binding (lookup-key (or markdown-mode-map global-map) key))) (let ((entry (assoc kdesc personal-keybindings)) (details (list (function markdown-export) (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key (or markdown-mode-map global-map) key (function markdown-export)))))))))) ((debug error) (funcall use-package--warning2 :catch err)))
  eval-region(2442 3333 t #f(compiled-function (ignore) #<bytecode 0x2db8321>))  ; Reading at buffer position 2651
  elisp--eval-defun()
  eval-defun(nil)
  funcall-interactively(eval-defun nil)
  call-interactively(eval-defun nil nil)
  command-execute(eval-defun)

GNU Emacs 26.1 (build 2, i686-pc-linux-gnu, GTK+ Version 3.24.5) of 2019-09-23, modified by Debian

use-package v20190716.1829 from MELPA

[waymondo]

My guess is that this use-package declaration is before your one for markdown-mode. markdown-mode-map is not autoloaded, so unless markdown-mode is loaded beforehand, this form will be unaware of it.

[conao3]

markdown-mode-map should defined at markdown-mode package, you need to specify :package argument.

(use-package boon
  :commands (boon-mode)
  :bind
  ((:map boon-command-map
         ("C-l" . recenter-top-bottom)
         ("r"   . swiper)
         ("/"   . undo-tree-undo)
         ("?"   . undo-tree-redo)
         ("J"   . join-line)
         ("TAB" . 'company-indent-or-complete-common)
         ("C"   . 'boon-toggle-comment))
   (:map boon-x-map
         ("s" . 'save-buffer)
         ("d" . 'dired-jump)
         ("f" . 'find-file)
         ("l" . 'ido-mini)
         ("c" . 'kill-emacs)
         ("v" . 'find-alternate-file)
         ("b" . 'ibuffer))
   (:map markdown-mode-map
         :package markdown-mode
         ("C-c ,"   . 'markdown-promote)
         ("C-c ."   . 'markdown-demote)
         ("C-c C-e" . 'markdown-export)))
  :init
  (boon-mode)
  :config
  (use-package boon-qwerty)
  (add-to-list 'boon-enclosures `(40 "(" ")")) ;; opening paren
  (use-package boon-powerline)
  (boon-powerline-theme))

[skangas]

@conao3 provided a solution for this, and there have been no further comments. I'm therefore closing this issue.