From f2ffd1b17b0cef734fa5c4a2a34c277dcfe6d28b Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sun, 26 Nov 2023 16:28:14 +0100 Subject: [PATCH] update sesman Signed-off-by: Andreas Gerler --- .../sesman-autoloads.el | 32 +++++++++++-------- .../sesman-browser.el | 0 .../sesman-pkg.el | 10 +++--- .../sesman.el | 22 ++++++++----- 4 files changed, 39 insertions(+), 25 deletions(-) rename elpa/{sesman-20190909.1754 => sesman-20210901.1134}/sesman-autoloads.el (77%) rename elpa/{sesman-20190909.1754 => sesman-20210901.1134}/sesman-browser.el (100%) rename elpa/{sesman-20190909.1754 => sesman-20210901.1134}/sesman-pkg.el (54%) rename elpa/{sesman-20190909.1754 => sesman-20210901.1134}/sesman.el (98%) diff --git a/elpa/sesman-20190909.1754/sesman-autoloads.el b/elpa/sesman-20210901.1134/sesman-autoloads.el similarity index 77% rename from elpa/sesman-20190909.1754/sesman-autoloads.el rename to elpa/sesman-20210901.1134/sesman-autoloads.el index 8485ba72..791c3959 100644 --- a/elpa/sesman-20190909.1754/sesman-autoloads.el +++ b/elpa/sesman-20210901.1134/sesman-autoloads.el @@ -1,15 +1,16 @@ -;;; sesman-autoloads.el --- automatically extracted autoloads +;;; sesman-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + -;;;### (autoloads nil "sesman" "sesman.el" (23997 31641 490594 106000)) +;;;### (autoloads nil "sesman" "sesman.el" (0 0 0 0)) ;;; Generated autoloads from sesman.el (autoload 'sesman-start "sesman" "\ -Start a Sesman session. - -\(fn)" t nil) +Start a Sesman session." t nil) (autoload 'sesman-restart "sesman" "\ Restart sesman session. @@ -67,26 +68,30 @@ buffer. \(fn &optional SESSION)" t nil) (autoload 'sesman-unlink "sesman" "\ -Break any of the previously created links. +Break sesman LINKS. +If LINKS is nil, ask interactively for a link. With a prefix argument break all +links. -\(fn)" t nil) +\(fn &optional LINKS)" t nil) (autoload 'sesman-map "sesman" "Session management prefix keymap." t 'keymap) +(register-definition-prefixes "sesman" '("sesman-")) + ;;;*** -;;;### (autoloads nil "sesman-browser" "sesman-browser.el" (23997 -;;;;;; 31641 489204 100000)) +;;;### (autoloads nil "sesman-browser" "sesman-browser.el" (0 0 0 +;;;;;; 0)) ;;; Generated autoloads from sesman-browser.el (autoload 'sesman-browser "sesman-browser" "\ Display an interactive session browser. -See `sesman-browser-mode' for more details. +See `sesman-browser-mode' for more details." t nil) -\(fn)" t nil) +(register-definition-prefixes "sesman-browser" '("sesman-")) ;;;*** -;;;### (autoloads nil nil ("sesman-pkg.el") (23997 31641 487487 99000)) +;;;### (autoloads nil nil ("sesman-pkg.el") (0 0 0 0)) ;;;*** @@ -94,5 +99,6 @@ See `sesman-browser-mode' for more details. ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t +;; coding: utf-8 ;; End: ;;; sesman-autoloads.el ends here diff --git a/elpa/sesman-20190909.1754/sesman-browser.el b/elpa/sesman-20210901.1134/sesman-browser.el similarity index 100% rename from elpa/sesman-20190909.1754/sesman-browser.el rename to elpa/sesman-20210901.1134/sesman-browser.el diff --git a/elpa/sesman-20190909.1754/sesman-pkg.el b/elpa/sesman-20210901.1134/sesman-pkg.el similarity index 54% rename from elpa/sesman-20190909.1754/sesman-pkg.el rename to elpa/sesman-20210901.1134/sesman-pkg.el index 5f896f3f..28483f7d 100644 --- a/elpa/sesman-20190909.1754/sesman-pkg.el +++ b/elpa/sesman-20210901.1134/sesman-pkg.el @@ -1,11 +1,13 @@ -(define-package "sesman" "20190909.1754" "Generic Session Manager" +(define-package "sesman" "20210901.1134" "Generic Session Manager" '((emacs "25")) - :keywords - '("process") - :authors + :commit "e0f555f963c9f02f8e4a50e06fc353eb4c15ee77" :authors + '(("Vitalie Spinu")) + :maintainers '(("Vitalie Spinu")) :maintainer '("Vitalie Spinu") + :keywords + '("process") :url "https://github.com/vspinu/sesman") ;; Local Variables: ;; no-byte-compile: t diff --git a/elpa/sesman-20190909.1754/sesman.el b/elpa/sesman-20210901.1134/sesman.el similarity index 98% rename from elpa/sesman-20190909.1754/sesman.el rename to elpa/sesman-20210901.1134/sesman.el index e0a16b37..22bd3fe8 100644 --- a/elpa/sesman-20190909.1754/sesman.el +++ b/elpa/sesman-20210901.1134/sesman.el @@ -192,13 +192,15 @@ Can be either a symbol, or a function returning a symbol.") (funcall sesman-system) sesman-system))) -(defun sesman--system () +(defun sesman-get-system () (if sesman-system (if (functionp sesman-system) (funcall sesman-system) sesman-system) (error "No `sesman-system' in buffer `%s'" (current-buffer)))) +(defalias 'sesman--system #'sesman-get-system) + (defun sesman--linked-sessions (system &optional sort cxt-types) (let* ((system (or system (sesman--system))) (cxt-types (or cxt-types (sesman-context-types system)))) @@ -463,14 +465,18 @@ buffer." (sesman--link-session-interactively session nil nil)) ;;;###autoload -(defun sesman-unlink () - "Break any of the previously created links." +(defun sesman-unlink (&optional links) + "Break sesman LINKS. +If LINKS is nil, ask interactively for a link. With a prefix argument break all +links." (interactive) - (let* ((system (sesman--system)) - (links (or (sesman-current-links system) - (user-error "No %s links found" system)))) - (mapc #'sesman--unlink - (sesman--ask-for-link "Unlink: " links 'ask-all))) + (mapc #'sesman--unlink (or (when current-prefix-arg + (sesman-current-links (sesman--system))) + links + (sesman--ask-for-link "Unlink: " + (or (sesman-current-links (sesman--system)) + (user-error "No %s links found" (sesman--system))) + 'ask-all))) (run-hooks 'sesman-post-command-hook)) (declare-function sesman-browser "sesman-browser") -- 2.47.3