ソース整形

comLv = comLv.concat("00").concat(msg.substring(idx,idx + 1));

というのがずらずらあるソースを

comLv = comLv.concat("00")
             .concat(msg.substring(idx,idx + 1));

に整形したくて書いてみた

(defun digit-arrangement (args-string) 
  (interactive "sregex-string :")
  (let ((cc)(cl))
    (setq cc (current-column)
          cl (current-line-number))
    (setq x1 0 y1 0)
    (let ((x1)(y1))
      (while (scan-buffer args-string :regexp t)
        (if y1
            (if (= y1 (current-line-number));同一行なら
                (progn
                  (insert "\n")
                  (dotimes (x x1)
                    (insert " ")
                    )
                  )
              )
          )
        (setq x1 (current-column)
              y1 (current-line-number))
        (goto-column (+ x1 1))
        )
      )
    (goto-last-modified-line)
    (refresh-screen)
    (goto-line cl)
    (goto-column cc)
    )
  )
(digit-arrangement "\\.concat")