Prefix slot names with %

init.org

@@ -851,7 +851,8 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("T" (my-start-app-or-switch "transmission-gtk") "bittorrent")
   ("s" (my-start-app-or-switch "xfce4-screenshooter") "screenshot")
   ("q" (my-start-app-or-switch "qtractor") "Qtractor")
-  ("w" my-eww "eww"))
+  ("W" my-eww "eww")
+  ("w" eww-list-bookmarks "eww bookmarks"))
 #+END_SRC
 
 *** org
@@ -2718,9 +2719,11 @@ An example of querying the Chronometrist file data - finding out how much time I
         ("c" . #'shr-previous-link)
         ("r" . #'shr-next-link)
         ("v" . nil))
+  (:map eww-bookmark-mode-map
+        ("c" . #'previous-line)
+        ("r" . #'next-line))
   ;; end boon-specific config
   )
-
 (defun my-eww ()
   (interactive)
   (cond ((derived-mode-p 'dired-mode)
@@ -5091,8 +5094,8 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel
         ("l" . special-lispy-teleport)
         ("j" . special-lispy-occur)
         ;; essential manipulation
-        ("k" . special-lispy-clone) ;; QWERTY c
-        ("K" . special-lispy-convolute) ;; QWERTY C
+        ("k" . special-lispy-clone)
+        ("K" . special-lispy-convolute)
         ("C" . special-lispy-move-up)
         ("R" . special-lispy-move-down)
         ("o" . special-lispy-splice) ;; QWERTY S
@@ -5118,7 +5121,8 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel
     '(("t" . lispy-backward)
       ("n" . lispy-forward)
       ("T" . lispy-splice-sexp-killing-forward)
-      ("N" . lispy-splice-sexp-killing-backward))
+      ("N" . lispy-splice-sexp-killing-backward)
+      ("?" . lispy-describe-inline))
     do (lispy-define-key lispy-mode-map (kbd key) cmd)))
 #+END_SRC
 

templates

@@ -23,15 +23,17 @@ lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode
 
 slime-repl-mode lisp-mode
 (dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
-    "(" "(" (p "slot" slot)
-             " :initarg :" (s slot) n>
-             " :accessor " (s slot) > ")" "))")
+    "(" "(%" (p "slot" slot)
+              " :initarg :" (s slot) n>
+              " :accessor " (s slot) > ")" "))")
 (dg "(defgeneric " p " (" ")" n>
     "(:documentation \"" (s "docstring") "\"))")
 (qq "(ql:quickload '(" (p "packages") "))")
-(up "(use-package (" (p "package") "))")
+(up "(use-package '(" (p "package") "))")
 (ip "(in-package :" (p "package") ")")
 (l "(lambda (" (s "arguments") ") " (s "forms") ")")
+(hha "#-(and)")
+(hpo "#+(or)")
 
 sql-mode
 (ct "CREATE TABLE " (s "table") " ("