[elpa] externals/dash 51ddc13 110/439: Nice indentation for threading macros.

[Phillip Lord]

branch: externals/dash
commit 51ddc1303a46f1789b4ca4f4679c7957ac988ddb
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>

    Nice indentation for threading macros.
---
 dash.el             |    4 ++++
 examples-to-docs.el |   12 ++++++------
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/dash.el b/dash.el
index 8eed84a..89ea76c 100644
--- a/dash.el
+++ b/dash.el
@@ -411,6 +411,10 @@ in in second form, etc."
         (list form x))
     `(--> (--> ,x ,form) ,@more)))
 
+(put '-> 'lisp-indent-function 1)
+(put '->> 'lisp-indent-function 1)
+(put '--> 'lisp-indent-function 1)
+
 (defun -distinct (list)
   "Return a new list with all duplicates removed.
 The test for equality is done with `equal',
diff --git a/examples-to-docs.el b/examples-to-docs.el
index a16575b..d312f3d 100644
--- a/examples-to-docs.el
+++ b/examples-to-docs.el
@@ -6,10 +6,10 @@
   (let ((actual (car example))
         (expected (nth 2 example)))
     (--> (format "%S ;; => %S" actual expected)
-         (replace-regexp-in-string "\\\\\\?" "?" it)
-         (replace-regexp-in-string "\n" "\\n" it t t)
-         (replace-regexp-in-string "\t" "\\t" it t t)
-         (replace-regexp-in-string "\r" "\\r" it t t))))
+      (replace-regexp-in-string "\\\\\\?" "?" it)
+      (replace-regexp-in-string "\n" "\\n" it t t)
+      (replace-regexp-in-string "\t" "\\t" it t t)
+      (replace-regexp-in-string "\r" "\\r" it t t))))
 
 (defun docs--signature (cmd)
   (if (eq 'macro (car cmd))
@@ -34,8 +34,8 @@
 (defun quote-docstring (docstring)
   (let (case-fold-search)
     (--> docstring
-         (replace-regexp-in-string "\\b\\([A-Z][A-Z-]*[0-9]*\\)\\b" 
'quote-and-downcase it t)
-         (replace-regexp-in-string "`\\([^ ]+\\)'" "`\\1`" it t))))
+      (replace-regexp-in-string "\\b\\([A-Z][A-Z-]*[0-9]*\\)\\b" 
'quote-and-downcase it t)
+      (replace-regexp-in-string "`\\([^ ]+\\)'" "`\\1`" it t))))
 
 (defun function-to-md (function)
   (let ((command-name (car function))