From: Alex Schroeder Date: Thu, 2 Jul 2020 21:42:32 +0000 (+0200) Subject: Add elpher menu X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=9c83b182ad7fe5e52d3ecabf0cb9df5d54357fef;p=elpher.git Add elpher menu --- diff --git a/elpher.el b/elpher.el index 26f574a..28f8075 100644 --- a/elpher.el +++ b/elpher.el @@ -2002,6 +2002,179 @@ functions which initialize the gopher client, namely (when (fboundp 'evil-set-initial-state) (evil-set-initial-state 'elpher-mode 'motion)) +;;; Menu +;; + +(defun elpher-menu () + "Show a list of all your `elpher' buffers." + (interactive) + (switch-to-buffer (get-buffer-create "*Elpher Menu*")) + (elpher-menu-mode) + (elpher-menu-refresh) + (tabulated-list-print)) + +(defvar elpher-menu-mode-map + (let ((map (make-sparse-keymap)) + (menu-map (make-sparse-keymap))) + (set-keymap-parent map tabulated-list-mode-map) + (define-key map "v" 'Buffer-menu-select) + (define-key map "2" 'Buffer-menu-2-window) + (define-key map "1" 'Buffer-menu-1-window) + (define-key map "f" 'Buffer-menu-this-window) + (define-key map "e" 'Buffer-menu-this-window) + (define-key map "\C-m" 'Buffer-menu-this-window) + (define-key map "o" 'Buffer-menu-other-window) + (define-key map "\C-o" 'Buffer-menu-switch-other-window) + (define-key map "d" 'Buffer-menu-delete) + (define-key map "k" 'Buffer-menu-delete) + (define-key map "\C-k" 'Buffer-menu-delete) + (define-key map "\C-d" 'Buffer-menu-delete-backwards) + (define-key map "x" 'Buffer-menu-execute) + (define-key map " " 'next-line) + (define-key map "\177" 'Buffer-menu-backup-unmark) + (define-key map "u" 'Buffer-menu-unmark) + (define-key map "m" 'Buffer-menu-mark) + (define-key map "b" 'Buffer-menu-bury) + (define-key map (kbd "M-s a C-s") 'Buffer-menu-isearch-buffers) + (define-key map (kbd "M-s a M-C-s") 'Buffer-menu-isearch-buffers-regexp) + (define-key map (kbd "M-s a C-o") 'Buffer-menu-multi-occur) + (define-key map [mouse-2] 'Buffer-menu-mouse-select) + (define-key map [follow-link] 'mouse-face) + (define-key map [menu-bar elpher-menu-mode] (cons (purecopy "Elpher-Menu") menu-map)) + (bindings--define-key menu-map [quit] + '(menu-item "Quit" quit-window + :help "Remove the elpher menu from the display")) + (bindings--define-key menu-map [rev] + '(menu-item "Refresh" revert-buffer + :help "Refresh the *Elpher Menu* buffer contents")) + (bindings--define-key menu-map [s0] menu-bar-separator) + (bindings--define-key menu-map [sel] + '(menu-item "Select Marked" Buffer-menu-select + :help "Select this line's buffer; also display buffers marked with `>'")) + (bindings--define-key menu-map [bm2] + '(menu-item "Select Two" Buffer-menu-2-window + :help "Select this line's buffer, with previous buffer in second window")) + (bindings--define-key menu-map [bm1] + '(menu-item "Select Current" Buffer-menu-1-window + :help "Select this line's buffer, alone, in full frame")) + (bindings--define-key menu-map [ow] + '(menu-item "Select in Other Window" Buffer-menu-other-window + :help "Select this line's buffer in other window, leaving buffer menu visible")) + (bindings--define-key menu-map [tw] + '(menu-item "Select in Current Window" Buffer-menu-this-window + :help "Select this line's buffer in this window")) + (bindings--define-key menu-map [s2] menu-bar-separator) + (bindings--define-key menu-map [is] + '(menu-item "Regexp Isearch Marked Buffers..." Buffer-menu-isearch-buffers-regexp + :help "Search for a regexp through all marked buffers using Isearch")) + (bindings--define-key menu-map [ir] + '(menu-item "Isearch Marked Buffers..." Buffer-menu-isearch-buffers + :help "Search for a string through all marked buffers using Isearch")) + (bindings--define-key menu-map [mo] + '(menu-item "Multi Occur Marked Buffers..." Buffer-menu-multi-occur + :help "Show lines matching a regexp in marked buffers using Occur")) + (bindings--define-key menu-map [s3] menu-bar-separator) + (bindings--define-key menu-map [by] + '(menu-item "Bury" Buffer-menu-bury + :help "Bury the buffer listed on this line")) + (bindings--define-key menu-map [ex] + '(menu-item "Execute" Buffer-menu-execute + :help "Delete buffers marked with k commands")) + (bindings--define-key menu-map [s4] menu-bar-separator) + (bindings--define-key menu-map [delb] + '(menu-item "Mark for Delete and Move Backwards" Buffer-menu-delete-backwards + :help "Mark buffer on this line to be deleted by x command and move up one line")) + (bindings--define-key menu-map [del] + '(menu-item "Mark for Delete" Buffer-menu-delete + :help "Mark buffer on this line to be deleted by x command")) + (bindings--define-key menu-map [umk] + '(menu-item "Unmark" Buffer-menu-unmark + :help "Cancel all requested operations on buffer on this line and move down")) + (bindings--define-key menu-map [mk] + '(menu-item "Mark" Buffer-menu-mark + :help "Mark buffer on this line for being displayed by v command")) + map) + "Local keymap for `elpher-menu-mode' buffers.") + +(define-derived-mode elpher-menu-mode tabulated-list-mode "Elpher Menu" + "Major mode for Elpher Menu buffers. +The Elpher Menu is invoked by the command \\[elpher-menu]. + +In Elpher Menu mode, the following commands are defined: +\\ +\\[quit-window] Remove the Buffer Menu from the display. +\\[tabulated-list-sort] sorts buffers according to the current + column. With a numerical argument, sort by that column. +\\[Buffer-menu-this-window] Select current line's buffer in place of the buffer menu. +\\[Buffer-menu-other-window] Select that buffer in another window, + so the Buffer Menu remains visible in its window. +\\[Buffer-menu-switch-other-window] Make another window display that buffer. +\\[Buffer-menu-mark] Mark current line's buffer to be displayed. +\\[Buffer-menu-select] Select current line's buffer. + Also show buffers marked with m, in other windows. +\\[Buffer-menu-1-window] Select that buffer in full-frame window. +\\[Buffer-menu-2-window] Select that buffer in one window, together with the + buffer selected before this one in another window. +\\[Buffer-menu-isearch-buffers] Incremental search in the marked buffers. +\\[Buffer-menu-isearch-buffers-regexp] Isearch for regexp in the marked buffers. +\\[Buffer-menu-multi-occur] Show lines matching regexp in the marked buffers. +\\[Buffer-menu-delete] Mark that buffer to be deleted, and move down. +\\[Buffer-menu-delete-backwards] Mark that buffer to be deleted, and move up. +\\[Buffer-menu-execute] Delete or save marked buffers. +\\[Buffer-menu-unmark] Remove all marks from current line. + With prefix argument, also move up one line. +\\[Buffer-menu-backup-unmark] Back up a line and remove marks. +\\[revert-buffer] Update the list of buffers. +\\[Buffer-menu-bury] Bury the buffer listed on this line." + (add-hook 'tabulated-list-revert-hook 'elpher-menu-refresh)) + +(defvar elpher-title nil) + +(defun elpher-find-title () + "Return the first heading1." + (if elpher-title + elpher-title + (let ((start (text-property-any + (point-min) (point-max) + 'face 'elpher-gemini-heading1))) + (if start + (save-excursion + (goto-char start) + (setq-local elpher-title + (buffer-substring-no-properties + start (line-end-position)))) + "none")))) + +(defun elpher-menu-refresh () + "Refresh the list of buffers." + ;; Set up `tabulated-list-format'. + (setq tabulated-list-format + (vector '("T" 1 t) + '("URL" 35 t) + '("Name" 35 t)) + tabulated-list-sort-key '("Name")) + ;; Collect info for each buffer we're interested in. + (let (entries) + (dolist (buf (buffer-list)) + (with-current-buffer buf + (when (memq major-mode '(elpher-mode eww-mode)) + (push (list buf + (vector + (cond ((eq major-mode 'elpher-mode) "E") + ((eq major-mode 'eww-mode) "W")) + (cond ((eq major-mode 'elpher-mode) + (or (elpher-address-to-url + (elpher-page-address elpher-current-page)) + "none")) + ((eq major-mode 'eww-mode) + (eww-current-url))) + (cond ((eq major-mode 'elpher-mode) + (elpher-find-title)) + ((eq major-mode 'eww-mode) + (plist-get eww-data :title))))) + entries)))) + (setq tabulated-list-entries (nreverse entries))) + (tabulated-list-init-header)) ;;; Main start procedure ;;