emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 30f378df0a 065/102: Fix: Fix indentation


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 30f378df0a 065/102: Fix: Fix indentation
Date: Wed, 29 Nov 2023 04:00:54 -0500 (EST)

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

    Fix: Fix indentation
    
    Unfortunately the indentation code is not smart enough to realize,
    that a list that begins with a keyword cannot possibly be a function
    call and should therefore not be indented as such.  (Vectors and
    arglists are also indented as if they were function calls.)
    
    Emacs-devel opposes the idea of fixing these "edge-cases", and instead
    suggests that this should be worked around by putting a space between
    the opening parenthesis and the first element.
---
 hyperdrive-menu.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index cc278fdbc6..57c4a0481a 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -244,16 +244,14 @@
    :pad-keys t
    ("d" hyperdrive-menu-describe-hyperdrive)
    ("w" hyperdrive-menu-hyperdrive-copy-url)
-   (:info (lambda () (hyperdrive--format (hyperdrive-menu--scope) "Public key: 
%K"
-                                         hyperdrive-raw-formats)))
-   (:info (lambda () (hyperdrive--format (hyperdrive-menu--scope) "Seed: %S" 
hyperdrive-raw-formats))
-          :if (lambda () (hyperdrive-seed (hyperdrive-menu--scope))))
+   (:info (lambda () (hyperdrive--format (hyperdrive-menu--scope) "Public key: 
%K" hyperdrive-raw-formats)))
+   ( :info (lambda () (hyperdrive--format (hyperdrive-menu--scope) "Seed: %S" 
hyperdrive-raw-formats))
+     :if (lambda () (hyperdrive-seed (hyperdrive-menu--scope))))
    ("p" hyperdrive-menu-set-petname  :transient t)
    ("n" hyperdrive-menu-set-nickname :transient t
     :inapt-if-not (lambda () (hyperdrive-writablep (hyperdrive-menu--scope))))
-   (:info (lambda () (hyperdrive--format (hyperdrive-menu--scope) "Domain: %D"
-                                         hyperdrive-raw-formats))
-          :if (lambda () (hyperdrive-domains (hyperdrive-menu--scope))))
+   ( :info (lambda () (hyperdrive--format (hyperdrive-menu--scope) "Domain: 
%D" hyperdrive-raw-formats))
+     :if (lambda () (hyperdrive-domains (hyperdrive-menu--scope))))
    (:info (lambda () (format "Latest version: %s" (hyperdrive-latest-version 
(hyperdrive-menu--scope)))))]
   [["Open"
     ("f"   "Find file"    hyperdrive-menu-open-file)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]