@@ -739,17 +739,6 @@ indent the current line. This has to be fixed elsewhere."
739
739
(let ((current-indent (purescript-current-column)))
740
740
(funcall parser)))
741
741
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
-
753
742
(defun purescript-indentation-declaration ()
754
743
(purescript-indentation-expression)
755
744
(cond ((string= current-token " |" )
@@ -798,21 +787,6 @@ indent the current line. This has to be fixed elsewhere."
798
787
(unless (member (car parser) '(" (" " [" " {" " do" " case" ))
799
788
(throw 'return nil )))))))))
800
789
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
-
816
790
(defun purescript-indentation-separated (parser separator stmt-separator )
817
791
(catch 'return
818
792
(while t
@@ -938,14 +912,6 @@ indent the current line. This has to be fixed elsewhere."
938
912
(setq possible-indentations
939
913
(cons indent possible-indentations))))
940
914
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
-
949
915
(defun purescript-indentation-read-next-token ()
950
916
(cond ((eq current-token 'end-tokens )
951
917
'end-tokens )
0 commit comments