36 lines
757 B
EmacsLisp
36 lines
757 B
EmacsLisp
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;;;
|
||
|
|
;;; ghc-indent.el
|
||
|
|
;;;
|
||
|
|
|
||
|
|
;; Author: Kazu Yamamoto <Kazu@Mew.org>
|
||
|
|
;; Created: Feb 28, 2012
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(defvar ghc-indent-offset 4)
|
||
|
|
|
||
|
|
(defun ghc-make-indent-shallower (beg end)
|
||
|
|
(interactive "r")
|
||
|
|
(let ((n ghc-indent-offset))
|
||
|
|
(save-excursion
|
||
|
|
(save-restriction
|
||
|
|
(narrow-to-region beg end)
|
||
|
|
(goto-char beg)
|
||
|
|
(while (not (eobp))
|
||
|
|
(delete-region (point) (+ (point) n))
|
||
|
|
(forward-line))))))
|
||
|
|
|
||
|
|
(defun ghc-make-indent-deeper (beg end)
|
||
|
|
(interactive "r")
|
||
|
|
(let ((indent (make-string ghc-indent-offset 32)))
|
||
|
|
(save-excursion
|
||
|
|
(save-restriction
|
||
|
|
(narrow-to-region beg end)
|
||
|
|
(goto-char beg)
|
||
|
|
(while (not (eobp))
|
||
|
|
(insert indent)
|
||
|
|
(forward-line))))))
|
||
|
|
|
||
|
|
(provide 'ghc-indent)
|