コミット: cf7472c8646ae887a57173de7b15ef673c18cad7 - cmd_mode (git)

cmd-modeはMS-DOSのバッチファイル(拡張子が.bat)や、Windows NT コマンドスクリプトファイル(拡張子が.cmd)等を編集する為の、Emacsのメジャーモードです。

コミットメタ情報

• リビジョン: cf7472c8646ae887a57173de7b15ef673c18cad7 (tree)
• 日時: 2001-09-11 21:39:03
• 作者: tfuruka1 <tfuruka1>
• コミッター: tfuruka1

ログメッセージ

●メニューをつけてみた。
●任意のラベルへジャンプする機能を追加。

変更サマリ

• modified: cmd-mode.el

差分

--- a/cmd-mode.el
+++ b/cmd-mode.el
@@ -16,8 +16,12 @@
 ;;                                  auto-mode-alist))
 ;;
 ;;
-;; $Id: cmd-mode.el,v 1.2 2001/08/31 13:25:50 tfuruka1 Exp $
+;; $Id: cmd-mode.el,v 1.3 2001/09/11 12:39:03 tfuruka1 Exp $
 ;; $Log: cmd-mode.el,v $
+;; Revision 1.3  2001/09/11 12:39:03  tfuruka1
+;; ●メニューをつけてみた。
+;; ●任意のラベルへジャンプする機能を追加。
+;;
 ;; Revision 1.2  2001/08/31 13:25:50  tfuruka1
 ;; ●SETの環境変数にキーワード文字列が含まれていると、色付けが変になる問題
 ;;   を修正
@@ -30,7 +34,12 @@
 
 ;; (replace-regexp "[\t ]+$" "")
 
-(defconst cmd-mode-revision-number "$Revision: 1.2 $" "cmd-modeのRevision")
+(defconst cmd-mode-revision-number "$Revision: 1.3 $" "cmd-modeのRevision")
+
+;;; *** メニューバー
+(defvar cmd-menu-bar (make-sparse-keymap "cmd-mode-menu") "メニュー")
+(defvar cmd-submenu-jump (make-sparse-keymap "cmd-mode-submenu-jump")
+  "ポップアップメニュー（ジャンプ）")
 
 ;;; *** hook
 (defvar cmd-mode-hook nil
@@ -372,6 +381,36 @@ ECHO. 
     )
   )
 
+(defun cmd-goto-label ()
+  "指定したラベルへジャンプします。
+
+ラベルはミニバッファから補完入力できます。ミニバッファには、現在のカー
+ソルの下の文字列がデフォルト表示されます。(既存のラベルの何れかに一致
+する場合)
+"
+  (interactive)
+  (let ((label-alist '())
+        (label nil))
+    (save-excursion
+      (goto-char (point-min))
+      (while (re-search-forward
+              "^[ \t]*:\\([:A-Za-z0-9_-]+\\)\\([\t ]\\|$\\)" nil t)
+        (setq label-alist (cons (list (buffer-substring (match-beginning 1)
+                                                        (match-end 1)))
+                                label-alist))))
+    (if (not label-alist)
+        (error "ラベルが見つかりません"))
+    (setq label (completing-read "Label:" label-alist nil t
+                                 (if (assoc (current-word) label-alist)
+                                     (current-word) "")))
+    (when (and label (not (string= label "")))
+      (set-mark (point))                ;マークを付ける
+      (goto-char (point-min))
+      (re-search-forward (concat "^[\t ]*:" label "\\([ \t]\\|$\\)"))
+      )
+    )
+  )
+
 (defun cmd-mode ()
   "MS-DOSのバッチファイルやWindows NT のコマンドスクリプトファイルを編
 集する為のへなちゃこもーどです。
@@ -382,6 +421,9 @@ ECHO. 
 ●コマンドのヘルプを表示する。
   \\[cmd-help]
 
+●指定したラベルへジャンプ
+  \\[cmd-goto-label]
+
 ●現在のカーソル位置を画面の中央に配置し、行末の余分な空白文字を削除
   する。
   \\[cmd-recenter]
@@ -404,12 +446,30 @@ ECHO. 
   (setq cmd-local-map (make-keymap))
   ;; キーの割り当て
   (define-key cmd-local-map "\C-c\C-c" 'cmd-exec)
+  (define-key cmd-local-map "\C-cg" 'cmd-goto-label)
   (define-key cmd-local-map "\C-ch" 'cmd-help)
   (define-key cmd-local-map "\C-l" 'cmd-recenter)
   (define-key cmd-local-map "\eq" 'cmd-fill-paragraph)
   (define-key cmd-local-map "\e\C-a" 'cmd-prev-label)
   (define-key cmd-local-map "\e\C-e" 'cmd-next-label)
 
+  ;; メニューバーの作成
+  (define-key cmd-submenu-jump [sub-goto-label]
+    '("任意のラベル..." . cmd-goto-label))
+  (define-key cmd-submenu-jump [sub-next-label]
+    '("次のラベル" . cmd-next-label))
+  (define-key cmd-submenu-jump [sub-prev-label]
+    '("前のラベル" . cmd-prev-label))
+
+  (define-key cmd-local-map [menu-bar cmd] (cons mode-name cmd-menu-bar))
+  (define-key cmd-menu-bar [submenu-jump] (cons "ジャンプ" cmd-submenu-jump))
+  (define-key cmd-menu-bar [sep-1] '("--"))
+  (define-key cmd-menu-bar [help] '("ヘルプ..." . cmd-help))
+  (define-key cmd-menu-bar [sep-2] '("--"))
+  (define-key cmd-menu-bar [recenter] '("行末の空白文字削除" . cmd-recenter))
+  (define-key cmd-menu-bar [fill] '("コメントの行詰め" . cmd-fill-paragraph))
+  (define-key cmd-menu-bar [exec] '("実行" . cmd-exec))
+
   (use-local-map cmd-local-map)         ; ローカルマップの使用宣言
 
   ;; font-lockの設定