Skip to content

Commit 48ab1e7

Browse files
committed
purescript-indentation: remove unused functions
This removes 3 functions from purescript-indentation module that are not used anywhere in the code and are not even documented. Hopefully should simplify digging into the indentation engine further.
1 parent 150e879 commit 48ab1e7

File tree

1 file changed

+0
-34
lines changed

1 file changed

+0
-34
lines changed

purescript-indentation.el

Lines changed: 0 additions & 34 deletions
Original file line numberDiff line numberDiff line change
@@ -739,17 +739,6 @@ indent the current line. This has to be fixed elsewhere."
739739
(let ((current-indent (purescript-current-column)))
740740
(funcall parser)))
741741

742-
(defun purescript-indentation-simple-declaration ()
743-
(purescript-indentation-expression)
744-
(cond ((string= current-token "=")
745-
(purescript-indentation-statement-right #'purescript-indentation-expression))
746-
((string= current-token "::")
747-
(purescript-indentation-statement-right #'purescript-indentation-type))
748-
((and (eq current-token 'end-tokens)
749-
(string= following-token "="))
750-
(purescript-indentation-add-indentation current-indent)
751-
(throw 'parse-end nil))))
752-
753742
(defun purescript-indentation-declaration ()
754743
(purescript-indentation-expression)
755744
(cond ((string= current-token "|")
@@ -798,21 +787,6 @@ indent the current line. This has to be fixed elsewhere."
798787
(unless (member (car parser) '("(" "[" "{" "do" "case"))
799788
(throw 'return nil)))))))))
800789

801-
(defun purescript-indentation-test-indentations ()
802-
(interactive)
803-
(let ((indentations (save-excursion (purescript-indentation-find-indentations)))
804-
(str "")
805-
(pos 0))
806-
(while indentations
807-
(when (>= (car indentations) pos)
808-
(setq str (concat str (make-string (- (car indentations) pos) ?\ )
809-
"|"))
810-
(setq pos (+ 1 (car indentations))))
811-
(setq indentations (cdr indentations)))
812-
(end-of-line)
813-
(newline)
814-
(insert str)))
815-
816790
(defun purescript-indentation-separated (parser separator stmt-separator)
817791
(catch 'return
818792
(while t
@@ -938,14 +912,6 @@ indent the current line. This has to be fixed elsewhere."
938912
(setq possible-indentations
939913
(cons indent possible-indentations))))
940914

941-
(defun purescript-indentation-token-test ()
942-
(let ((current-token nil)
943-
(following-token nil)
944-
(layout-indent 0)
945-
(parse-line-number 0)
946-
(indentation-point (mark)))
947-
(purescript-indentation-read-next-token)))
948-
949915
(defun purescript-indentation-read-next-token ()
950916
(cond ((eq current-token 'end-tokens)
951917
'end-tokens)

0 commit comments

Comments
 (0)