Browse Source

indentation

remotes/bexa/master
Romain Goffe 13 years ago
parent
commit
506ac723e9
  1. 2
      songs/M/La_seine.sg
  2. 9
      utils/emacs-format-file.el

2
songs/M/La_seine.sg

@ -13,7 +13,7 @@
\lilypond{La_seine_rythm}
\beginverse*
{\nolyrics \Intro : \lilypond{La_seine_riff1} | \[Am] | \[F] | \[C] \[E] | \[Am] |}
\musicnote{\nolyrics \Intro : \lilypond{La_seine_riff1} | \[Am] | \[F] | \[C] \[E] | \[Am] |}
\endverse
\beginverse

9
utils/emacs-format-file.el

@ -11,7 +11,7 @@
(if (bobp)
(indent-line-to 0) ; First line is always non-indented
(let ((not-indented t) cur-indent)
(if (looking-at "^[ \t]*\\(\\\\end\\(song\\|verse\\|chorus\\)\\)") ; If the line we are looking at is the end of a block, then decrease the indentation
(if (looking-at "^[ \t]*\\(\\\\end\\)") ; If the line we are looking at is the end of a block, then decrease the indentation
(progn
(save-excursion
(forward-line -1)
@ -21,11 +21,11 @@
(save-excursion
(while not-indented ; Iterate backwards until we find an indentation hint
(forward-line -1)
(if (looking-at "^[ \t]*\\(\\\\end\\(song\\|verse\\|chorus\\)\\)") ; This hint indicates that we need to indent at the level of the END_ token
(if (looking-at "^[ \t]*\\(\\\\end\\)") ; This hint indicates that we need to indent at the level of the END_ token
(progn
(setq cur-indent (current-indentation))
(setq not-indented nil))
(if (looking-at "^[ \t]*\\(\\\\begin\\(song\\|verse\\|chorus\\)\\)") ; This hint indicates that we need to indent an extra level
(if (looking-at "^[ \t]*\\(\\\\begin\\)") ; This hint indicates that we need to indent an extra level
(progn
(setq cur-indent (+ (current-indentation) 2)) ; Do the actual indenting
(setq not-indented nil))
@ -33,8 +33,7 @@
(setq not-indented nil)))))))
(if cur-indent
(indent-line-to cur-indent)
(indent-line-to 0)))) ; If we didn't see an indentation hint, then allow no indentation
)
(indent-line-to 0))))) ; If we didn't see an indentation hint, then allow no indentation
(defun emacs-format-function ()
"Format the whole buffer."

Loading…
Cancel
Save