The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b4f69e8
)
Bugfix: file name suggestion for gemini downloads.
author
Tim Vaughan
<plugd@thelambdalab.xyz>
Sun, 17 May 2020 10:36:06 +0000
(12:36 +0200)
committer
Tim Vaughan
<plugd@thelambdalab.xyz>
Sun, 17 May 2020 10:36:24 +0000
(12:36 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
ab75730
..
8113c53
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-2,7
+2,7
@@
;; Copyright (C) 2019 Tim Vaughan
;; Copyright (C) 2019 Tim Vaughan
-;; Author: Tim Vaughan <
timv@ughan
.xyz>
+;; Author: Tim Vaughan <
plugd@thelambdalab
.xyz>
;; Created: 11 April 2019
;; Version: 2.7.4
;; Keywords: comm gopher
;; Created: 11 April 2019
;; Version: 2.7.4
;; Keywords: comm gopher
@@
-813,7
+813,9
@@
The response is rendered using the rendering function RENDERER."
(if (not data)
nil
(let* ((address (elpher-page-address elpher-current-page))
(if (not data)
nil
(let* ((address (elpher-page-address elpher-current-page))
- (selector (elpher-gopher-address-selector address)))
+ (selector (if (elpher-address-gopher-p address)
+ (elpher-gopher-address-selector address)
+ (elpher-address-filename address))))
(elpher-visit-previous-page) ; Do first in case of non-local exits.
(let* ((filename-proposal (file-name-nondirectory selector))
(filename (read-file-name "Download complete. Save file as: "
(elpher-visit-previous-page) ; Do first in case of non-local exits.
(let* ((filename-proposal (file-name-nondirectory selector))
(filename (read-file-name "Download complete. Save file as: "