w3m-download: New feature: toggle line wrap

emacs-w3m · Boruch-Baum · Mar 8, 2019 · Mar 13, 2019 · Mar 13, 2019 · Mar 13, 2019
commit 66cd7953eddb1a6110b5d360390192e11e21bfa8
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,10 @@
+2021-04-20  Boruch Baum  <boruch_baum@gmx.com>
+
+	* w3m-download.el (w3m-download-toggle-line-wrap): New function.
+	(w3m-download-queue-mode-map): Add it to keymap.
+	(w3m-download-queue-help): Add it to mode help.
+	(w3m-download-queue-mode): Add it to the mode docstring.
+
 2021-04-20  Boruch Baum  <boruch_baum@gmx.com>
 
 	* w3m-download.el (w3m--download-header-prefix)

diff --git a/w3m-download.el b/w3m-download.el
@@ -336,6 +336,7 @@ These are:`w3m--download-queued', `w3m--download-running',
     (define-key map "\C-g"      'w3m-download-refresh-buffer)
     (define-key map "+"         'w3m-download-increase-simultaneous)
     (define-key map "-"         'w3m-download-decrease-simultaneous)
+    (define-key map "w"         'w3m-download-toggle-line-wrap)
     (define-key map "?"         'w3m-download-queue-help)
     (setq w3m-download-queue-mode-map map)))
 
@@ -870,6 +871,7 @@ docstring of `w3m-download-queue-mode'."
 \\[w3m-download-increase-simultaneous] / \\[w3m-download-decrease-simultaneous]  \
     Increase /Decrease numner of parallel downloads.
 \\[w3m-download-toggle-details]        Toggle a line's details (\\[w3m-download-toggle-all-details] for all lines)
+\\[w3m-download-toggle-line-wrap]          Toggle `visual-line-mode' for the buffer.
 \\[w3m-download-refresh-buffer]        Refresh (update) the buffer contents.
 \\[universal-argument] \\[w3m-download-refresh-buffer]\
     Change the buffer auto-refresh interval.
@@ -1576,6 +1578,7 @@ See `w3m-download-ambiguous-basename-alist'."
                   'w3m-download-decrease-simultaneous
                   'w3m-download-toggle-details
                   'w3m-download-toggle-pause
+                  'w3m-download-toggle-line-wrap
                   'w3m-download-queue-drop
                   'w3m-download-queue-raise
                   'w3m-download-queue-raise
@@ -1586,6 +1589,13 @@ See `w3m-download-ambiguous-basename-alist'."
                   )))
       (key-assist spec nil t)))))
 
+(defun w3m-download-toggle-line-wrap ()
+  "Toggle mode `visual-line-mode' for the download queue buffer."
+  (interactive)
+  (if (not (eq major-mode 'w3m-download-queue-mode))
+    (w3m--download-msg--queue-only)
+   (visual-line-mode 'toggle)))
+
 (defun w3m-download-queue-next-entry (&optional arg)
   "Advance point to beginning of next entry in the queue buffer.
 With the prefix-ARG, advance that many entries."