gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Document functions, mode.

Browse source
This commit is contained in:
Phil Jackson 2010-05-31 16:49:29 +01:00
parent c5978a4cde
commit 480f0726d0
1 changed files with 16 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
rebase-mode.el
View file

@ -44,6 +44,8 @@
"Keymap for rebase-mode.") "Keymap for rebase-mode.")
(defun rebase-mode-edit-line (change-to) (defun rebase-mode-edit-line (change-to)
"Change the keyword at the start of the current action line to
that of CHANGE-TO."
(let ((buffer-read-only nil) (let ((buffer-read-only nil)
(start (point))) (start (point)))
(goto-char (point-at-bol)) (goto-char (point-at-bol))
@ -52,15 +54,18 @@
(goto-char start))) (goto-char start)))
(defun rebase-mode-looking-at-action () (defun rebase-mode-looking-at-action ()
"Returns non-nil if looking at an action line."
(save-excursion (save-excursion
(goto-char (point-at-bol)) (goto-char (point-at-bol))
(looking-at rebase-mode-action-line-re))) (looking-at rebase-mode-action-line-re)))
(defun rebase-mode-setup () (defun rebase-mode-setup ()
"Function run when initialising rebase-mode."
(setq buffer-read-only t) (setq buffer-read-only t)
(use-local-map rebase-mode-map)) (use-local-map rebase-mode-map))
(defun rebase-mode-move-line-up () (defun rebase-mode-move-line-up ()
"Move the current action line up."
(interactive) (interactive)
(when (rebase-mode-looking-at-action) (when (rebase-mode-looking-at-action)
(let ((buffer-read-only nil)) (let ((buffer-read-only nil))
@ -68,6 +73,8 @@
(previous-line 2)))) (previous-line 2))))
(defun rebase-mode-move-line-down () (defun rebase-mode-move-line-down ()
"Assuming the next line is also an action line, move the
current line down."
(interactive) (interactive)
;; if we're on an action and the next line is also an action ;; if we're on an action and the next line is also an action
(when (and (rebase-mode-looking-at-action) (when (and (rebase-mode-looking-at-action)
@ -80,6 +87,7 @@
(previous-line 1)))) (previous-line 1))))
(defun rebase-mode-abort () (defun rebase-mode-abort ()
"Abort this rebase."
(interactive) (interactive)
(let ((buffer-read-only nil)) (let ((buffer-read-only nil))
(delete-region (point-min) (point-max)) (delete-region (point-min) (point-max))
@ -87,6 +95,7 @@
(server-edit))) (server-edit)))
(defun rebase-mode-kill-line () (defun rebase-mode-kill-line ()
"Kill the current action line."
(interactive) (interactive)
(let* ((buffer-read-only nil) (let* ((buffer-read-only nil)
(region (list (point-at-bol) (region (list (point-at-bol)
@ -103,20 +112,6 @@
rebase-font-lock-keywords rebase-font-lock-keywords
'("git-rebase-todo") '("git-rebase-todo")
'(rebase-mode-setup) '(rebase-mode-setup)
"Mode for blah") "Major mode for interactively editing git rebase files.")
;;(defun rebase-mode ()
;; (interactive)
;; (kill-all-local-variables)
;; (make-local-variable 'font-lock-defaults)
;; (setq font-lock-defaults '(rebase-font-lock-keywords nil t nil nil))
;;
;; (set (make-local-variable 'comment-start) "#")
;; (set (make-local-variable 'comment-end) "")
;;
;; (setq mode-name "rebase" major-mode 'rebase-mode))
(provide 'rebase-mode) (provide 'rebase-mode)
;; "\\([0-9a-fA-F]\\{40\\}\\) "