カレントバッファー即時実行 or まるまるインデント - xyzzy lisp

ファイル名: -

カレントバッファーまるまるインデント

(defun indent-current-buffer ()
  (interactive)
  (save-excursion
    (indent-region (point-min) (point-max))))

(define-key ed::*lisp-mode-map* #\C-F5 'byte-compile-current-buffer)
(set-function-bar-label #\C-F5 "compile cur")

カレントバッファーを評価

.xyzzy や site-init.l など lisp を評価中に 便利。
(defun eval-current-buffer ()
  (interactive)
  "byte compile current buffer"
  (if (selected-buffer)
    (let ((now-point (point)) (error-occur t))
      (when (save-excursion (eval-region (point-min) (point-max)))
        (message "eval CORRECTLY : (current buffer : ~A)" (buffer-name (selected-buffer)))
        (setq error-occur nil))
      (if error-occur
        (message "ERROR!! buffer : ~A" (buffer-name(selected-buffer)))))
    (message "bufferで実行してますかい?")))

(define-key ed::*lisp-mode-map* #\C-F4 'eval-current-buffer)
(define-key ed::*lisp-interaction-mode-map* #\C-F4 'eval-current-buffer)
(set-function-bar-label #\C-F4 "eval cur")
   
Delicious にシェア
Digg にシェア
reddit にシェア
LinkedIn にシェア
LINEで送る
email this
Pocket

563 views.



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です