Function: sesman-browser-mode

sesman-browser-mode is an interactive and byte-compiled function defined in sesman-browser.el.

Signature

(sesman-browser-mode)

Documentation

Interactive view of Sesman sessions.

When applicable, system specific commands are locally bound to j when point is on a session object.

In addition to any hooks its parent mode special-mode might have run, this mode runs the hook sesman-browser-mode-hook, as the final or penultimate step during initialization.

<backtab> sesman-browser-backward
<tab> sesman-browser-forward
C-M-n sesman-browser-session-next
C-M-p sesman-browser-session-prev
C-c C-s b sesman-browser-link-with-buffer
C-c C-s d sesman-browser-link-with-directory
C-c C-s p sesman-browser-link-with-project
C-c C-s q sesman-browser-quit-session
C-c C-s r sesman-browser-restart-session
C-c C-s u sesman-browser-unlink
M-{ sesman-browser-session-prev
M-} sesman-browser-session-next
RET sesman-goto
S sesman-browser-toggle-sort
b sesman-browser-backward
f sesman-browser-forward
l b sesman-browser-link-with-buffer
l d sesman-browser-link-with-directory
l p sesman-browser-link-with-project
n sesman-browser-vertical-next
o sesman-show
p sesman-browser-vertical-prev
s b sesman-browser-link-with-buffer
s d sesman-browser-link-with-directory
s p sesman-browser-link-with-project
s q sesman-browser-quit-session
s r sesman-browser-restart-session
s u sesman-browser-unlink
t sesman-browser-toggle-sort
u sesman-browser-unlink

Key Bindings

Source Code

;; Defined in ~/.emacs.d/elpa/sesman-20240417.1723/sesman-browser.el
(define-derived-mode sesman-browser-mode special-mode "SesmanBrowser"
  "Interactive view of Sesman sessions.
When applicable, system specific commands are locally bound to j when point is
on a session object."
  ;; ensure there is a sesman-system here
  (sesman--system)
  (delete-all-overlays)
  (setq-local sesman-browser--stop-overlay (make-overlay (point) (point)))
  (overlay-put sesman-browser--stop-overlay 'face 'sesman-browser-highligh-face)
  (setq-local sesman-browser--section-overlay (make-overlay (point) (point)))
  (when window-system
    (let* ((fringe-spec '(left-fringe sesman-left-bar sesman-browser-highligh-face))
           (dummy-string (propertize "|" 'display fringe-spec)))
      (overlay-put sesman-browser--section-overlay 'line-prefix dummy-string)))
  (add-hook 'sesman-post-command-hook 'sesman-browser-revert nil t)
  (setq-local display-buffer-base-action '(nil . ((inhibit-same-window . t))))
  (setq-local sesman-browser--sort-types (default-value 'sesman-browser--sort-types))
  (setq-local revert-buffer-function #'sesman-browser-revert))