Meadow で使っている elisp

　私はMS::windows プログラマーなんで、下のlispたちがないと生きていけません。
これらのほとんどは ELL で見つけました。 皆様の参考になれば幸いです。

• SQL (sql-mode,sqlpls-mode)
• HTML (html-helper-mode,css-mode)
• Visual Basic (visual-basic-mode,vbp-mode)
• Visual Source Safe (vss-mode)
• Java (JDE)
• C/C++ (cc-mode)
• Simple small speedy smart DICtionary (sdic)
• COBOL (cobol)
• INI file (generic)
• その他

SQL (sql-mode,sqlpls-mode)

概要

設定

(autoload 'sql-mode "sql-mode" "SQL Edit mode" t)
(autoload 'plsql-mode "plsql-mode" "SQL Edit mode" t)
(autoload 'sqlplus "sql-mode" "emacs sqlplus interface" t)
(setq auto-mode-alist
	  (append '(("\\.[Ss][Qq][Ll]$" . sql-mode)
				("\\.[Tt][Bb][Ll]$" . sql-mode) )
			  auto-mode-alist))
(add-hook 'sql-mode-hook
	  '(lambda ()
	     (load "plsql-mode")
		 (setq sql-font-lock-keywords plsql-font-lock-keywords)
		 (font-lock-mode t)
        ))
(add-hook 'sqlplus-mode-hook
	  '(lambda ()
	     (load "plsql-mode")
		 (setq sql-font-lock-keywords plsql-font-lock-keywords)
		 (font-lock-mode t)
        ))

所在

HTML (html-helper-mode,css-mode,css)

概要

設定

;; Html Helper Mode
(setq html-helper-basic-offset 4)
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist 
    (append '(
            ("\\.[Hh][Tt][Mm][Ll]?$" . html-helper-mode)  ;;HTML Document
            ("\\.[Aa][Ss][Pp]$"      . html-helper-mode)  ;;Active Server Page
     ) auto-mode-alist))
(add-hook 'html-helper-mode-hook
	  '(lambda ()
	     (make-local-variable 'outline-minor-mode-prefix)
	     (setq outline-minor-mode-prefix "\C-o")
	     (make-local-variable 'outline-regexp)
	     (setq outline-regexp "")
	     (outline-minor-mode t)))
(add-hook 'html-helper-load-hook
    (function (lambda () (load "css")))) ;;;add css editing menu

;; CSS mode
(autoload 'css-mode "css-mode" "CSS Editing Mode" t)
(setq auto-mode-alist
     (append '(
			   ("\\.[Cc][Ss][Ss]$" . css-mode)
			   ) auto-mode-alist))

所在

Visual Basic (visual-basic-mode,vbp-mode)

概要

設定

;; VB Mode
(setq visual-basic-ide-pathname "H:/VS98/VB98/VB6.EXE")
(setq vbp-ide-pathname "H:/VS98/VB98/VB6.EXE")
(setq visual-basic-mode-indent 4)
(autoload 'visual-basic-mode "visual-basic-mode" "Basic Editing Mode" t)
(setq auto-mode-alist 
    (append '(
            ("\\.[Ff][Rr][Mm]$" . visual-basic-mode)  ;;Form Module
            ("\\.[Bb][Aa][Ss]$" . visual-basic-mode)  ;;Bas Module
			("\\.[Cc][Ll][Ss]$" . visual-basic-mode)  ;;Class Module
			("\\.[Vv][Bb][Ss]$" . visual-basic-mode)  ;;VBScript file
     ) auto-mode-alist))
(autoload 'vbp-mode "vbp-mode" "VBP mode." t)
(setq auto-mode-alist 
    (append '(
            ("\\.[Vv][Bb][Pp]$" . vbp-mode) 
            ("\\.[Vv][Bb][Gg]$" . vbp-mode)
     ) auto-mode-alist))

所在

Visual Source Safe (vss-mode)

概要

設定

(load "source-safe-menu")
(setq ss-project-dirs '(
						("^K:\\\\VSSRoot\\\\" . "$/")
						))
(setq ss-tmp-dir "d:/tmp")

所在

Java (JDE) 2.2.5

概要

設定

所在

C/C++ (cc-mode) 5.25

概要

設定

(fmakunbound 'c-mode)
(makunbound  'c-mode-map)
(fmakunbound 'c++-mode)
(makunbound  'c++-mode-map)
(makunbound  'c-style-alist)
(setq auto-mode-alist
  (append
    '(("\\.[Cc]$"    . c++-mode)
      ("\\.[Hh]$"    . c++-mode)
      ("\\.[Ii][Nn][Ll]$"    . c++-mode)
      ("\\.[Cc][Cc]$"   . c++-mode)
      ("\\.hh$"   . c++-mode)
      ("\\.[Cc][Pp][Pp]$"   . c++-mode)
      ("\\.m$"    . objc-mode)
      ("\\.[Jj][Aa][Vv][Aa]$" . java-mode)
     ) auto-mode-alist))
(autoload 'c++-mode  "cc-mode" "C++ Editing Mode" t)
(autoload 'c-mode    "cc-mode" "C Editing Mode" t)
(autoload 'objc-mode "cc-mode" "Objective-C Editing Mode" t)
(autoload 'java-mode "cc-mode" "Java Editing Mode" t)
(add-hook 'c-mode-common-hook
      (function (lambda ()
              (c-set-style "bsd")
              )))
(add-hook 'c-mode-hook
      (function (lambda ()
              (c-set-offset 'topmost-intro-cont 4)))) 
(add-hook 'java-mode-hook
      (function (lambda ()
              (c-set-offset 'access-label 0)))) 

所在

Simple small speedy smart DICtianry(sdic)

概要

導入

設定

所在

COBOL (cobol)

概要

設定

所在

罫線モード (keisen-mule,keisen-mouse)

概要

設定

所在

INI file (generic-mode)

概要

設定

所在

その他

以下の物はhttp://www.anc.ed.ac.uk/~stephen/emacs/ell.htmlで見つけました。

Incremental Search HighLight mode (ishl)

Change mode(change-mode)

Rectangle Mark (rect-mark)

calculater

WithOut MAN(woman)

HighLight Line (hl-line)

REDO (redo)

(global-set-key (quote [67108927]) (quote redo))

Info Bookmark(infobook)

pc-bufsw

(require 'pc-bufsw)
(pc-bufsw::bind-keys (quote [C-tab]) (quote [C-S-tab]))

編集が便利になる設定

(line-number-mode 1)    ;;;modelineに現在の行位置を表示
(column-number-mode 1)  ;;;modelineに現在の桁位置を表示
(display-time)          ;;;modelineに現在の時刻を表示
(setq transient-mark-mode   t) ;;;regionをhilight
(show-paren-mode 1)            ;;; 対応する括弧をHilight

;;;; windows like key bind  ;;;;;;
(global-set-key [delete] 'delete-char)
(global-set-key [end]    'end-of-line)
(global-set-key [home]   'beginning-of-line)
(load "pc-select")
(pc-selection-mode)      ;;Shift keyを押しながらregionの選択を可能に

;;; for abbrev
(load "abbrev")
(provide 'abbrev)
(setq save-abbrevs t)
(quietly-read-abbrev-file)
(global-set-key "\C-x'" 'just-one-space)
(global-set-key "\M- " 'expand-abbrev)  ;;; Alt-spaceでキーワード展開