[nongnu] elpa/hyperdrive 67c49adf70 22/31: Chore: Join some short lines

[ELPA Syncer]

branch: elpa/hyperdrive
commit 67c49adf70de7f4952a13d96c01df64de3e4615e
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Joseph Turner <joseph@ushin.org>

    Chore: Join some short lines
    
    Given the general direction of this commit series, this might come as
    a bit of a surprise, but I am in fact not a short-line absolutist. ;)
    
    Many of these are instances were we (or so I assume) added line-breaks
    to shorten long lines in the past.  Since we have switched to using
    symbol shorthands, this isn't necessary in these cases anymore.
---
 hyperdrive-dir.el     | 17 ++++++++---------
 hyperdrive-history.el |  3 +--
 hyperdrive-lib.el     |  6 ++----
 hyperdrive-org.el     |  6 ++----
 4 files changed, 13 insertions(+), 19 deletions(-)

diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 030ff8fe57..7456942f3a 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -51,15 +51,14 @@ If THEN, call it in the directory buffer with no arguments."
                                    :version version))
                                 entry-names))
                (parent-entry (h/parent directory-entry))
-               (header
-                (progn
-                  ;; Fill metadata first to get the current nickname.
-                  ;; TODO: Consider filling metadata earlier, outside
-                  ;; of this function (e.g. so it will be available if
-                  ;; the user loads a non-directory file directly).
-                  (h/fill-metadata hyperdrive)
-                  (h/dir-column-headers
-                   (h//format-entry directory-entry))))
+               (header (progn
+                         ;; Fill metadata first to get the current nickname.
+                         ;; TODO: Consider filling metadata earlier, outside
+                         ;; of this function (e.g. so it will be available if
+                         ;; the user loads a non-directory file directly).
+                         (h/fill-metadata hyperdrive)
+                         (h/dir-column-headers
+                          (h//format-entry directory-entry))))
                (num-entries (length entries)) (num-filled 0)
               ;; (debug-start-time (current-time))
                (metadata-queue) (ewoc) (prev-entry) (prev-point))
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 39a4a9d5d3..d60c4140cf 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -300,8 +300,7 @@ Interactively, visit entry at point in `hyperdrive-history'
 buffer."
   (interactive (list (h/history-range-entry-at-point)) h/history-mode)
   (h/history-find-file
-   range-entry :then (lambda ()
-                       (pop-to-buffer (current-buffer) t))))
+   range-entry :then (lambda () (pop-to-buffer (current-buffer) t))))
 
 (declare-function h/view-file "hyperdrive")
 (defun h/history-view-file (range-entry)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index daaf1c0ec7..b2efa1389d 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -458,8 +458,7 @@ Sends a request to the gateway for hyperdrive's latest 
version."
 
   ;; ENTRY's version is not nil.
   (let ((next-entry (h/copy-tree entry t))
-        (latest-version (h/fill-latest-version
-                         (he/hyperdrive entry))))
+        (latest-version (h/fill-latest-version (he/hyperdrive entry))))
 
     ;; ENTRY version is the latest version: return ENTRY with nil version.
     (when (eq latest-version (he/version entry))
@@ -1320,8 +1319,7 @@ If then, then call THEN with no arguments.  Default 
handler."
   ;; TODO: Is there any reason to not pass THEN through?
   "Stream ENTRY."
   (h/message "Streaming %s..." (h//format-entry-url entry))
-  (pcase-let ((`(,command . ,args)
-               (split-string h/stream-player-command)))
+  (pcase-let ((`(,command . ,args) (split-string h/stream-player-command)))
     (apply #'start-process "hyperdrive-stream-player"
            nil command (cl-substitute (h//httpify-url
                                        (he/url entry))
diff --git a/hyperdrive-org.el b/hyperdrive-org.el
index 9cfdbe0f03..de910f2869 100644
--- a/hyperdrive-org.el
+++ b/hyperdrive-org.el
@@ -188,10 +188,8 @@ Respects `hyperdrive-org-link-full-url' and 
`org-link-file-path-type'."
 
     (let ((adaptive-target-p
            ;; See the `adaptive' option in `org-link-file-path-type'.
-           (string-prefix-p
-            (file-name-directory
-             (he/path h/current-entry))
-            (he/path entry))))
+           (string-prefix-p (file-name-directory (he/path h/current-entry))
+                            (he/path entry))))
       (h//ensure-dot-slash-prefix-path
        (concat
         (pcase org-link-file-path-type