[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sesman 26931e1e64 094/100: Add menu for browser
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/sesman 26931e1e64 094/100: Add menu for browser |
Date: |
Tue, 28 Dec 2021 14:06:06 -0500 (EST) |
branch: elpa/sesman
commit 26931e1e6496a5b9e78ff0d45898b011f8d6c7eb
Author: sogaiu <983021772@users.noreply.github.com>
Commit: Vitalie Spinu <spinuvit@gmail.com>
Add menu for browser
---
sesman-browser.el | 69 +++++++++++++++++++++++++++++++++++++------------------
1 file changed, 47 insertions(+), 22 deletions(-)
diff --git a/sesman-browser.el b/sesman-browser.el
index 01957f20be..54adc514da 100644
--- a/sesman-browser.el
+++ b/sesman-browser.el
@@ -70,28 +70,53 @@ Currently can be either 'name or 'relevance."
"Prefix keymap for sesman commands from sesman browser.")
(defvar sesman-browser-mode-map
- (let ((sesman-browser-mode-map (make-sparse-keymap)))
- (define-key sesman-browser-mode-map (kbd "n")
#'sesman-browser-vertical-next)
- (define-key sesman-browser-mode-map (kbd "p")
#'sesman-browser-vertical-prev)
- (define-key sesman-browser-mode-map (kbd "f") #'sesman-browser-forward)
- (define-key sesman-browser-mode-map (kbd "b") #'sesman-browser-backward)
- (define-key sesman-browser-mode-map [remap forward-paragraph]
#'sesman-browser-session-next)
- (define-key sesman-browser-mode-map [remap backward-paragraph]
#'sesman-browser-session-prev)
- (define-key sesman-browser-mode-map (kbd "C-M-n")
#'sesman-browser-session-next)
- (define-key sesman-browser-mode-map (kbd "C-M-p")
#'sesman-browser-session-prev)
- (define-key sesman-browser-mode-map (kbd "<tab>") #'sesman-browser-forward)
- (define-key sesman-browser-mode-map (kbd "<backtab>")
#'sesman-browser-backward)
- (define-key sesman-browser-mode-map (kbd "<RET>") #'sesman-goto)
- (define-key sesman-browser-mode-map (kbd "o") #'sesman-show)
- (define-key sesman-browser-mode-map (kbd "t") #'sesman-browser-toggle-sort)
- (define-key sesman-browser-mode-map (kbd "S") #'sesman-browser-toggle-sort)
- (define-key sesman-browser-mode-map (kbd "l b")
#'sesman-browser-link-with-buffer)
- (define-key sesman-browser-mode-map (kbd "l d")
#'sesman-browser-link-with-directory)
- (define-key sesman-browser-mode-map (kbd "l p")
#'sesman-browser-link-with-project)
- (define-key sesman-browser-mode-map (kbd "u") #'sesman-browser-unlink)
- (define-key sesman-browser-mode-map (kbd "s") 'sesman-browser-map)
- (define-key sesman-browser-mode-map (kbd "C-c C-s") 'sesman-browser-map)
- sesman-browser-mode-map)
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "n") #'sesman-browser-vertical-next)
+ (define-key map (kbd "p") #'sesman-browser-vertical-prev)
+ (define-key map (kbd "f") #'sesman-browser-forward)
+ (define-key map (kbd "b") #'sesman-browser-backward)
+ (define-key map [remap forward-paragraph] #'sesman-browser-session-next)
+ (define-key map [remap backward-paragraph] #'sesman-browser-session-prev)
+ (define-key map (kbd "C-M-n") #'sesman-browser-session-next)
+ (define-key map (kbd "C-M-p") #'sesman-browser-session-prev)
+ (define-key map (kbd "<tab>") #'sesman-browser-forward)
+ (define-key map (kbd "<backtab>") #'sesman-browser-backward)
+ (define-key map (kbd "<RET>") #'sesman-goto)
+ (define-key map (kbd "o") #'sesman-show)
+ (define-key map (kbd "t") #'sesman-browser-toggle-sort)
+ (define-key map (kbd "S") #'sesman-browser-toggle-sort)
+ (define-key map (kbd "l b") #'sesman-browser-link-with-buffer)
+ (define-key map (kbd "l d") #'sesman-browser-link-with-directory)
+ (define-key map (kbd "l p") #'sesman-browser-link-with-project)
+ (define-key map (kbd "u") #'sesman-browser-unlink)
+ (define-key map (kbd "s") 'sesman-browser-map)
+ (define-key map (kbd "C-c C-s") 'sesman-browser-map)
+ ;; XXX what to do for map...
+ (easy-menu-define sesman-browser-mode-map map
+ "Sesman Browser"
+ '("SesmanBrowser"
+ ["Next section / row" sesman-browser-vertical-next]
+ ["Previous section / row" sesman-browser-vertical-prev]
+ "--"
+ ["Next button" sesman-browser-forward]
+ ["Previous button" sesman-browser-backward]
+ "--"
+ ["Next session" sesman-browser-session-next]
+ ["Previous session" sesman-browser-session-prev]
+ "--"
+ ["Goto buffer" sesman-goto]
+ ["Show buffer" sesman-show]
+ "--"
+ ["Toggle sort" sesman-browser-toggle-sort]
+ "--"
+ ["Link with Buffer" sesman-browser-link-with-buffer]
+ ["Link with Directory" sesman-browser-link-with-directory]
+ ["Link with Project" sesman-browser-link-with-project]
+ "--"
+ ["Unlink" sesman-browser-unlink]
+ "--"
+ ["Refresh View" revert-buffer]))
+ map)
"Local keymap in `sesman-browser-mode'.")
- [nongnu] elpa/sesman 92a4c0a168 045/100: Add sesman-post-command-hook, (continued)
- [nongnu] elpa/sesman 92a4c0a168 045/100: Add sesman-post-command-hook, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 73d726499f 060/100: Bump the development version, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman f3975de11a 038/100: Remove dependency on project.el, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 9e16e21fc4 055/100: Add white space cleaner to dir-locals, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman e3adc450af 052/100: Run hooks in sesman-unlink, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 796a214e1f 058/100: Typo, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman c81565a88b 071/100: Version 0.3, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman d403a84746 069/100: Put back separator in info display, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman cdf0064408 067/100: Use -face in face names, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 563ebeaafb 098/100: Fix broken link in README.md, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 26931e1e64 094/100: Add menu for browser,
ELPA Syncer <=
- [nongnu] elpa/sesman b16ba94386 097/100: Make sesman-unlink to take optional LINKS argument (#22), ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman e0f555f963 100/100: Rename sesman-get-system and defalias sesman--system, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 37b9b50f8f 014/100: Get rid of -get- qualifier, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman e06a40589d 010/100: Move back from cider new-connection branch, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman ec275e2e10 009/100: Readme, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 8f2784a4ba 001/100: Initial commit, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 7987deb2c4 011/100: Makefile, tests, travis, checkdoc, .dir-locals, .gitignore etc., ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman b839a2379a 005/100: More bulk updates, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 27bd3bf457 020/100: Remove disambiguation defcustom and simplify sesman-ensure-linked-session, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman df5a081689 029/100: Fix a fixme :-), ELPA Syncer, 2021/12/28