211 lines
8.7 KiB
Plaintext
211 lines
8.7 KiB
Plaintext
Some possible keybindings:
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;; Bookmarks key bindings
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(when (not tla-bookmarks-mode-map)
|
|
(setq tla-bookmarks-mode-map (make-sparse-keymap))
|
|
|
|
;;; Commands for merging (M)
|
|
(define-key tla-bookmarks-mode-map [?M ?s] 'tla-bookmarks-star-merge)
|
|
(define-key tla-bookmarks-mode-map [?M ?m] 'tla-bookmarks-missing)
|
|
(define-key tla-bookmarks-mode-map [?M ?r] 'tla-bookmarks-replay)
|
|
|
|
|
|
;;; Commands for marking (*)
|
|
(define-key tla-bookmarks-mode-map "\M-\C-?" 'tla-bookmarks-unmark-all)
|
|
(define-key tla-bookmarks-mode-map [?* ?!] 'tla-bookmarks-unmark-all)
|
|
(define-key tla-bookmarks-mode-map [?* ?u] 'tla-bookmarks-unmark)
|
|
(define-key tla-bookmarks-mode-map [?* ?m] 'tla-bookmarks-mark)
|
|
|
|
|
|
;;; Navigation
|
|
(define-key tla-bookmarks-mode-map [?n] 'tla-bookmarks-next)
|
|
(define-key tla-bookmarks-mode-map [?p] 'tla-bookmarks-previous)
|
|
|
|
|
|
;;; Bookmark specific commands
|
|
(define-key tla-bookmarks-mode-map "\C-m" 'tla-bookmarks-goto)
|
|
(define-key tla-bookmarks-mode-map [?a] 'tla-bookmarks-add)
|
|
(define-key tla-bookmarks-mode-map [?e] 'tla-bookmarks-edit)
|
|
(define-key tla-bookmarks-mode-map [?d] 'tla-bookmarks-delete)
|
|
(define-key tla-bookmarks-mode-map [?o] 'tla-bookmarks-open-tree)
|
|
(define-key tla-bookmarks-mode-map [?i] 'tla-bookmarks-inventory)
|
|
(define-key tla-bookmarks-mode-map [?q] 'tla-buffer-quit)
|
|
(define-key tla-bookmarks-mode-map [?+ ?b] 'tla-bookmarks-add)
|
|
(define-key tla-bookmarks-mode-map [?+ ?t] 'tla-bookmarks-add-tree-interactive)
|
|
(define-key tla-bookmarks-mode-map [?- ?t] 'tla-bookmarks-delete-tree-interactive)
|
|
(define-key tla-bookmarks-mode-map [?+ ?p] 'tla-bookmarks-add-partner-interactive)
|
|
(define-key tla-bookmarks-mode-map [?- ?p] 'tla-bookmarks-delete-partner-interactive)
|
|
(define-key tla-bookmarks-mode-map [?+ ?g] 'tla-bookmarks-add-group-interactive)
|
|
(define-key tla-bookmarks-mode-map [?- ?g] 'tla-bookmarks-delete-group-interactive)
|
|
(define-key tla-bookmarks-mode-map [?* ?g] 'tla-bookmarks-select-by-group)
|
|
(define-key tla-bookmarks-mode-map [?N] 'tla-bookmarks-move-down)
|
|
(define-key tla-bookmarks-mode-map [?P] 'tla-bookmarks-move-up)
|
|
|
|
|
|
;;; Archive commands (A)
|
|
(define-key tla-bookmarks-mode-map [?>] 'tla-bookmarks-get)
|
|
(define-key tla-bookmarks-mode-map [?A ?g] 'tla-bookmarks-get)
|
|
|
|
|
|
;;; Toggle commands (T)
|
|
(define-key tla-bookmarks-mode-map [?T t] 'tla-bookmarks-toggle-details)
|
|
|
|
|
|
;;; Debugging commands (D)
|
|
(define-key tla-bookmarks-mode-map [?D p] 'tla-show-process-buffer)
|
|
;; Add me!
|
|
;; (define-key tla-bookmarks-mode-map [?D l] 'tla-show-tla-log)
|
|
|
|
|
|
;;; Misc
|
|
(define-key tla-bookmarks-mode-map [??] 'describe-mode)
|
|
(define-key tla-bookmarks-mode-map [(meta p)]
|
|
'tla-bookmarks-marked-are-partners)
|
|
)
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;; Inventory key bindings
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(when (not tla-inventory-mode-map)
|
|
(setq tla-inventory-mode-map (make-sparse-keymap))
|
|
|
|
;;; Commands for merging (M)
|
|
(define-key tla-inventory-mode-map [?M ?s] 'tla-inventory-star-merge)
|
|
(define-key tla-inventory-mode-map [?M ?r] 'tla-inventory-replay)
|
|
|
|
|
|
;;; Commands for marking (*)
|
|
(define-key tla-inventory-mode-map "\M-\C-?" 'tla-inventory-unmark-all)
|
|
(define-key tla-inventory-mode-map [?* ?m] 'tla-inventory-mark-file)
|
|
(define-key tla-inventory-mode-map [?* ?u] 'tla-inventory-unmark-file)
|
|
(define-key tla-inventory-mode-map [?* ?!] 'tla-inventory-unmark-all)
|
|
|
|
|
|
;;; Navigation
|
|
(define-key tla-inventory-mode-map [?n] 'tla-inventory-next)
|
|
(define-key tla-inventory-mode-map [?p] 'tla-inventory-previous)
|
|
(define-key tla-inventory-mode-map [?^] 'tla-inventory-parent-directory)
|
|
(define-key tla-inventory-mode-map [left] 'tla-inventory-parent-directory)
|
|
|
|
|
|
;;; Inventory specific commands
|
|
(define-key tla-inventory-mode-map [?+ ?f] 'tla-inventory-add)
|
|
(define-key tla-inventory-mode-map [?- ?f] 'tla-inventory-remove)
|
|
(define-key tla-inventory-mode-map [?R] 'tla-inventory-move)
|
|
(define-key tla-inventory-mode-map [?e] 'tla-inventory-file-ediff)
|
|
(define-key tla-inventory-mode-map [?c] 'tla-inventory-edit-log) ;; mnemonic for commit
|
|
(define-key tla-inventory-mode-map [?f] 'tla-inventory-find-file)
|
|
(define-key tla-inventory-mode-map [return] 'tla-inventory-find-file)
|
|
(define-key tla-inventory-mode-map [right] 'tla-inventory-find-file)
|
|
(define-key tla-inventory-mode-map "\C-m" 'tla-inventory-find-file)
|
|
(define-key tla-inventory-mode-map [?o] 'tla-inventory-find-file-other-window)
|
|
(define-key tla-inventory-mode-map [?v] 'tla-inventory-view-file)
|
|
;; (define-key tla-inventory-mode-map [?d ?e] 'tla-inventory-file-ediff)
|
|
(define-key tla-inventory-mode-map [?d ?m] 'tla-inventory-missing)
|
|
(define-key tla-inventory-mode-map [?=] 'tla-changes)
|
|
(define-key tla-inventory-mode-map [?l] 'tla-changelog)
|
|
(define-key tla-inventory-mode-map [?L] 'tla-logs)
|
|
|
|
|
|
;;; Archive commands (A)
|
|
(define-key tla-inventory-mode-map [?A ?m] 'tla-inventory-mirror)
|
|
|
|
|
|
;;; Toggle commands (T)
|
|
(dolist (type-arg tla-inventory-file-types-manipulators)
|
|
(define-key tla-inventory-mode-map `[?T ,(cadddr type-arg)] (caddr type-arg)))
|
|
(define-key tla-inventory-mode-map [?T ?+] 'tla-inventory-set-all-toggle-variables)
|
|
(define-key tla-inventory-mode-map [?T ?-] 'tla-inventory-reset-all-toggle-variables)
|
|
(define-key tla-inventory-mode-map [?T ?~] 'tla-inventory-toggle-all-toggle-variables)
|
|
|
|
;;; Debugging commands (D)
|
|
(define-key tla-inventory-mode-map [?D p] 'tla-show-process-buffer)
|
|
;; Add me!
|
|
;; (define-key tla-inventory-mode-map [?D l] 'tla-show-tla-log)
|
|
|
|
;;; Misc
|
|
(define-key tla-inventory-mode-map [??] 'describe-mode)
|
|
(define-key tla-inventory-mode-map [?g] 'tla-generic-refresh)
|
|
(define-key tla-inventory-mode-map [?q] 'tla-buffer-quit)
|
|
)
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;; Revision key bindings
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(when (not tla-revision-list-mode-map)
|
|
(setq tla-revision-list-mode-map (make-sparse-keymap))
|
|
|
|
;;; Commands for merging/branching (M)
|
|
(define-key tla-revision-list-mode-map [?M ?s] 'tla-revision-star-merge)
|
|
(define-key tla-revision-list-mode-map [?M ?t] 'tla-revision-tag)
|
|
(define-key tla-revision-list-mode-map [?M ?r] 'tla-revision-replay)
|
|
|
|
|
|
;;; Commands for marking (*)
|
|
(define-key tla-revision-list-mode-map [?* ?m] 'tla-revision-mark-revision)
|
|
;; Add me!
|
|
;; (define-key tla-revision-list-mode-map [?* ?u]
|
|
;; 'tla-revision-unmark-revision)
|
|
|
|
|
|
;;; Navigation
|
|
(define-key tla-revision-list-mode-map [?^]
|
|
'tla-revision-list-parent-version)
|
|
(define-key tla-revision-list-mode-map [left]
|
|
'tla-revision-list-parent-version)
|
|
(define-key tla-revision-list-mode-map [down] 'tla-bookmarks-missing-next)
|
|
(define-key tla-revision-list-mode-map [up] 'tla-bookmarks-missing-prev)
|
|
(define-key tla-revision-list-mode-map [?n] 'tla-bookmarks-missing-next)
|
|
(define-key tla-revision-list-mode-map [?p] 'tla-bookmarks-missing-prev)
|
|
|
|
|
|
;;; Archive commands (A)
|
|
(define-key tla-revision-list-mode-map [?> ?g] 'tla-revision-get-revision)
|
|
(define-key tla-revision-list-mode-map [?> ?C] 'tla-revision-cache-revision)
|
|
(define-key tla-revision-list-mode-map [?> ?L] 'tla-revision-add-to-library)
|
|
(define-key tla-revision-list-mode-map [?A ?g] 'tla-revision-get-revision)
|
|
(define-key tla-revision-list-mode-map [?A ?c] 'tla-revision-cache-revision)
|
|
(define-key tla-revision-list-mode-map [?A ?l] 'tla-revision-add-to-library)
|
|
|
|
|
|
;;; Toggle commands (T)
|
|
(define-key tla-revision-list-mode-map [?T ?d] 'tla-revision-toggle-date)
|
|
(define-key tla-revision-list-mode-map [?T ?c] 'tla-revision-toggle-creator)
|
|
(define-key tla-revision-list-mode-map [?T ?s] 'tla-revision-toggle-summary)
|
|
(define-key tla-revision-list-mode-map [?T ?r] 'tla-revision-toggle-reverse)
|
|
;; ?t ?? is reserved. Not implemented yet.
|
|
(define-key tla-revision-list-mode-map [?T ??] 'tla-revision-list-toggles)
|
|
|
|
|
|
;;; Debugging commands (D)
|
|
(define-key tla-revision-list-mode-map [?D p] 'tla-show-process-buffer)
|
|
;; Add me!
|
|
;; (define-key tla-revision-mode-map [?D l] 'tla-show-tla-log)
|
|
|
|
|
|
;;; Revision specific commands
|
|
(define-key tla-revision-list-mode-map [?l] 'tla-revision-cat-log)
|
|
(define-key tla-revision-list-mode-map [?u] 'tla-revision-update)
|
|
(define-key tla-revision-list-mode-map "\C-m" 'tla-revision-return)
|
|
(define-key tla-revision-list-mode-map [return] 'tla-revision-return)
|
|
(define-key tla-revision-list-mode-map [right] 'tla-revision-return)
|
|
(define-key tla-revision-list-mode-map [?d] 'tla-revision-delta)
|
|
(define-key tla-revision-list-mode-map [?=] 'tla-revision-changeset)
|
|
(define-key tla-revision-list-mode-map [?i] 'tla-pop-to-inventory)
|
|
(define-key tla-revision-list-mode-map [?.] 'tla-revision-bookmarks-add)
|
|
|
|
|
|
;;; Misc
|
|
(define-key tla-revision-list-mode-map [?g] 'tla-generic-refresh)
|
|
(define-key tla-revision-list-mode-map [?q] 'tla-buffer-quit)
|
|
)
|