Install infokey

2 files changed, 130 insertions, 3 deletions

diff --git a/tw/home.scm b/tw/home.scm
index 6a394a62..17cb7da7 100644
--- a/tw/home.scm
+++ b/tw/home.scm
@@ -168,9 +168,10 @@
        ("user-dirs.locale" ,(plain-file "user-dirs.locale" "C"))  ; Not sure if this is needed. Arch has it.
        ("user-dirs.dirs" ,(local-file "home/files/user-dirs.dirs"))))
 
-   (simple-service 'common-scripts home-files-service-type
-     ;; With #:recursive? #t, Guix keeps the files' permission bits, i.e. makes them executable.
-     `((".local/bin/ppscm" ,(local-file "home/files/ppscm" #:recursive? #t))))  ; pretty-print scheme files
+   (simple-service 'common-files home-files-service-type
+     `((".infokey" ,(local-file "home/files/infokey"))
+       ;; With #:recursive? #t, Guix keeps the files' permission bits, i.e. makes them executable.
+       (".local/bin/ppscm" ,(local-file "home/files/ppscm" #:recursive? #t))))  ; pretty-print scheme files
 
    (simple-service 'cern-ci-environment home-environment-variables-service-type
      ;; Nomad, Consul, Vault
diff --git a/tw/home/files/infokey b/tw/home/files/infokey
new file mode 100644
index 00000000..aa1a312c
--- /dev/null
+++ b/tw/home/files/infokey
@@ -0,0 +1,126 @@
+# -*- mode: conf-unix; eval: (conf-quote-normal nil); -*-
+# Infokey file inspired by evil-collection's Emacs info-mode bindings.
+# https://github.com/emacs-evil/evil-collection/blob/master/modes/info/evil-collection-info.el
+# See also: info '(info-stnd)infokey format' and info's --vi-keys option.
+
+#info
+j       next-line
+k       prev-line
+\mj     down-line
+\mk     up-line
+h       backward-char
+l       forward-char
+\^      beginning-of-line
+_       beginning-of-line
+$       end-of-line
+
+gj      next-node
+^j      global-next-node
+gk      prev-node
+^k      global-prev-node
+u       up-node
+J       goto-node
+gJ      menu-sequence
+gG      goto-node
+
+gg      beginning-of-node
+G       end-of-node
+gl      move-to-window-line
+gm      find-menu
+gf      xref-item
+gF      show-footnotes
+d       dir-node
+gt      top-node
+
+^f      scroll-forward-page-only
+^d      scroll-half-screen-down
+^b      scroll-backward-page-only
+^u      scroll-half-screen-up
+\m\kU   scroll-other-window-backward
+\m\kD   scroll-other-window
+
+'       history-node
+^o      history-node
+^t      history-node
+gL      list-visited-nodes
+
+:       execute-command
+\ \     execute-command
+v       set-variable
+
+# analogous to R, toggle-regexp
+W       toggle-wrap
+\ tl    toggle-wrap
+C       clear-search
+\ sc    clear-search
+U       universal-argument
+\ u     universal-argument
+
+n       search-next
+N       search-previous
+
+\ ff    view-file
+\ fa    all-files
+\ fp    print-node
+
+i       index-search
+I       virtual-index
+,       next-index-match
+g,      next-index-match
+a       index-apropos
+
+\ vv    list-visited-nodes
+\ vs    select-visited-node
+\ vm    visit-menu
+
+\ ww    next-window
+^ww     next-window
+\ wW    prev-window
+^wW     prev-window
+\ wd    delete-window
+^wd     delete-window
+\ w1    keep-one-window
+^w1     keep-one-window
+\ ws    split-window
+^ws     split-window
+\ w}    grow-window
+^w}     grow-window
+\ wj    next-window
+^wj     next-window
+\ wk    prev-window
+^wk     prev-window
+\ w=    tile-windows
+^w=     tile-windows
+\ w|    set-screen-height
+^w|     set-screen-height
+
+\ hh    get-info-help-node
+\ hv    info-version
+\ hdk   describe-key
+\ hdv   describe-variable
+\ hdf   describe-command
+\ hk    where-is
+\ hm    man
+
+q       quit
+Q       quit
+
+#echo-area
+\mh     echo-area-backward
+\ml     echo-area-forward
+\m0     echo-area-beg-of-line
+\m$     echo-area-end-of-line
+\mw     echo-area-forward-word
+\mx     echo-area-delete
+\mu     echo-area-abort
+^v      echo-area-quoted-insert
+\mX     echo-area-kill-word
+
+#var
+link-style=blue,nounderline
+active-link-style=blue,underline
+match-style=yellow,standout
+cursor-movement-scrolls=Off
+scroll-behaviour=Page Only
+hide-note-references=On
+mouse=normal-tracking