Current section

Files

Jump to
rebar3_fmt priv fmt.el
Raw

priv/fmt.el

(load "erlang-start")
(require 'cl)
(setq-default indent-tabs-mode nil)
(setq c-basic-offset 4)
(defun fmt-file (arg)
(message "fmt %s" arg)
(find-file arg)
(erlang-mode)
;; (toggle-debug-on-error)
(untabify (point-min) (point-max))
(condition-case ex
(erlang-indent-current-buffer)
('error (message "%s" (error-message-string ex))))
(save-buffer 0)
(kill-buffer)
)
(cl-mapc 'fmt-file command-line-args-left)