From 39f95a481f1e62fab95cc4142fc284aa5e09cd43 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Fri, 31 Jan 2020 17:35:38 +0100 Subject: [PATCH] update transient --- .../transient-autoloads.el | 16 - .../dir | 0 .../transient-autoloads.el | 26 ++ .../transient-pkg.el | 5 +- .../transient.el | 283 ++++++++++++------ .../transient.info | 99 +++--- 6 files changed, 272 insertions(+), 157 deletions(-) delete mode 100644 elpa/transient-20191017.1115/transient-autoloads.el rename elpa/{transient-20191017.1115 => transient-20200125.1308}/dir (100%) create mode 100644 elpa/transient-20200125.1308/transient-autoloads.el rename elpa/{transient-20191017.1115 => transient-20200125.1308}/transient-pkg.el (69%) rename elpa/{transient-20191017.1115 => transient-20200125.1308}/transient.el (93%) rename elpa/{transient-20191017.1115 => transient-20200125.1308}/transient.info (97%) diff --git a/elpa/transient-20191017.1115/transient-autoloads.el b/elpa/transient-20191017.1115/transient-autoloads.el deleted file mode 100644 index c49f3fea..00000000 --- a/elpa/transient-20191017.1115/transient-autoloads.el +++ /dev/null @@ -1,16 +0,0 @@ -;;; transient-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) - -;;;### (autoloads nil nil ("transient-pkg.el" "transient.el") (23993 -;;;;;; 53925 817643 925000)) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; transient-autoloads.el ends here diff --git a/elpa/transient-20191017.1115/dir b/elpa/transient-20200125.1308/dir similarity index 100% rename from elpa/transient-20191017.1115/dir rename to elpa/transient-20200125.1308/dir diff --git a/elpa/transient-20200125.1308/transient-autoloads.el b/elpa/transient-20200125.1308/transient-autoloads.el new file mode 100644 index 00000000..3114fc1e --- /dev/null +++ b/elpa/transient-20200125.1308/transient-autoloads.el @@ -0,0 +1,26 @@ +;;; transient-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "transient" "transient.el" (0 0 0 0)) +;;; Generated autoloads from transient.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "transient" '("transient-" "post-transient-hook" "current-transient-" "define-"))) + +;;;*** + +;;;### (autoloads nil nil ("transient-pkg.el") (0 0 0 0)) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; transient-autoloads.el ends here diff --git a/elpa/transient-20191017.1115/transient-pkg.el b/elpa/transient-20200125.1308/transient-pkg.el similarity index 69% rename from elpa/transient-20191017.1115/transient-pkg.el rename to elpa/transient-20200125.1308/transient-pkg.el index c0ca5d32..ed112f14 100644 --- a/elpa/transient-20191017.1115/transient-pkg.el +++ b/elpa/transient-20200125.1308/transient-pkg.el @@ -1,6 +1,5 @@ -(define-package "transient" "20191017.1115" "Transient commands" - '((emacs "25.1") - (dash "2.15.0")) +(define-package "transient" "20200125.1308" "Transient commands" + '((emacs "25.1")) :keywords '("bindings") :authors diff --git a/elpa/transient-20191017.1115/transient.el b/elpa/transient-20200125.1308/transient.el similarity index 93% rename from elpa/transient-20191017.1115/transient.el rename to elpa/transient-20200125.1308/transient.el index 731fe6a6..f816a202 100644 --- a/elpa/transient-20191017.1115/transient.el +++ b/elpa/transient-20200125.1308/transient.el @@ -1,10 +1,10 @@ ;;; transient.el --- Transient commands -*- lexical-binding: t; -*- -;; Copyright (C) 2018-2019 Jonas Bernoulli +;; Copyright (C) 2018-2020 Jonas Bernoulli ;; Author: Jonas Bernoulli ;; Homepage: https://github.com/magit/transient -;; Package-Requires: ((emacs "25.1") (dash "2.15.0")) +;; Package-Requires: ((emacs "25.1")) ;; Keywords: bindings ;; This file is not part of GNU Emacs. @@ -48,9 +48,9 @@ ;;; Code: (require 'cl-lib) -(require 'dash) (require 'eieio) (require 'format-spec) +(require 'seq) (eval-when-compile (require 'subr-x)) @@ -66,7 +66,7 @@ (defgroup transient nil "Transient commands." - :group 'bindings) + :group 'extensions) (defcustom transient-show-popup t "Whether to show the current transient in a popup buffer. @@ -96,7 +96,7 @@ "Whether navigation commands are enabled in the transient popup. While a transient is active the transient popup buffer is not the -current buffer, making it necesary to use dedicated commands to +current buffer, making it necessary to use dedicated commands to act on that buffer itself. If this non-nil, then the following features are available: @@ -173,7 +173,7 @@ of this variable use \"C-x t\" when a transient is active." :group 'transient :type 'boolean) -(defcustom transient-read-with-initial-input t +(defcustom transient-read-with-initial-input nil "Whether to use the last history element as initial minibuffer input." :package-version '(transient . "0.2.0") :group 'transient @@ -230,6 +230,17 @@ used." :group 'transient :type 'boolean) +(defcustom transient-force-fixed-pitch nil + "Whether to force used of monospaced font in popup buffer. + +Even if you use a proportional font for the `default' face, +you might still want to use a monospaced font in transient's +popup buffer. Setting this option to t causes `default' to +be remapped to `fixed-pitch' in that buffer." + :package-version '(transient . "0.2.0") + :group 'transient + :type 'boolean) + (defcustom transient-default-level 4 "Control what suffix levels are made available by default. @@ -246,7 +257,7 @@ This option only controls the default for transients. The default suffix level is always 4. The author of a transient should place certain suffixes on a higher level if they expect that it won't be of use to most users, and they should place very important suffixes -on a lower level so that the remain available even if the user +on a lower level so that they remain available even if the user lowers the transient level. \(Magit currently places nearly all suffixes on level 4 and lower @@ -361,8 +372,12 @@ See info node `(transient)Enabling and Disabling Suffixes'." :group 'transient-faces) (defface transient-separator - '((((class color) (background light)) :background "grey80") - (((class color) (background dark)) :background "grey30")) + `((((class color) (background light)) + ,@(and (>= emacs-major-version 27) '(:extend t)) + :background "grey80") + (((class color) (background dark)) + ,@(and (>= emacs-major-version 27) '(:extend t)) + :background "grey30")) "Face used to draw line below transient popup window. This is only used if `transient-mode-line-format' is `line'. Only the background color is significant." @@ -373,7 +388,7 @@ Only the background color is significant." (defun transient--read-file-contents (file) (with-demoted-errors "Transient error: %S" (and (file-exists-p file) - (with-temp-buffer file + (with-temp-buffer (insert-file-contents file) (read (current-buffer)))))) @@ -413,8 +428,8 @@ should not change it manually.") (defun transient-save-history () (setq transient-history (cl-sort (mapcar (pcase-lambda (`(,key . ,val)) - (cons key (-take transient-history-limit - (delete-dups val)))) + (cons key (seq-take (delete-dups val) + transient-history-limit))) transient-history) #'string< :key #'car)) (transient--pp-to-file transient-history transient-history-file)) @@ -436,7 +451,7 @@ If `transient-save-history' is nil, then do nothing." (command :initarg :command) (level :initarg :level) (variable :initarg :variable :initform nil) - (value :initarg :value) + (value) (default-value :initarg :value) (scope :initarg :scope :initform nil) (history :initarg :history :initform nil) (history-pos :initarg :history-pos :initform 0) @@ -625,7 +640,8 @@ to the setup function: [&optional lambda-doc] [&rest keywordp sexp] [&rest vectorp] - [&optional ("interactive" interactive) def-body]))) + [&optional ("interactive" interactive) def-body])) + (doc-string 3)) (pcase-let ((`(,class ,slots ,suffixes ,docstr ,body) (transient--expand-define-args args))) `(progn @@ -664,7 +680,8 @@ ARGLIST. The infix arguments are usually accessed by using [&optional lambda-doc] [&rest keywordp sexp] ("interactive" interactive) - def-body))) + def-body)) + (doc-string 3)) (pcase-let ((`(,class ,slots ,_ ,docstr ,body) (transient--expand-define-args args))) `(progn @@ -711,7 +728,8 @@ keyword. \(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]...)" (declare (debug (&define name lambda-list [&optional lambda-doc] - [&rest keywordp sexp]))) + [&rest keywordp sexp])) + (doc-string 3)) (pcase-let ((`(,class ,slots ,_ ,docstr ,_) (transient--expand-define-args args))) `(progn @@ -797,35 +815,35 @@ example, sets a variable use `define-infix-command' instead. (commandp (cadr spec)))) (setq args (plist-put args :description pop))) (cond - ((keywordp car) - (error "Need command, got %S" car)) - ((symbolp car) - (setq args (plist-put args :command pop))) - ((or (stringp car) - (and car (listp car))) - (let ((arg pop)) - (cl-typecase arg - (list - (setq args (plist-put args :shortarg (car arg))) - (setq args (plist-put args :argument (cadr arg))) - (setq arg (cadr arg))) - (string - (when-let ((shortarg (transient--derive-shortarg arg))) - (setq args (plist-put args :shortarg shortarg))) - (setq args (plist-put args :argument arg)))) - (setq args (plist-put args :command - (intern (format "transient:%s:%s" - prefix arg)))) - (cond ((and car (not (keywordp car))) - (setq class 'transient-option) - (setq args (plist-put args :reader pop))) - ((not (string-suffix-p "=" arg)) - (setq class 'transient-switch)) - (t - (setq class 'transient-option) - (setq args (plist-put args :reader 'read-string)))))) - (t - (error "Needed command or argument, got %S" car))) + ((keywordp car) + (error "Need command, got %S" car)) + ((symbolp car) + (setq args (plist-put args :command pop))) + ((or (stringp car) + (and car (listp car))) + (let ((arg pop)) + (cl-typecase arg + (list + (setq args (plist-put args :shortarg (car arg))) + (setq args (plist-put args :argument (cadr arg))) + (setq arg (cadr arg))) + (string + (when-let ((shortarg (transient--derive-shortarg arg))) + (setq args (plist-put args :shortarg shortarg))) + (setq args (plist-put args :argument arg)))) + (setq args (plist-put args :command + (intern (format "transient:%s:%s" + prefix arg)))) + (cond ((and car (not (keywordp car))) + (setq class 'transient-option) + (setq args (plist-put args :reader pop))) + ((not (string-suffix-p "=" arg)) + (setq class 'transient-switch)) + (t + (setq class 'transient-option) + (setq args (plist-put args :reader 'read-string)))))) + (t + (error "Needed command or argument, got %S" car))) (while (keywordp car) (let ((k pop)) (cl-case k @@ -840,11 +858,12 @@ example, sets a variable use `define-infix-command' instead. args))) (defun transient--default-infix-command () - (cons 'lambda '(() - (interactive) - (let ((obj (transient-suffix-object))) - (transient-infix-set obj (transient-infix-read obj))) - (transient--show)))) + (cons 'lambda + '(() + (interactive) + (let ((obj (transient-suffix-object))) + (transient-infix-set obj (transient-infix-read obj))) + (transient--show)))) (defun transient--ensure-infix-command (obj) (let ((cmd (oref obj command))) @@ -884,10 +903,9 @@ example, sets a variable use `define-infix-command' instead. (t (when (and (listp suffix) (listp elt)) - (let ((key (or (plist-get elt :key) - (transient--command-key (plist-get elt :command))))) + (let ((key (transient--spec-key suf))) (if (equal (transient--kbd key) - (transient--kbd (plist-get (nth 2 elt) :key))) + (transient--kbd (transient--spec-key elt))) (setq action 'replace) (transient-remove-suffix prefix key)))) (cl-ecase action @@ -987,9 +1005,11 @@ See info node `(transient)Modifying Existing Transients'." (defun transient--layout-member-1 (loc layout remove) (cond ((listp layout) - (--any (transient--layout-member-1 loc it remove) layout)) + (seq-some (lambda (elt) (transient--layout-member-1 loc elt remove)) + layout)) ((vectorp (car (aref layout 3))) - (--any (transient--layout-member-1 loc it remove) (aref layout 3))) + (seq-some (lambda (elt) (transient--layout-member-1 loc elt remove)) + (aref layout 3))) (remove (aset layout 3 (delq (car (transient--group-member loc layout)) @@ -1017,6 +1037,12 @@ See info node `(transient)Modifying Existing Transients'." (setq keys (kbd keys))) keys) +(defun transient--spec-key (spec) + (let ((plist (nth 2 spec))) + (or (plist-get plist :key) + (transient--command-key + (plist-get plist :command))))) + (defun transient--command-key (cmd) (when-let ((obj (get cmd 'transient--suffix))) (cond ((slot-boundp obj 'key) @@ -1366,6 +1392,7 @@ of the corresponding object.") (when-let ((conflict (and transient-detect-key-conflicts (transient--lookup-key map kbd)))) (unless (eq cmd conflict) + (transient--emergency-exit) (error "Cannot bind %S to %s and also %s" (string-trim key) cmd conflict))) @@ -1608,7 +1635,7 @@ EDIT may be non-nil." (transient--do-suspend) (setq this-command 'transient-suspend) (transient--pre-exit)) - (t + ((not (transient--edebug-command-p)) (setq this-command 'transient-undefined)))) ((and transient--editp (transient-suffix-object) @@ -1625,11 +1652,11 @@ EDIT may be non-nil." (when (eq action transient--exit) (setq transient--exitp (or transient--exitp t))) action) - (setq this-command - (let ((keys (this-command-keys-vector))) - (if (eq (aref keys (1- (length keys))) ?\C-g) - 'transient-noop - 'transient-undefined))) + (if (let ((keys (this-command-keys-vector))) + (eq (aref keys (1- (length keys))) ?\C-g)) + (setq this-command 'transient-noop) + (unless (transient--edebug-command-p) + (setq this-command 'transient-undefined))) transient--stay) transient--exit) (transient--pre-exit))))) @@ -1688,6 +1715,28 @@ EDIT may be non-nil." (add-hook 'pre-command-hook #'transient--pre-command)) (add-hook 'post-command-hook #'transient--post-command))) +(defun transient--suspend-override (&optional minibuffer-hooks) + (transient--debug 'suspend-override) + (transient--pop-keymap 'transient--transient-map) + (transient--pop-keymap 'transient--redisplay-map) + (remove-hook 'pre-command-hook #'transient--pre-command) + (remove-hook 'post-command-hook #'transient--post-command) + (when minibuffer-hooks + (remove-hook 'minibuffer-setup-hook #'transient--minibuffer-setup) + (remove-hook 'minibuffer-exit-hook #'transient--minibuffer-exit) + (advice-remove 'abort-recursive-edit #'transient--minibuffer-exit))) + +(defun transient--resume-override (&optional minibuffer-hooks) + (transient--debug 'resume-override) + (transient--push-keymap 'transient--transient-map) + (transient--push-keymap 'transient--redisplay-map) + (add-hook 'pre-command-hook #'transient--pre-command) + (add-hook 'post-command-hook #'transient--post-command) + (when minibuffer-hooks + (add-hook 'minibuffer-setup-hook #'transient--minibuffer-setup) + (add-hook 'minibuffer-exit-hook #'transient--minibuffer-exit) + (advice-add 'abort-recursive-edit :after #'transient--minibuffer-exit))) + (defun transient--post-command () (transient--debug 'post-command) (if transient--exitp @@ -1767,15 +1816,19 @@ EDIT may be non-nil." (if (symbolp arg) (message "-- %-16s (cmd: %s, exit: %s)" arg this-command transient--exitp) - (apply #'message arg args)))) + (apply #'message arg args)))) (defun transient--emergency-exit () - "Exit the current transient command after an error occured. + "Exit the current transient command after an error occurred. + Beside being used with `condition-case', this function also has to be a member of `debugger-mode-hook', else the debugger would be unusable and exiting it by pressing \"q\" would fail because the transient command would still be active and that key would -either be unbound or do something else." +either be unbound or do something else. + +When no transient is active (i.e. when `transient--prefix') is +nil, then do nothing." (when transient--prefix (setq transient--stack nil) (setq transient--exitp t) @@ -1864,11 +1917,12 @@ to `transient--do-warn'." "Warn the user that the pressed key is not bound to any suffix." (interactive) (ding) - (message "Unbound suffix: `%s' (Use `%s' to abort, `%s' for help)" + (message "Unbound suffix: `%s' (Use `%s' to abort, `%s' for help) [%s]" (propertize (key-description (this-single-command-keys)) 'face 'font-lock-warning-face) (propertize "C-g" 'face 'transient-key) - (propertize "?" 'face 'transient-key))) + (propertize "?" 'face 'transient-key) + this-original-command)) (defun transient-toggle-common () "Toggle whether common commands are always shown." @@ -2062,13 +2116,14 @@ Non-infix suffix commands usually don't have a value." nil) (cl-defmethod transient-init-value ((obj transient-prefix)) - (if (slot-boundp obj 'value) - (let ((value (oref obj value))) - (when (functionp value) - (oset obj value (funcall value)))) - (oset obj value - (if-let ((saved (assq (oref obj command) transient-values))) - (cdr saved) + (oset obj value + (if-let ((saved (assq (oref obj command) transient-values))) + (cdr saved) + (if-let ((default (and (slot-boundp obj 'default-value) + (oref obj default-value)))) + (if (functionp default) + (funcall default) + default) nil)))) (cl-defmethod transient-init-value ((obj transient-switch)) @@ -2157,7 +2212,9 @@ it\", in which case it is pointless to preserve history.)" (cons value transient--history))) (initial-input (and transient-read-with-initial-input (car transient--history))) - (history (cons 'transient--history (if initial-input 1 0))) + (history (if initial-input + (cons 'transient--history 1) + 'transient--history)) (value (cond (reader (funcall reader prompt initial-input history)) @@ -2172,6 +2229,9 @@ it\", in which case it is pointless to preserve history.)" ((and (equal value "\"\"") allow-empty) (setq value ""))) (when value + (when (bound-and-true-p ivy-mode) + (set-text-properties 0 (length (car transient--history)) nil + (car transient--history))) (setf (alist-get history-key transient-history) (delete-dups transient--history))) value)))) @@ -2247,7 +2307,7 @@ That function must return a string, which is then used as the prompt. Otherwise, if the value of either the `argument' or `variable' -slot of OBJ is a string, then base the prompt on that (prefering +slot of OBJ is a string, then base the prompt on that (preferring the former), appending either \"=\" (if it appears to be a command-line option) or \": \". @@ -2489,6 +2549,8 @@ have a history of their own.") (window-size-fixed nil)) (fit-window-to-buffer nil nil 1)) (goto-char (point-min)) + (when transient-force-fixed-pitch + (transient--force-fixed-pitch)) (when transient-enable-popup-navigation (transient--goto-button focus))))) @@ -2537,8 +2599,9 @@ have a history of their own.") (oref group suffixes))) (rs (apply #'max (mapcar #'length columns))) (cs (length columns)) - (cw (--map (apply #'max (mapcar #'length it)) columns)) - (cc (-reductions-from (apply-partially #'+ 3) 0 cw))) + (cw (mapcar (lambda (col) (apply #'max (mapcar #'length col))) + columns)) + (cc (transient--seq-reductions-from (apply-partially #'+ 3) cw 0))) (dotimes (r rs) (dotimes (c cs) (insert (make-string (- (nth c cc) (current-column)) ?\s)) @@ -2629,9 +2692,9 @@ Optional support for popup buttons is also implemented here." (let ((len (length transient--redisplay-key)) (seq (cl-coerce (edmacro-parse-keys key t) 'list))) (cond - ((equal (-take len seq) transient--redisplay-key) - (let ((pre (key-description (vconcat (-take len seq)))) - (suf (key-description (vconcat (-drop len seq))))) + ((equal (seq-take seq len) transient--redisplay-key) + (let ((pre (key-description (vconcat (seq-take seq len)))) + (suf (key-description (vconcat (seq-drop seq len))))) (setq pre (replace-regexp-in-string "RET" "C-m" pre t)) (setq pre (replace-regexp-in-string "TAB" "C-i" pre t)) (setq suf (replace-regexp-in-string "RET" "C-m" suf t)) @@ -2711,7 +2774,10 @@ If the OBJ's `key' is currently unreachable, then apply the face (cl-defmethod transient-format-value ((obj transient-option)) (let ((value (oref obj value))) - (propertize (concat (oref obj argument) value) + (propertize (concat (oref obj argument) + (if (listp value) + (mapconcat #'identity value ",") + value)) 'face (if value 'transient-value 'transient-inactive-value)))) @@ -2741,13 +2807,13 @@ If the OBJ's `key' is currently unreachable, then apply the face (mapconcat (lambda (f) (format "%S" f)) (oref obj value) " ")) 'face 'transient-argument) - (propertize argument 'face 'transient-inactive-argument)))) + (propertize argument 'face 'transient-inactive-argument)))) (defun transient--key-unreachable-p (obj) (and transient--redisplay-key (let ((key (oref obj key))) - (not (or (equal (-take (length transient--redisplay-key) - (cl-coerce (edmacro-parse-keys key t) 'list)) + (not (or (equal (seq-take (cl-coerce (edmacro-parse-keys key t) 'list) + (length transient--redisplay-key)) transient--redisplay-key) (transient--lookup-key transient-sticky-map (kbd key))))))) @@ -3011,19 +3077,37 @@ search instead." (defun transient--isearch-setup () (select-window transient--window) - (transient--pop-keymap 'transient--transient-map) - (transient--pop-keymap 'transient--redisplay-map) - (remove-hook 'pre-command-hook #'transient--pre-command) - (remove-hook 'post-command-hook #'transient--post-command)) + (transient--suspend-override)) (defun transient--isearch-exit () (select-window transient--original-window) - (transient--push-keymap 'transient--transient-map) - (transient--push-keymap 'transient--redisplay-map) - (add-hook 'pre-command-hook #'transient--pre-command) - (add-hook 'post-command-hook #'transient--post-command)) + (transient--resume-override)) + +;;;; Edebug + +(defun transient--edebug--recursive-edit (fn arg-mode) + (transient--debug 'edebug--recursive-edit) + (if (not transient--prefix) + (funcall fn arg-mode) + (transient--suspend-override t) + (funcall fn arg-mode) + (transient--resume-override t))) -;;;; Other Packages +(advice-add 'edebug--recursive-edit :around 'transient--edebug--recursive-edit) + +(defun transient--abort-edebug () + (when (bound-and-true-p edebug-active) + (transient--emergency-exit))) + +(advice-add 'abort-recursive-edit :before 'transient--abort-edebug) +(advice-add 'top-level :before 'transient--abort-edebug) + +(defun transient--edebug-command-p () + (and (bound-and-true-p edebug-active) + (or (memq this-command '(top-level abort-recursive-edit)) + (string-prefix-p "edebug" (symbol-name this-command))))) + +;;;; Miscellaneous (declare-function which-key-mode "which-key" (&optional arg)) @@ -3067,6 +3151,19 @@ we stop there." ((string-equal key "Q") "M-q") (t key)))) +(defun transient--force-fixed-pitch () + (require 'face-remap) + (face-remap-reset-base 'default) + (face-remap-add-relative 'default 'fixed-pitch)) + +;;;; Missing from Emacs + +(defun transient--seq-reductions-from (function sequence initial-value) + (let ((acc (list initial-value))) + (seq-doseq (elt sequence) + (push (funcall function (car acc) elt) acc)) + (nreverse acc))) + ;;; Font-Lock (defconst transient-font-lock-keywords diff --git a/elpa/transient-20191017.1115/transient.info b/elpa/transient-20200125.1308/transient.info similarity index 97% rename from elpa/transient-20191017.1115/transient.info rename to elpa/transient-20200125.1308/transient.info index 522975cf..70ec12a9 100644 --- a/elpa/transient-20191017.1115/transient.info +++ b/elpa/transient-20200125.1308/transient.info @@ -1,7 +1,7 @@ This is transient.info, produced by makeinfo version 6.5 from transient.texi. - Copyright (C) 2018-2019 Jonas Bernoulli + Copyright (C) 2018-2020 Jonas Bernoulli You can redistribute this document and/or modify it under the terms of the GNU General Public License as published by the Free Software @@ -44,9 +44,9 @@ reading a new value in the minibuffer. Calling a suffix command usually causes the transient to be exited but suffix commands can also be configured to not exit the transient. -This manual is for Transient version 0.1.0 (v0.1.0-106-g0d9a1b5+1). +This manual is for Transient version 0.1.0 (v0.1.0-134-g83cb1e4+1). - Copyright (C) 2018-2019 Jonas Bernoulli + Copyright (C) 2018-2020 Jonas Bernoulli You can redistribute this document and/or modify it under the terms of the GNU General Public License as published by the Free Software @@ -184,7 +184,7 @@ looks a bit like this: | |Create | t tag - | r telease + | r release `----------------------------------------- This is a simplified version of ‘magit-tag’. Info manuals do not @@ -624,8 +624,8 @@ File: transient.info, Node: Other Options, Next: Modifying Existing Transients transient popup. While a transient is active the transient popup buffer is not the - current buffer, making it necesary to use dedicated commands to act - on that buffer itself. This is disabled by default. If this + current buffer, making it necessary to use dedicated commands to + act on that buffer itself. This is disabled by default. If this option is non-nil, then the following features are available: • ‘’ moves the cursor to the previous suffix. ‘’ @@ -740,6 +740,14 @@ File: transient.info, Node: Other Options, Next: Modifying Existing Transients predicates of those suffixes prevent that more than one of them is enabled at a time. + -- User Option: transient-force-fixed-pitch + + This option controls whether to force the use of a monospaced font + in popup buffer. Even if you use a proportional font for the + ‘default’ face, you might still want to use a monospaced font in + transient’s popup buffer. Setting this option to t causes + ‘default’ to be remapped to ‘fixed-pitch’ in that buffer. +  File: transient.info, Node: Modifying Existing Transients, Next: Defining New Commands, Prev: Other Options, Up: Top @@ -1998,19 +2006,19 @@ takes external state into account. | | ^ | ^ | | | | v | | |---------------> suffix1 -->--| | - | | | ^ | | | - | | | | v | | + | | | ^ | | | + | | | | v | | |---------------> suffix2 ----{1}------> {exit} --> (c) - | | | ^ | | | - | | | | | | v - | | | | v | | + | | | ^ | | | + | | | | | | v + | | | | v | | |---------------> suffix3 -------------> {exit} --> (c) - | | | ^ | | - | sets | | | v - | | initalized maybe | | - | | from used | | - | | | | | | - | | `-- infix --' | | + | | | ^ | | + | sets | | | v + | | initialized maybe | | + | | from used | | + | | | | | | + | | `-- infix ---' | | | `---> value -----------------------------> persistent | ^ ^ | | across | | | | | invocations -, @@ -2365,6 +2373,7 @@ Appendix E Variable Index * transient-detect-key-conflicts: Other Options. (line 136) * transient-display-buffer-action: Other Options. (line 46) * transient-enable-popup-navigation: Other Options. (line 28) +* transient-force-fixed-pitch: Other Options. (line 150) * transient-highlight-mismatched-keys: Other Options. (line 95) * transient-history-file: Using History. (line 33) * transient-history-limit: Using History. (line 38) @@ -2394,34 +2403,34 @@ Node: Getting Help for Suffix Commands18310 Node: Enabling and Disabling Suffixes19703 Node: Other Commands22993 Node: Other Options23949 -Node: Modifying Existing Transients30562 -Node: Defining New Commands33966 -Node: Defining Transients34302 -Node: Binding Suffix and Infix Commands36734 -Node: Group Specifications37589 -Node: Suffix Specifications40922 -Node: Defining Suffix and Infix Commands44489 -Node: Using Infix Arguments47674 -Node: Transient State49894 -Node: Classes and Methods55767 -Node: Group Classes57981 -Node: Group Methods59898 -Node: Prefix Classes60543 -Node: Suffix Classes61635 -Node: Suffix Methods63879 -Node: Suffix Value Methods64200 -Node: Suffix Format Methods66960 -Node: Prefix Slots68412 -Node: Suffix Slots70889 -Node: Predicate Slots73740 -Node: Related Abstractions and Packages74988 -Node: Comparison With Prefix Keys and Prefix Arguments75275 -Node: Comparison With Other Packages85587 -Node: FAQ89778 -Node: Keystroke Index93512 -Node: Command Index95146 -Node: Function Index96933 -Node: Variable Index101090 +Node: Modifying Existing Transients30960 +Node: Defining New Commands34364 +Node: Defining Transients34700 +Node: Binding Suffix and Infix Commands37132 +Node: Group Specifications37987 +Node: Suffix Specifications41320 +Node: Defining Suffix and Infix Commands44887 +Node: Using Infix Arguments48072 +Node: Transient State50292 +Node: Classes and Methods56165 +Node: Group Classes58379 +Node: Group Methods60296 +Node: Prefix Classes60941 +Node: Suffix Classes62033 +Node: Suffix Methods64277 +Node: Suffix Value Methods64598 +Node: Suffix Format Methods67358 +Node: Prefix Slots68810 +Node: Suffix Slots71287 +Node: Predicate Slots74138 +Node: Related Abstractions and Packages75386 +Node: Comparison With Prefix Keys and Prefix Arguments75673 +Node: Comparison With Other Packages85985 +Node: FAQ90176 +Node: Keystroke Index93910 +Node: Command Index95544 +Node: Function Index97331 +Node: Variable Index101488  End Tag Table -- 2.47.3