fmt.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#| <Put a one-line description here>
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
  (ros:ensure-asdf)
  #+quicklisp (ql:quickload '(:lem-base :lem-lisp-syntax) :silent t)
  )

;; TODO: あまり速くないのでファイル毎にマルチスレッドでやりたい (lemはスレッドセーフではないから排他制御をうまくやる必要がある)

(defpackage :ros.script.fmt.3707812168
  (:use :cl))
(in-package :ros.script.fmt.3707812168)

(defun indent-buffer (buffer)
  (lem-base:indent-region (lem-base:buffer-start-point buffer)
                          (lem-base:buffer-end-point buffer)))

(defun fmt (file)
  (let ((buffer (lem-base:find-file-buffer file)))  
    (lem-base:buffer-disable-undo buffer)
    (setf (lem-base:buffer-syntax-table buffer)
          lem-lisp-syntax:*syntax-table*)
    (setf (lem-base:variable-value 'lem-base:calc-indent-function :buffer buffer)
          'lem-lisp-syntax:calc-indent)
    (indent-buffer buffer)
    (lem-base:write-to-file buffer (lem-base:buffer-filename buffer))))

(defun main (&rest argv)
  (declare (ignorable argv))
  (lem-lisp-syntax:indentation-update)
  (loop :for arg :in argv
        :do (fmt arg)))

;;; vim: set ft=lisp lisp: