[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 0124153ffa 066/102: Change: Replace guillemet w
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/hyperdrive 0124153ffa 066/102: Change: Replace guillemet with grave and apostrophe |
|
Date: |
Wed, 29 Nov 2023 04:00:54 -0500 (EST) |
branch: elpa/hyperdrive
commit 0124153ffaa40a50641bb856229ce18f01758984
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Change: Replace guillemet with grave and apostrophe
Graves and apostrophes show up in all terminals.
---
hyperdrive-lib.el | 6 +--
hyperdrive-menu.el | 4 +-
hyperdrive-mirror.el | 2 +-
hyperdrive.el | 101 ++++++++++++++++++++++++++-------------------------
4 files changed, 57 insertions(+), 56 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 3097e1841c..2ee012269e 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1145,7 +1145,7 @@ Blank input returns nil.
HYPERDRIVE is used to fill in PROMPT format %s sequence.
INITIAL-INPUT-NUMBER is converted to a string and passed to
`read-string', which see."
- (let* ((prompt (or prompt "Version number in «%s» (leave blank for latest
version)"))
+ (let* ((prompt (or prompt "Version number in `%s' (leave blank for latest
version)"))
;; Don't use read-number since it cannot return nil.
(version (read-string
(format-prompt prompt nil (hyperdrive--format-hyperdrive
hyperdrive))
@@ -1164,8 +1164,8 @@ sequence. PROMPT is passed to `format-prompt', which
see. DEFAULT
is passed to `read-string' as its DEFAULT-VALUE argument."
(let ((prompt (or prompt
(if version
- "Path in «%s» (version:%s)"
- "Path in «%s»"))))
+ "Path in `%s' (version:%s)"
+ "Path in `%s'"))))
;; TODO: Provide a `find-file'-like auto-completing UI
(read-string (format-prompt prompt default
(hyperdrive--format-hyperdrive hyperdrive)
version)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 57c4a0481a..55084e9bd5 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -323,7 +323,7 @@
(hyperdrive--format-path
(hyperdrive-read-path
:hyperdrive (hyperdrive-menu--scope)
- :prompt "Target directory in «%s»"
+ :prompt "Target directory in `%s'"
:default "/")
:directoryp t)))
@@ -381,7 +381,7 @@
drive
:target-directory (hyperdrive-read-path
:hyperdrive drive
- :prompt "Target directory in «%s»"
+ :prompt "Target directory in `%s'"
:default "/"))))
(hyperdrive-upload-files files hyperdrive
:target-directory target-directory))
diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 72224586bb..4404ac1e38 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -175,7 +175,7 @@ filter and set NO-CONFIRM to t."
(list source hyperdrive
;; TODO: Get path from any visible hyperdrive-dir buffer and
;; auto-fill (or add as "future history") in target-dir prompt.
- :target-dir (hyperdrive-read-path :hyperdrive hyperdrive :prompt
"Target directory in «%s»" :default "/")
+ :target-dir (hyperdrive-read-path :hyperdrive hyperdrive :prompt
"Target directory in `%s'" :default "/")
:no-confirm (equal '(16) current-prefix-arg)
:filter (if current-prefix-arg
(hyperdrive-mirror-read-filter)
diff --git a/hyperdrive.el b/hyperdrive.el
index f9edecab42..0c3ae818b4 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -163,8 +163,8 @@ hyperdrive, the new hyperdrive's petname will be set to
SEED."
(defun hyperdrive-purge (hyperdrive)
"Purge all data corresponding to HYPERDRIVE."
(interactive (list (hyperdrive-complete-hyperdrive :force-prompt t)))
- (when (yes-or-no-p (format "Delete local copy of hyperdrive (data will
likely not be recoverable—see manual): «%s»? "
- (hyperdrive--format-hyperdrive hyperdrive)))
+ (when (yes-or-no-p (format-message "Delete local copy of hyperdrive (data
will likely not be recoverable—see manual): `%s'? "
+ (hyperdrive--format-hyperdrive
hyperdrive)))
(hyperdrive-purge-no-prompt hyperdrive
:then (lambda (_response)
(hyperdrive-message "Purged drive: %s"
(hyperdrive--format-hyperdrive hyperdrive)))
@@ -182,7 +182,7 @@ Universal prefix argument \\[universal-argument] forces
(interactive
(let* ((hyperdrive (hyperdrive-complete-hyperdrive :force-prompt
current-prefix-arg))
(petname (hyperdrive-read-name
- :prompt (format "Petname for «%s» (leave blank to unset)"
+ :prompt (format "Petname for `%s' (leave blank to unset)"
(hyperdrive--format-hyperdrive hyperdrive))
:initial-input (hyperdrive-petname hyperdrive))))
(list petname hyperdrive)))
@@ -190,12 +190,12 @@ Universal prefix argument \\[universal-argument] forces
(other-hyperdrive (cl-find petname (hash-table-values
hyperdrive-hyperdrives)
:key #'hyperdrive-petname :test
#'equal)))
(setf petname (hyperdrive-read-name
- :prompt (format "%S already assigned as petname to
hyperdrive «%s». Enter new petname"
+ :prompt (format "%S already assigned as petname to
hyperdrive `%s'. Enter new petname"
petname (hyperdrive--format-hyperdrive
other-hyperdrive))
:initial-input (hyperdrive-petname hyperdrive))))
(if (string-blank-p petname)
- (when (yes-or-no-p (format "Unset petname for «%s»? "
- (hyperdrive--format-hyperdrive hyperdrive)))
+ (when (yes-or-no-p (format-message "Unset petname for `%s'? "
+ (hyperdrive--format-hyperdrive
hyperdrive)))
(setf (hyperdrive-petname hyperdrive) nil))
(setf (hyperdrive-petname hyperdrive) petname))
(hyperdrive-persist hyperdrive)
@@ -220,8 +220,8 @@ Universal prefix argument \\[universal-argument] forces
(progn
(hyperdrive-fill-metadata hyperdrive)
(hyperdrive-read-name
- :prompt (format "Nickname for «%s»"
- (hyperdrive--format-hyperdrive hyperdrive))
+ :prompt (format-message "Nickname for `%s'"
+ (hyperdrive--format-hyperdrive
hyperdrive))
:initial-input (alist-get 'name (hyperdrive-metadata
hyperdrive))))))
(list nickname hyperdrive)))
(unless (equal nickname (alist-get 'name (hyperdrive-metadata hyperdrive)))
@@ -367,18 +367,19 @@ directory. Otherwise, or with universal prefix argument
(or (eq entry hyperdrive-current-entry)
(string= "../" (alist-get 'display-name
(hyperdrive-entry-etc entry)))))
(hyperdrive-user-error "Won't delete from within"))
- (when (and (yes-or-no-p (format "Delete «%s»? " description))
+ (when (and (yes-or-no-p (format-message "Delete `%s'? " description))
(or (not (hyperdrive--entry-directory-p entry))
- (yes-or-no-p (format "Recursively delete «%s»? "
description))))
+ (yes-or-no-p (format-message "Recursively delete `%s'? "
+ description))))
(list entry
:then (lambda (_)
(when (and (buffer-live-p buffer)
(eq 'hyperdrive-dir-mode (buffer-local-value
'major-mode buffer)))
(with-current-buffer buffer
(revert-buffer)))
- (hyperdrive-message "Deleted: «%s» (Deleted files can be
accessed from prior versions of the hyperdrive.)" description))
+ (hyperdrive-message "Deleted: `%s' (Deleted files can be
accessed from prior versions of the hyperdrive.)" description))
:else (lambda (plz-error)
- (hyperdrive-message "Unable to delete «%s»: %S"
description plz-error))))))
+ (hyperdrive-message "Unable to delete `%s': %S"
description plz-error))))))
(hyperdrive-api 'delete (hyperdrive-entry-url entry)
:as 'response
:then (lambda (response)
@@ -590,8 +591,8 @@ Nil VERSION means open the entry at its hyperdrive's latest
version."
(interactive (let ((entry hyperdrive-current-entry))
(list entry (hyperdrive-read-version
:hyperdrive (hyperdrive-entry-hyperdrive entry)
- :prompt (format "Open «%s» at version (leave
blank for latest version)"
- (hyperdrive--format-entry
entry))))))
+ :prompt (format-message "Open `%s' at version
(leave blank for latest version)"
+
(hyperdrive--format-entry entry))))))
(if-let ((latest-entry (hyperdrive-entry-at version entry)))
(hyperdrive-open latest-entry)
(hyperdrive-message (substitute-command-keys "%s does not exist at version
%s. Try \\[hyperdrive-history]")
@@ -694,7 +695,7 @@ Universal prefix argument \\[universal-argument] forces
(hyperdrive (hyperdrive-complete-hyperdrive :predicate
#'hyperdrive-writablep
:force-prompt
current-prefix-arg))
;; TODO: Consider offering target dirs in hyperdrive with completion.
- (target-dir (hyperdrive-read-path :hyperdrive hyperdrive :prompt
"Target directory in «%s»" :default "/")))
+ (target-dir (hyperdrive-read-path :hyperdrive hyperdrive :prompt
"Target directory in `%s'" :default "/")))
(list files hyperdrive :target-directory target-dir)))
(cl-assert (cl-notany #'file-directory-p files))
(cl-assert (cl-every #'file-readable-p files))
@@ -900,7 +901,7 @@ The return value of this function is the retrieval buffer."
(let* ((files
(hyperdrive-read-files))
(target-dir (hyperdrive-read-path
:hyperdrive ,drive
-
:prompt "Target directory in «%s»"
+
:prompt "Target directory in `%s'"
:default "/")))
(hyperdrive-upload-files files ,drive
:target-directory target-dir)))
@@ -923,10 +924,10 @@ The return value of this function is the retrieval
buffer."
(call-interactively #'hyperdrive-set-petname)))
:help "Set petname
for hyperdrive"
:label
- (format "Set
petname: «%s»"
- (pcase
(hyperdrive-petname drive)
- (`nil
"none")
- (it
it))))
+ (format-message
"Set petname: `%s'"
+
(pcase (hyperdrive-petname drive)
+
(`nil "none")
+
(it it))))
(vector "Nickname"
`(lambda ()
(interactive)
@@ -935,10 +936,10 @@ The return value of this function is the retrieval
buffer."
:help "Set
nickname for hyperdrive"
:active
(hyperdrive-writablep drive)
:label
- (format "Set
nickname: «%s»"
- (pcase
(alist-get 'name (hyperdrive-metadata drive))
- (`nil
"none")
- (it
it))))
+ (format-message
"Set nickname: `%s'"
+
(pcase (alist-get 'name (hyperdrive-metadata drive))
+
(`nil "none")
+
(it it))))
"---"
(vector "Purge"
`(lambda ()
@@ -962,14 +963,14 @@ The return value of this function is the retrieval
buffer."
("Current"
:active hyperdrive-current-entry
:label (if-let* ((entry hyperdrive-current-entry))
- (format "Current: «%s»"
- (hyperdrive--format-entry entry))
+ (format-message "Current: `%s'"
+ (hyperdrive--format-entry entry))
"Current")
("Current Drive"
:active hyperdrive-current-entry
:label (if-let* ((entry hyperdrive-current-entry)
(hyperdrive (hyperdrive-entry-hyperdrive entry)))
- (format "Current Drive «%s»" (hyperdrive--format hyperdrive))
+ (format-message "Current Drive `%s'" (hyperdrive--format
hyperdrive))
"Current Drive")
["Find File"
(lambda ()
@@ -1005,7 +1006,7 @@ The return value of this function is the retrieval
buffer."
(drive (hyperdrive-entry-hyperdrive hyperdrive-current-entry))
(target-dir (hyperdrive-read-path
:hyperdrive drive
- :prompt "Target directory in «%s»"
+ :prompt "Target directory in `%s'"
:default "/")))
(hyperdrive-upload-files files drive
:target-directory target-dir)))
@@ -1023,23 +1024,23 @@ The return value of this function is the retrieval
buffer."
(call-interactively #'hyperdrive-set-petname))
:help "Set petname for hyperdrive"
:label
- (format "Set petname: «%s»"
- (pcase (hyperdrive-petname (hyperdrive-entry-hyperdrive
hyperdrive-current-entry))
- (`nil "none")
- (it it)))]
+ (format-message "Set petname: `%s'"
+ (pcase (hyperdrive-petname (hyperdrive-entry-hyperdrive
hyperdrive-current-entry))
+ (`nil "none")
+ (it it)))]
["Nickname" (lambda ()
(interactive)
(call-interactively #'hyperdrive-set-nickname))
:help "Set nickname for hyperdrive"
:active (hyperdrive-writablep (hyperdrive-entry-hyperdrive
hyperdrive-current-entry))
:label
- (format "Set nickname: «%s»"
- (pcase (alist-get 'name
- (hyperdrive-metadata
- (hyperdrive-entry-hyperdrive
- hyperdrive-current-entry)))
- (`nil "none")
- (it it)))]
+ (format-message "Set nickname: `%s'"
+ (pcase (alist-get 'name
+ (hyperdrive-metadata
+ (hyperdrive-entry-hyperdrive
+ hyperdrive-current-entry)))
+ (`nil "none")
+ (it it)))]
"---"
["Describe" (lambda ()
(interactive)
@@ -1050,12 +1051,12 @@ The return value of this function is the retrieval
buffer."
(call-interactively #'hyperdrive-purge))
:help "Purge all local data about hyperdrive"])
("Current File/Directory"
- :label (format "Current %s: «%s»"
- (if (hyperdrive--entry-directory-p
hyperdrive-current-entry)
- "Directory"
- "File")
- (hyperdrive--format-path (hyperdrive-entry-path
- hyperdrive-current-entry)))
+ :label (format-message "Current %s: `%s'"
+ (if (hyperdrive--entry-directory-p
hyperdrive-current-entry)
+ "Directory"
+ "File")
+ (hyperdrive--format-path (hyperdrive-entry-path
+
hyperdrive-current-entry)))
["Refresh" (lambda ()
(interactive)
(call-interactively #'revert-buffer))
@@ -1114,11 +1115,11 @@ The return value of this function is the retrieval
buffer."
:help "Download current file"])
("Selected"
:label (let ((entry-at-point (hyperdrive-dir--entry-at-point)))
- (format "Selected %s: «%s»"
- (if (hyperdrive--entry-directory-p entry-at-point)
- "Directory"
- "File")
- (hyperdrive-entry-name entry-at-point)))
+ (format-message "Selected %s: `%s'"
+ (if (hyperdrive--entry-directory-p
entry-at-point)
+ "Directory"
+ "File")
+ (hyperdrive-entry-name entry-at-point)))
:visible (and (eq major-mode 'hyperdrive-dir-mode)
(hyperdrive-dir--entry-at-point))
["Download" (lambda ()
- [nongnu] elpa/hyperdrive 484c799d05 075/102: Docs: Add missing vindex, (continued)
- [nongnu] elpa/hyperdrive 484c799d05 075/102: Docs: Add missing vindex, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 2da7cdd6b9 096/102: Fix: Declare h/menu-hyperdrive, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive a9867d69a5 100/102: Tidy: Add missing declare-function, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 62ef2a260d 069/102: Change: Require at least Emacs 28.1, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive d0c30a9742 008/102: Change: (-menu-hyperdrive) Define remaining suffixes separately, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive cf227607db 038/102: Change: (hyperdrive-mirror-confirm) Add :info-manual, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 0a1a306009 024/102: Tidy: Rename hyperdrive-menu--entry to hyperdrive-menu--scope, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive caa7b0d4df 055/102: Tidy, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive cf557ee68d 015/102: Change (-menu-hyperdrive) Bind mirror suffixes after "m", ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive e9cb8f348e 016/102: Change: (-menu-hyperdrive) Remove hyperdrive-mirror-hyperdrive, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 0124153ffa 066/102: Change: Replace guillemet with grave and apostrophe,
ELPA Syncer <=
- [nongnu] elpa/hyperdrive 758c2444a5 102/102: Comment: Remove TODO, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 7af8897825 101/102: Tidy: (transient-format-value) Add missing docstring, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 8e591ae396 086/102: Tidy: Move applicable modes into interactive block, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 6b426b2d9e 097/102: Chore: Appease spellcheck, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 826b320333 037/102: Docs: Refer to hyperdrive-menu in installation instructions, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 804ec989d3 062/102: Fix "%H" specifier, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive e152a7a370 022/102: Change: (hyperdrive-menu-hyperdrive) Change binding for -set-filter, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 6c295d8b2c 054/102: Add: (--format) Display hyperdrive according to format string, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive 210cb2a259 030/102: Fix: (hyperdrive-menu) Require hyperdrive-mirror, ELPA Syncer, 2023/11/29
- [nongnu] elpa/hyperdrive b8ca5ec017 042/102: Fix (hyperdrive-menu-hyperdrive) Autoload, ELPA Syncer, 2023/11/29