[nongnu] elpa/hyperdrive d3d8e28080 03/16: Tidy: (h/history) Reduce nesting

[ELPA Syncer]

branch: elpa/hyperdrive
commit d3d8e2808000180e0b2f3f807c2d2d22f044a8b9
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Tidy: (h/history) Reduce nesting
---
 hyperdrive-history.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 461e098135..f031f25fea 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -182,13 +182,13 @@ prefix argument \\[universal-argument], prompt for ENTRY."
                 ;; Display in reverse chronological order
                 (nreverse (he/version-ranges-no-gaps entry))))
        (main-header (h//format-entry entry "[%H] %p"))
-       (header (concat main-header "\n"
-                       (format "%7s  %19s  %6s  %s"
-                               (propertize "Exists" 'face 'h/column-header)
-                               (propertize "Drive Version Range" 'face 
'h/column-header)
-                               (propertize "Size" 'face 'h/column-header)
-                               (format (format "%%%ds" h/timestamp-width)
-                                       (propertize "Last Modified" 'face 
'h/column-header)))))
+       (header (format
+                "%s\n%7s  %19s  %6s  %s" main-header
+                (propertize "Exists" 'face 'h/column-header)
+                (propertize "Drive Version Range" 'face 'h/column-header)
+                (propertize "Size" 'face 'h/column-header)
+                (string-pad (propertize "Last Modified" 'face 'h/column-header)
+                            nil t)))
        (queue) (ewoc))
     (with-current-buffer (get-buffer-create
                           (format "*Hyperdrive-history: %s*"