Lines Matching defs:indentation
9 ;; casl-indent.el --- indentation module for CASL Mode
13 "casl indentation."
73 ;; for pushing indentation information
76 "Pushes indentation information for the column COL
77 followed by NAME (if present). Makes sure that the same indentation info
85 "Pushes indentation information for the column corresponding to POS
90 "Pushes indentation information for the column corresponding to POS
111 (defun casl-indent-back-to-indentation ()
112 "`back-to-indentation' function."
113 (back-to-indentation)
116 (defun casl-indent-current-indentation ()
117 "`current-indentation' function."
118 (current-indentation)
121 (defun casl-indent-backward-to-indentation (n)
122 "`backward-to-indentation' function."
123 (backward-to-indentation n)
147 ;;; Start of indentation code
243 (casl-indent-back-to-indentation)
312 "Finds indentation information for a line starting with a guard."
318 ;; push information indentation for the visible part
329 "Finds indentation information for a line starting with a rhs."
335 ;; push information indentation for the visible part
346 "Finds indentation information for a comment line.
351 indent at the same indentation as the previous line."
363 (casl-indent-push-col (casl-indent-current-indentation)))))
391 "Finds indentation points for an empty line."
456 "Finds indentation points for a line starting with an identifier."
516 "Finds indentation points for a non-empty line starting with something other
564 (defun casl-indent-valdef-indentation (start end end-visible curr-line-type
566 "Finds indentation information for a value definition."
577 (defun casl-indent-line-indentation (line-start line-end end-visible
580 and find indentation info for each part."
594 (casl-indent-valdef-indentation
603 (setq indent-info ; do not try to find indentation points
604 (casl-indent-valdef-indentation line-start beg-match
613 (casl-indent-valdef-indentation line-start line-end end-visible
617 (defun casl-indent-indentation-info ()
621 (end (progn (casl-indent-back-to-indentation) (point)))
640 (setq indent-info ; computing comment indentation
643 ;; full indentation
674 (casl-indent-line-indentation line-start line-end
678 ;; simple contour just one indentation at start
699 (if (> (current-column) (casl-indent-current-indentation))
701 (setq il (setq indent-list (casl-indent-indentation-info)))
704 (casl-indent-line-to (car indent-info)) ; insert indentation
706 (message "Sole indentation")
713 (casl-indent-line-to (car indent-info)) ; insert indentation
755 "Turn on ``intelligent'' casl indentation mode."
765 "Turn off ``intelligent'' casl indentation mode that deals with
774 "Indicates if the semi-intelligent casl indentation mode is in effect
785 "``intelligent'' casl indentation mode that deals with