branch: master
commit 6cc31007dc6532deb6954257562624691ffcd694
Author: Junpeng Qiu <qjpchm...@gmail.com>
Commit: Junpeng Qiu <qjpchm...@gmail.com>
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
