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

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

[elpa] master 6cc3100 07/60: Fix indentations


From: Junpeng Qiu
Subject: [elpa] master 6cc3100 07/60: Fix indentations
Date: Tue, 25 Oct 2016 17:45:12 +0000 (UTC)

branch: master
commit 6cc31007dc6532deb6954257562624691ffcd694
Author: Junpeng Qiu <address@hidden>
Commit: Junpeng Qiu <address@hidden>

    Fix indentations
---
 full-csv-parser.el |    8 ++++----
 parsec.el          |   18 +++++++++---------
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/full-csv-parser.el b/full-csv-parser.el
index d78c40c..9320373 100644
--- a/full-csv-parser.el
+++ b/full-csv-parser.el
@@ -26,8 +26,8 @@
 
 (defun csv-file ()
   (parsec-ensure
-      (parsec-return (parsec-endby (csv-line) (csv-eol))
-        (parsec-eob))))
+   (parsec-return (parsec-endby (csv-line) (csv-eol))
+     (parsec-eob))))
 
 (defun csv-line ()
   (parsec-sepby (csv-cell) (parsec-ch ?,)))
@@ -37,8 +37,8 @@
 
 (defun csv-quoted-cell ()
   (parsec-and (parsec-ch ?\")
-          (parsec-return (parsec-many-as-string (csv-quoted-char))
-            (parsec-ensure (parsec-ch ?\")))))
+              (parsec-return (parsec-many-as-string (csv-quoted-char))
+                (parsec-ensure (parsec-ch ?\")))))
 
 (defun csv-quoted-char ()
   (parsec-or (parsec-re "[^\"]")
diff --git a/parsec.el b/parsec.el
index 92da11e..9f13e88 100644
--- a/parsec.el
+++ b/parsec.el
@@ -54,9 +54,9 @@
                      (and (stringp expected)
                           (stringp found)))
              (parsec-msg (if (stringp msg)
-                         msg
-                       (format "Found \"%s\" -> Expected \"%s\""
-                               found expected)))))))
+                             msg
+                           (format "Found \"%s\" -> Expected \"%s\""
+                                   found expected)))))))
 
 (defun parsec-ch (ch &rest args)
   (let ((next-char (char-after)))
@@ -73,12 +73,12 @@
               (char-to-string ch)))
           (forward-char 1))
       (parsec-stop :expected (char-to-string ch)
-               :found (parsec-eob-or-char-as-string)))))
+                   :found (parsec-eob-or-char-as-string)))))
 
 (defun parsec-eob ()
   (unless (eobp)
     (parsec-stop :expected "`eob'"
-             :found (parsec-eob-or-char-as-string))))
+                 :found (parsec-eob-or-char-as-string))))
 
 (defun parsec-re (regexp &rest args)
   (if (looking-at regexp)
@@ -139,7 +139,7 @@
   (let* ((error-sym (make-symbol "err")))
     `(let (,error-sym)
        (if (parsec-msg-p (setq ,error-sym
-                           (parsec-try-with-message ,msg ,@forms)))
+                               (parsec-try-with-message ,msg ,@forms)))
            (error (parsec-msg-get ,error-sym))
          ,error-sym))))
 
@@ -161,8 +161,8 @@
   (let ((res (make-symbol "results")))
     `(let (,res)
        (parsec-try
-           (while (not (eobp))
-             (push ,parser ,res)))
+        (while (not (eobp))
+          (push ,parser ,res)))
        (nreverse ,res))))
 
 (defmacro parsec-many1 (parser)
@@ -179,7 +179,7 @@
 
 (defmacro parsec-endby (parser end)
   `(parsec-many (parsec-return ,parser
-              ,end)))
+                  ,end)))
 
 (defmacro parsec-sepby (parser separator)
   `(parsec-or



reply via email to

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