;;; -*- Mode: Lisp; Package: editor -*-

;;; etc.l --- その他 拡張 Lisp 設定
;;
;; Created: [2006/05/28]
;; Last updated: [2009/02/07]

;;; Commentary:
;;
;; 環境依存設定
;;   cFTP
;;   command-launcher.l
;;   Cygterm
;;   html+-mode.l
;;   migemo.l
;;   my-bookmark.l
;;   perl-misc

;;; Change Log:

;;; Code:

(provide "etc")
(in-package "editor")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ahk-mode.l

(autoload 'ahk-mode "ahk-mode" t)
(push '("\\.ahk$" . ahk-mode) *auto-mode-alist*)
(push '("autohotkey\\.ini$" . ahk-mode) *auto-mode-alist*)
(setf
 *ahk-syntax-directory* "C:/myroot/bin/AutoHotkey/Extras/Editors/Syntax"
 *ahk-html-help-path* "C:/myroot/bin/AutoHotkey/AutoHotkey.chm"
 )
(add-hook '*ahk-mode-hook*
          #'(lambda ()
                (define-key *ahk-mode-map* '(#\C-c #\x) 'ahk-execute-this-script)
                )
          )

;;; ahk-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; apache-mode.l

(autoload 'user::apache-mode "apache-mode" t)

(setf *auto-mode-alist*
      (append '(
                ("\\.htaccess$" . user::apache-mode)
                ("httpd\\.conf$" . user::apache-mode)
                )
              *auto-mode-alist*
              )
      )

(add-hook '*apache-mode-hook*
          #'(lambda ()
                ;; Apache
                *my-apache-path* "C:/Program Files/Apache Software Foundation/Apache2.2/bin/httpd.exe"
                ;; Apache Stop
                (define-key *apache-mode-map* '(#\C-c #\C-a #\q) 'my-apache-stop)
                ;; Apache Retart
                (define-key *apache-mode-map* '(#\C-c #\C-a #\r) 'my-apache-restart)
                ;; Apache Start
                (define-key *apache-mode-map* '(#\C-c #\C-a #\s) 'my-apache-start)
                )
          )

;;; apache-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; auto-space.l

(export '(auto-space-mode) "editor")
(autoload 'auto-space-mode "auto-space" t)

;;; auto-space.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; auto-time-stamp.l

(require "auto-time-stamp")

;; タイムスタンプ処理をして保存
(global-set-key '(#\C-x #\s) 'save-buffer-with-time-stamp)

(setf
 ;; タイムスタンプ直前にマッチさせる正規表現
 *time-stamp-start* "Last updated:[ \t]+[\[]"
 ;; タイムスタンプ終了文字正規表現
 *time-stamp-end* "[\]]"
 ;; タイムスタンプ書式
 *time-stamp-format* "%Y/%m/%d"
 ;; タイムスタンプが有効な行数
 *time-stamp-line-limit* 10
 )

;;; auto-time-stamp.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; bash-mode.l

(export '(bash-mode) "editor")
(autoload 'bash-mode "bash-mode" t)

(pushnew '("\\.c?sh$" . bash-mode) *auto-mode-alist* :test 'equal)

;;; bash-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; bat-mode.l

(export '(bat-mode) "editor")
(autoload 'bat-mode "bat-mode" t)
(pushnew '("\\.bat$" . bat-mode) *auto-mode-alist* :test 'equal)

;;; bat-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; box-mode.l

(export '(box-mode) "editor")
(autoload 'box-mode "box-mode" t)

;;; box-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; browserex.l

(require "browserex")

;;; browserex.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; buf2html.l

(export '(buf2html buf2html-with-number) "editor")
(autoload 'buf2html "buf2html" t)
(autoload 'buf2html-with-number "buf2html" t)

(setf
 ;; タグを小文字にする
 *buf2html-lower-case* t
 ;; HTML 文書に含める xyzzy 用のモード指定
 *buf2html-auto-mode-parameter-string* "Mode: HTML+"
 ;; モード指定 function
 *buf2html-mode-function* 'html+-mode
 ;; HTML 文書に含める日付書式
 *buf2html-date-format* "%Y/%m/%d"
 ;; paren 効果無効化
 *buf2html-ignore-paren-highlight* t
 )

;;; buf2html.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; cal.l

(export '(cal cal-mode) "editor")
(autoload 'cal "cal" t)
(autoload 'cal-mode "cal" t)

;;; cal.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; CalMemo

(autoload 'user::calmemo "calmemo/calmemo" t)

;;; CalMemo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; cFTP

(export '(cftp) "editor")
(autoload 'cftp "cftp" t)
(add-hook '*cftp-mode-hook*
          #'(lambda ()
                (setf user::*ftp-passive-mode* t
                      *cftp-tmp-file-delete-p* t
                      *cftp-default-directory* "C:/myroot/etc/www"
                      )
                (define-key *cftp-mode-map* #\F2 'move-previous-window)
                (define-key *cftp-mode-map* #\F3 'other-window)
                )
          )

;;; cFTP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; clickable-uri.l

(require "clickable-uri")

(setf
 ;; URI 強調表示属性
 *clickable-uri-keyword-color* '(:color 3)
 ;; 選択 URI 強調表示属性
 *clickable-uri-open-attribute* '(:color 3 :bold t :underline t)
 ;; URI 構成文字列
 *clickable-uri-chars* "-a-zA-Z0-9_/~.@?&=;+$!*:#%|"
 )

;; 強調表示 設定
(clickable-uri-set-regexp)

;;====================================
;; URI Open 実行 Command

;; その他 C:/Program Files/Internet Explorer/iexplore.exe
(push '("^https?:" . "C:/myroot/bin/FirefoxPortable/FirefoxPortable.exe")
      *clickable-uri-open-command-alist*
      )

;; URI Open 実行 Command
;;====================================

;; URI Open Keymap
(global-set-key '(#\C-c #\C-o) 'clickable-uri-open)

;;; clickable-uri.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; coldfusion-mode.l

(export '(coldfusion-mode) "editor")
(autoload 'coldfusion-mode "coldfusion-mode" t)

(pushnew '("\\.cfm$" . coldfusion-mode) *auto-mode-alist* :test 'equal)

;;; coldfusion-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; command-launcher.l

(require "command-launcher")

(setf *command-launcher-application-list*
      '(
        ;; URL
        (
         "\\(html?\\|h?ttps?\\)"

         ;; Firefox
         ("Firefox" "C:/myroot/bin/FirefoxPortable/FirefoxPortable.exe ~A")
         ;; Internet Explorer
         ("IE" "C:/Program Files/Internet Explorer/IEXPLORE.EXE ~A")
         )

        ;; その他
        (
         t

         ;; .Line
         (".Line" #'(lambda () (if (file-exist-p "C:/myroot/bin/.Line/DtLine.exe")
                                       (call-process "C:/myroot/bin/.Line/DtLine.exe")
                                   (message "みっかんね")
                                   )
                        )
          )
         ;; あふ
         ("afx" "C:/myroot/bin/あふ/AFXCMD.EXE -L\"~A\"")
         ;; Command Prompt
         ("cmd" run-console)
         ;; Excel
         ("Excel" #'(lambda () (if (file-exist-p "C:\myroot\etc\Excel\2003Template.xlt")
                                       (call-process "C:\myroot\etc\Excel\2003Template.xlt")
                                   (message "みっかんね")
                                   )
                        )
          )
         ;; Firefox
         ("Firefox" #'(lambda () (if (file-exist-p "C:/myroot/bin/FirefoxPortable/FirefoxPortable.exe")
                                         (call-process "C:/myroot/bin/FirefoxPortable/FirefoxPortable.exe")
                                     (message "みっかんね")
                                     )
                          )
          )
         ;; Flexible Renemer
         ("Flexible Renamer" "C:/myroot/bin/Flexible Renamer/Flexible Renamer.exe ~A")
         ;; Internet Explorer
         ("IE" #'(lambda () (if (file-exist-p "C:/Program Files/Internet Explorer/IEXPLORE.EXE")
                                    (call-process "C:/Program Files/Internet Explorer/IEXPLORE.EXE")
                                (message "みっかんね")
                                )
                     )
          )
         ;; WinShot
         ("WinShot" #'(lambda () (if (file-exist-p "C:/myroot/bin/WinShot/WinShot.exe")
                                         (call-process "C:/myroot/bin/WinShot/WinShot.exe")
                                     (message "みっかんね")
                                     )
                          )
          )
         )
        )
      )

;;; command-launcher.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; comment.l

(autoload 'user::comment-out-region "comment" t nil)

(global-set-key '(#\C-c #\q) 'user::comment-out-region)

(add-hook 'user::*comment-after-load-hook*
          #'(lambda ()
                (setf user::comment-mode-alist '(
                                                 (t #\# 1 " ")
                                                 (basic-mode "' ")
                                                 (c-mode " * " "/* " "\n */")
                                                 (c++-mode "// ")
                                                 (crs-mode " * " "/* " "\n */")
                                                 (csharp-mode "// ")
                                                 (css-mode " * " "/* " "\n */")
                                                 (java-mode "// ")
                                                 (jscript-mode "// ")
                                                 (html-mode nil "<!--\n" "\n-->")
                                                 (html+-mode nil "<!--\n" "\n-->")
                                                 (idl-mode "// ")
                                                 (LaTeX-mode #\% 1 " ")
                                                 (lisp-interaction-mode #\; 3 " ")
                                                 (lisp-mode #\; 3 " ")
                                                 (pascal-mode " * " "(* " "\n *)")
                                                 (perl-mode #\# 1 " ")
                                                 (php-mode "// ")
                                                 (ruby-mode #\# 1 " ")
                                                 (sql-mode "-- ")
                                                 (sql-my "-- ")
                                                 (sql-ora "-- ")
                                                 (text-mode #\# 1 " ")
                                                 (ttl-mode ";")
                                                 )
                      )
                )
          )

;;; comment.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; compare-utility.l

(export '(compare-directory) "editor")
(autoload 'compare-directory "compare-utility" t)

;;; compare-utility.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; complete+.l

(require "complete+")

(dolist (
         list-keymap
         (list minibuffer-local-completion-map
               minibuffer-local-must-match-map
               )
         )
    ;; 次の候補
    (define-key list-keymap '#\C-n #'complete+::complete+-select-next-item)
    ;; 前の候補
    (define-key list-keymap '#\C-p #'complete+::complete+-select-prev-item)
    )

(setf
 ;; AND 検索
 complete+::*complete+-and-search* ";"
 ;; ドライブを表示
 complete+::*complete+-show-drive* t
 ;; *Completion* バッファ
 complete+::*complete+-current-item-attribute* '(:foreground 1)
 ;; ハイライト
 complete+::*complete+-highlight-color* '(:foreground 2)
 ;; 正規表現色付けリスト
 complete+::*regexp-colorize-keyword-list* (compile-regexp-keyword-list
                                            '(
                                              ;; ディレクトリ
                                              ("[^ \n]+/\\([ \n]\\|\\'\\)" nil (:color 3 0))
                                              )
                                            )
 )

;;; complete+.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; crs-mode.l

(export '(crs-mode) "editor")
(autoload 'crs-mode "crs-mode" t)

(pushnew '("\\.crs$" . crs-mode) *auto-mode-alist* :test 'equal)

(setf
 ;; Indent を Tab に
 *crs-indent-tabs-mode* t
 ;; Comment Indent
 crs-comment-indent 4
 )

(add-hook '*crs-mode-hook*
          #'(lambda ()
                (define-key *crs-mode-map* #\TAB 'self-insert-command)
                )
          )

;;; crs-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; csv-mode.l

(export '(csv-mode tsv-mode) "editor")

(autoload 'csv-mode "csv-mode" t)
(autoload 'tsv-mode "csv-mode" t)

(pushnew '("\\.csv$" . csv-mode) *auto-mode-alist* :test 'equal)
(pushnew '("\\.tsv$" . tsv-mode) *auto-mode-alist* :test 'equal)

(add-hook '*csv-mode-hook*
          #'(lambda ()
                ;; ウィンドウフラグ表示
                (set-local-window-flags (selected-buffer)
                                        ;; 水平スクロールバー
                                        *window-flag-hscroll-bar*
                                        t
                                        )

                ;;====================================
                ;; Keymap

                ;; 前の列に移動 (S-Tab)
                (define-key *csv-mode-map* #\F13 'csv-backward-column)
                ;; 列を維持したまま次の行に移動
                (define-key *csv-mode-map* '(#\C-c #\n) 'csv-next-line-keep-column)
                ;; 列を維持したまま前の行に移動
                (define-key *csv-mode-map* '(#\C-c #\p) 'csv-previous-line-keep-column)
                ;; 前の単語
                (define-key *csv-mode-map* #\M-b 'backward-word)
                ;; 次の単語
                (define-key *csv-mode-map* #\M-f 'forward-word)
                ;; 他ウィンドウを上にスクロール
                (define-key *csv-mode-map* #\M-n 'my-scroll-up-other-window)
                ;; 他ウィンドウを下にスクロール
                (define-key *csv-mode-map* #\M-p 'my-scroll-down-other-window)

                ;; Keymap
                ;;====================================
                )
          )

;;; csv-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; diff-detail.l

(add-hook '*diff-mode-hook*
          #'(lambda ()
                (require "diff-detail")

                (setf
                 ;; new file での diff-detail 強調表示属性
                 *diff-detail-new-file-attributes* '(:bold t :background 6 :foreground 8)
                 ;; old file での diff-detail 強調表示属性
                 *diff-detail-old-file-attributes* '(:bold t :background 6 :foreground 8)
                 ;; 作成 HTML ファイルパス
                 *diff-detail-temp-html-file* (merge-pathnames ".backup/diff-detail-temp.html"
                                                               (user-config-path)
                                                               )
                 ;; 真鵺道変換時モード
                 *diff-detail-convert-to-manued-mode* 'manued-mode
                 ;; defparentheses (開始)
                 *diff-detail-manued-l-parenthesis-str* ""
                 ;; defparentheses (終了)
                 *diff-detail-manued-r-parenthesis-str* ""
                 ;; defdelete
                 *diff-detail-manued-delete-str* ""
                 ;; defswap
                 *diff-detail-manued-swap-str* ""
                 ;; defcomment
                 *diff-detail-manued-comment-str* ""
                 ;; defescape
                 *diff-detail-manued-escape-str* ""
                 )
                )
          )

;;; diff-detail.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; diff-util.l

(export '(
          diff-buffer
          diff-make-patch
          diff-patch
          )
        "editor"
        )

(autoload 'diff-buffer "diff-util" t)
(autoload 'diff-make-patch "diff-util" t)
(autoload 'diff-mark-files "diff-util" t)
(autoload 'diff-patch "diff-util" t)

;;; diff-util.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; eb.l

(export '(ebdict-lookup-across) "editor")
(autoload 'ebdict-lookup-across "eb" t)
(global-set-key #\C-M-. 'ebdict-lookup-across)

(setf *ebdict-directories* '(
                             ;; 研究社 リーダーズ英和辞典 第 2 版
                             "C:/myroot/etc/Epwing/kenkyush/Readers"
                             ;; 研究社 新和英中辞典 第 5 版
                             "C:/myroot/etc/Epwing/KENKYUSHWAEI/WACHU5"
                             ;; 岩波書店 広辞苑第五版
                             "C:/myroot/etc/Epwing/iwanami/koujien"
                             ;; 自由国民社 現代用語の基礎知識 2006 年版
                             "C:/myroot/etc/Epwing/jiyukok/gendai06"
                             ;; 学研 四字熟語辞典、カタカナ新語辞典
                             "C:/myroot/etc/Epwing/gakken/business"
                             ;; 学研 漢字源
                             "C:/myroot/etc/Epwing/gakken/kanjigen"
                             ;; WordNet 2.0
                             "C:/myroot/etc/Epwing/WordNet"
                             )
      )


;;; eb.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ee.l

(require "ee")
(setf *ee-edict-dictionary-path* "~/etc/dic/ee")
(global-set-key '(#\C-c #\E) 'ee-lookup-e2j-dictionary-selection)

;;; ee.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; filer+migemo.l

(require "filer+migemo")

;;; filer+migemo.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ffap.l

(require "ffap")

;; キャレット位置のパスをデフォルト値として find-file
(global-set-key '(#\C-x #\C-f) 'find-file-at-point)

;; C-u      ：アクティブ側のパスを変更して開く
;; C-u C-u  ：アクティブでない側のパスを変更して開く
(global-set-key '(#\C-c #\C-f) 'open-filer-at-point)

;;; ffap.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; flex-fill3.l

(require "flex-fill3")

(setq-default *flexible-fill-regexp-list* '(("^[ \t]+" . matched-whole-region)))

;;; flex-fill3.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; frame-util.l

;;====================================
;; フレーム名を指定して移動
(autoload 'frame-util-select-pframe "frame-util" t)
(global-set-key #\F4 'frame-util-select-pframe)
;; フレーム名を指定して移動
;;====================================


;;====================================
;; フレーム削除
(autoload 'frame-util-delete-pseudo-frame "frame-util" t)
(global-set-key '(#\C-x #\M-k) 'frame-util-delete-pseudo-frame)
;; フレーム削除
;;====================================


;;====================================
;; フレームセッション保存
(autoload 'frame-util-save-session "frame-util" t)
(global-set-key '(#\C-x #\M-s) 'frame-util-save-session)
;; フレームセッション保存
;;====================================


;;====================================
;; 新規フレーム作成
(autoload 'frame-util-session-new-pframe "frame-util" t)
(global-set-key #\M-F4 'frame-util-session-new-pframe)
;; 新規フレーム作成
;;====================================


;;====================================
;; カレントフレームにフレームセッション情報をロード
(autoload 'frame-util-load-session-current-frame "frame-util" t)
(global-set-key #\C-M-F4 'frame-util-load-session-current-frame)
;; カレントフレームにフレームセッション情報をロード
;;====================================


;;====================================
;; タブ並び順で前のフレームに移動
(autoload 'frame-util-session-previous-pframe "frame-util" t)
(global-set-key #\M-F2 'frame-util-session-previous-pframe)
;; タブ並び順で前のフレームに移動
;;====================================


;;====================================
;; タブ並び順で次のフレームに移動
(autoload 'frame-util-session-next-pframe "frame-util" t)
(global-set-key #\M-F3 'frame-util-session-next-pframe)
;; タブ並び順で次のフレームに移動
;;====================================

;;; frame-util.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; hexl.l

(export '(hexl-mode) "editor")
(autoload 'hexl-mode "hexl" t)

(pushnew '("\\.exe$" . hexl-mode) *auto-mode-alist* :test 'equal)

(add-hook '*hexl-mode-hook*
          #'(lambda ()
                (make-local-variable 'regexp-keyword-list)
                (setf regexp-keyword-list (compile-regexp-keyword-list
                                           '(
                                             ("^\\w\\{8\\}:" nil 2)
                                             ("  .+$" nil :comment)
                                             )
                                           )
                      )
                )
          )

;;; hexl.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; html+-mode.l

(export 'html+-mode "editor")

(autoload 'html+-mode "html+-mode" t)

(pushnew '("\\.s?html?$" . html+-mode) *auto-mode-alist* :test 'equal)

(add-hook '*html+-mode-hook*
          #'(lambda ()
                (setf
                 ;; Apache
                 *my-apache-path* "C:/Program Files/Apache Software Foundation/Apache2.2/bin/httpd.exe"
                 ;; Another HTML-lint
                 *my-htmllint-file* "C:/myroot/etc/www/local/cgi-bin/htmllint/htmllint"
                 ;; タブ幅
                 *html+-indent-column* 4
                 ;; インデント付け対象外
                 *html+-tags-list-no-indent* '("HTML" "BODY" "PRE")
                 *html+-completion-text-list* '("&lt" "&gt" "&amp" "&quot" "&nbsp;")
                 )

                ;;====================================
                ;; Keymap
                (define-key *html+-mode-map* #\C-\, 'my-static-scroll-line-up)
                (define-key *html+-mode-map* #\C-. 'my-static-scroll-line-down)
                ;; Another HTML-lint
                (define-key *html+-mode-map* '(#\C-c #\l) 'my-htmllint-exec)
                ;; Apache Stop
                (define-key *html+-mode-map* '(#\C-c #\C-a #\q) 'my-apache-stop)
                ;; Apache Retart
                (define-key *html+-mode-map* '(#\C-c #\C-a #\r) 'my-apache-restart)
                ;; Apache Start
                (define-key *html+-mode-map* '(#\C-c #\C-a #\s) 'my-apache-start)
                (define-key *html+-mode-map* #\C-d 'delete-char-or-selection)
                (define-key *html+-mode-map* #\C-h 'delete-backward-char-or-selection)
                (define-key *html+-mode-map* #\C->  'html+-close-match-tag)
                (define-key *html+-mode-map* #\C-<  'html+-guess-tag)
                ;; Keymap
                ;;====================================
                )
          )

;;; html+-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; indent-to-token.l

(require "indent-to-token")

;; 前行のトークンまでインデント
(global-set-key #\S-F8 'indent-to-next-token)
;; 指定トークンでインデント
(global-set-key #\M-F8 'arrange-with-keep-space-existence)

;;; indent-to-token.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ini-mode.l

(export 'ini-mode "editor")

(autoload 'ini-mode "ini-mode" t)

(pushnew '("\\.ini$" . ini-mode) *auto-mode-alist* :test 'equal)

;;; ini-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; info2.l

(export '(info2 info2-mode) "editor")
(autoload 'info2 "info2" t)
(autoload 'info2-mode "info2" t)

(add-hook '*info2-mode-hook*
          #'(lambda ()
                (setf *info2-keyword-file-alist* (list (cons "~/info/language/lisp/reference/reference.info"
                                                             "~/etc/lisp"
                                                             )
                                                       (cons "~/info/language/lisp/xyzzy_lisp/xyzzy_Lisp.info"
                                                             "~/etc/lisp"
                                                             )
                                                       (cons "~/info/language/perl/Perl.info"
                                                             "~/etc/Perl"
                                                             )
                                                       (cons "~/info/language/c/C.info"
                                                             "~/etc/C"
                                                             )
                                                       (cons "~/info/software/gnu/gnu_manuals/elisp-manual/elisp"
                                                             "~/etc/lisp"
                                                             )
                                                       )
                      )
                )
          )

;;; info2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; jscript-mode.l

(export '(jscript-mode) "editor")
(autoload 'jscript-mode "jscript-mode" t)

(pushnew '("\\.js$" . jscript-mode) *auto-mode-alist* :test 'equal)

(setf
 ;; Indent を Tab に
 *jscript-indent-tabs-mode* t
 ;; Comment Indent
 jscript-comment-indent 4
 )

(add-hook '*jscript-mode-hook*
          #'(lambda ()
                (define-key *jscript-mode-map* #\TAB 'self-insert-command)
                )
          )

;;; jscript-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; manued-mode.l

(export '(manued-mode) "editor")
(autoload 'manued-mode "manued-mode" t)

(add-hook '*manued-mode-hook*
          #'(lambda ()
                (setf
                 ;; older-contents 表示属性
                 *manued-older-contents-attributes* '(:strike-out t)
                 ;; newer-contents 表示属性
                 *manued-newer-contents-attributes* '(:background 11 :bold t)
                 ;; swap-a-contents 表示属性
                 *manued-swap-a-contents-attributes* '(:foreground 1 :background 11 :bold t)
                 ;; swap-b-contents 表示属性
                 *manued-swap-b-contents-attributes* '(:background 11)
                 ;; swap-c-contents 表示属性
                 *manued-swap-c-contents-attributes* '(:foreground 3 :background 11 :bold t)
                 ;; comment-contents 表示属性
                 *manued-comment-contents-attributes* '(:foreground 2 :underline t)
                 )
                ;; l-parenthesis-str のデフォルト値
                (setq-default manued-l-parenthesis-str "")
                ;; r-parenthesis-str のデフォルト値
                (setq-default manued-r-parenthesis-str "")
                ;; delete-str のデフォルト値
                (setq-default manued-delete-str "")
                ;; swap-str のデフォルト値
                (setq-default manued-swap-str "")
                ;; comment-str のデフォルト値
                (setq-default manued-comment-str "")
                ;; escape-str のデフォルト値
                (setq-default manued-escape-str "")
                )
          )

;;; manued-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; mayu-mode.l

(autoload 'mayu-mode "mayu-mode" t)
(pushnew '("\\.mayu$" . mayu-mode) *auto-mode-alist* :test 'equal)

(add-hook '*mayu-mode-hook*
          #'(lambda ()
                (setf ed::*mayu-cond-indent* 4)
                (setf ed::*mayu-keymap-definition-indent* 4)
                (define-key *mayu-mode-map* #\TAB 'self-insert-command)
                )
          )

;;; mayu-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; migemo.l

(autoload 'migemo-toggle "migemo" t)

(setf *migemo-dll* "C:/myroot/bin/Migemo/C/migemo.dll"
      *migemo-dict-file* "C:/myroot/bin/Migemo/C/dict/migemo-dict"
      )

;; migemo Toggle
(define-key *isearch-map* #\M-t 'migemo-toggle)

;;; migemo.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; my-bookmark.l

(require "my-bookmark")

(setf
 ;; デフォルトの表示方法
 *my-bookmark-display-method* t
 ;; ブックマークファイルのリスト
 *my-bookmark-save-file-list* '(
                                ("Bookmarklist (&B)" . "~/usr/mm/wxp/.bookmark/bookmarklist")
                                ("Temp (&T)"         . "~/usr/mm/wxp/.bookmark/temp")
                                ("Work (&W)"         . "~/usr/mm/wxp/.bookmark/work")
                                )
 )

;;; my-bookmark.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; outline-tree2

;; Define Package
(eval-when (:compile-toplevel :load-toplevel :execute)
    (unless (find-package "outline-tree2")
        (defpackage "outline-tree2"
            (:use "lisp" "editor")
            )
        )
    )

;; outline-tree 起動
(autoload 'outline-tree2::outline-tree-create "outline-tree/outline-tree" t)
(global-set-key #\C-F12 'outline-tree2::outline-tree-create)

;; 設定ファイルディレクトリ
(setf outline-tree2::*outline-tree-base-directory* (concat (user-config-path)
                                                           ".outline-tree/"
                                                           )
      )

;;; outline-tree2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; outlinex.l

(autoload 'user::olx "outlinex" t)
(autoload 'user::olx-flex "outlinex" t)
(autoload 'user::olx-reload "outlinex" t)

;; モード毎の設定で実行
(global-set-key #\S-F12 'my-outlinex)

(add-hook 'user::*olx-hook*
          #'(lambda ()
                (setf
                 ;; ノード移動時の表示位置
                 user::*olx-recenter-arg* 1
                 )

                ;; ====================================
                ;; Keymap

                ;; 下の行へ移動
                (define-key user::*outlinex-mode-map* #\n 'next-virtual-line)
                ;; 同時下移動
                (define-key user::*outlinex-mode-map* #\N 'user::olx-scroll-up-both-window)
                ;; 上の行へ移動
                (define-key user::*outlinex-mode-map* #\p 'previous-virtual-line)
                ;; 同時上移動
                (define-key user::*outlinex-mode-map* #\P 'user::olx-scroll-down-both-window)
                ;; 次ページ or 1 行下へ
                (define-key user::*outlinex-mode-map* #\v 'my-next-page-or-line)
                ;; 前ページ or 1 行上へ
                (define-key user::*outlinex-mode-map* #\z 'my-previous-page-or-line)

                (undefine-key user::*outlinex-mode-map* '(#\C-c #\C-Up))
                (undefine-key user::*outlinex-mode-map* '(#\C-c #\C-Down))

                ;; Keymap
                ;; ====================================
                )
          )


(defun my-outlinex ()
    (interactive)
    ;; モード毎の既定検索パターン
    (case buffer-mode
        ('crs-mode
         (setf user::olx-pattern "^[ \t]*\\([iI]mport[ \t]\\|[fF]orm[ \t]\\|[nN]umber[ \t]\\|[rR]ecord[ \t]\\|[aA]rray[ \t]\\|[sS]tring[ \t]\\|[lL]abel[ \t]\\|[tT]ext[bB]ox[: \t]\\|[fF]unction[ \t]\\|[bB]utton[ \t]\\|FileSystem[ \t]\\)")
         )
        ('lisp-mode
         (setf user::olx-pattern "^\\(;;\\| *\"\\|(def\\)")
         )
        ('lisp-interaction-mode
         (setf user::olx-pattern "^\\(;;\\| *\"\\|(def\\)")
         )
        ('html+-mode-mode
         (setf user::olx-pattern "\\(<title\\|<h[0-4]\\)\\(>\\| +.*?>\\)")
         )
        ('perl-mode
         (setf user::olx-pattern "^[ \t]*\\(#\\|my\\|sub\\)")
         )
        ('sql-ora
         (setf user::olx-pattern "^[ \t]*\\(/*\\*\\|--\\)")
         )
        (t
         ;; 検索パターン既定値
         (setf user::olx-pattern "^[ \t]*\\(*.+\\|★.+\\|☆.+\\|■.+\\|□.+\\|◆.+\\|◇.+\\|●.+\\|○.+\\)")
         )
        )

    (if (and (find-buffer " *olx*")
             (not *prefix-args*)
             )
            ;; バッファが既にあれば表示
            (pop-to-buffer " *olx*" t)
        (user::olx-flex)
        )
    )

;;; outlinex.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; paren.l

(require "paren")

(setq-default *paren-highlight-only-paren* t)
(setq-default *paren-paren-attribute* '(:bold t :background 4))
(setq-default *paren-invalid-attribute* '(:bold t :background 2))

;; diff-mode では Off に
(add-hook '*diff-mode-hook* 'turn-off-paren)

(turn-on-global-paren)

;;; paren.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; perl-misc

(add-hook '*perl-mode-hook*
          #'(lambda ()
                (require "perl-misc")
                (setf *perl-install-directory* "C:/myroot/bin/ActivePerl")
                (define-key *perl-mode-map* #\S-F1 'my-view-info-reference)
                (define-key *perl-mode-map* #\F1 'my-help-modifier)
                (define-key *perl-mode-map* '(#\C-c #\F1) 'perl-info-F1)
                )
          )

;;; perl-misc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; php-mode.l

(export 'php-mode "editor")

(autoload 'php-mode "php-mode" t)
(pushnew '("\\.php$" . php-mode) *auto-mode-alist* :test 'equal)

;;; php-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; pickup-pattern.l

(require "pickup-pattern")

(global-set-key '(#\C-c #\p #\s) 'pickup-pattern-set-input)
(global-set-key '(#\C-c #\p #\C-s) 'pickup-pattern-set-input-detail)
(global-set-key '(#\C-c #\p #\r) 'pickup-pattern-refresh-select)
(global-set-key '(#\C-c #\p #\C-r) 'pickup-pattern-refresh-all)
(global-set-key '(#\C-c #\p #\u) 'pickup-pattern-unset-select)
(global-set-key '(#\C-c #\p #\C-u) 'pickup-pattern-unset-all)
(global-set-key '(#\C-c #\p #\d) 'pickup-pattern-delete-select)
(global-set-key '(#\C-c #\p #\C-d) 'pickup-pattern-delete-all)
(global-set-key '(#\C-c #\p #\l) 'pickup-pattern-list-show)
(global-set-key '(#\C-c #\p #\n) 're-search-forward-pickup)
(global-set-key '(#\C-c #\p #\p) 're-search-backward-pickup)

;;; pickup-pattern.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; rss

(defpackage "rss"
    (:use "lisp" "editor")
    )

(autoload 'user::rss "rss/main" t)

(setf
 ;; バッファ名先頭プレフィクス
 rss::*rss-buffer-prefix* " *RSS "
 ;; データ保存ディレクトリ
 rss::*rss-directory* (merge-pathnames ".rss" (user-config-path))
 )

;;; rss
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; sfiler.l

(require "sfiler")
(global-set-key #\M-F12 'listview::sfiler-toggle-switch)
(add-hook '*kill-xyzzy-hook*
          #'(lambda ()
                (if listview::*sfiler-handle*
                        (listview::sfiler-close)
                    )
                )
          )

;;; sfiler.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; shell3.l

(add-hook '*shell-mode-hook*
          #'(lambda ()
                (require "shell3")
                ;; 折り返さない
                (set-buffer-fold-width nil)
                ;; 表示ウィンドウフラグ
                (set-local-window-flags (selected-buffer)
                                        ;; 水平スクロールバー
                                        *window-flag-hscroll-bar*
                                        t
                                        )

                ;;====================================
                ;; Keymap
                (define-key *shell-mode-map* #\F13 'shell-history-search-backward)
                (define-key *shell-mode-map* #\C-a 'beginning-of-line)
                (define-key *shell-mode-map* #\M-a 'shell-goto-bol)
                (define-key *shell-mode-map* #\C-n 'next-virtual-line)
                (define-key *shell-mode-map* #\C-M-n 'shell-history-next)
                (define-key *shell-mode-map* #\C-p 'previous-virtual-line)
                (define-key *shell-mode-map* #\C-M-p 'shell-history-previous)
                (define-key *shell-mode-map* #\C-r 'isearch-backward)
                ;; Keymap
                ;;====================================
                )
          )

;;; shell3.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; skk

(eval-when (:compile-toplevel :load-toplevel :execute)
    (require "skk/autoloads")
    )

(setf skk::*skk-init-file* (merge-pathnames ".skk"
                                            (concat (user-config-path) ".skk")
                                            )
      )

(global-set-key #\C-/ 'skk::skk-mode)
(global-set-key '(#\C-x #\C-j) 'skk::skk-mode)

;;; skk
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; sql-my.l

(export '(sql-my) "editor")

(autoload 'sql-my "sql-my" t)

;;; ;; 関連付け
;;; (pushnew '("\\.sql$" . sql-my) *auto-mode-alist* :test 'equal)
;;; ;; Procedure
;;; (pushnew '("\\.prc$" . sql-my) *auto-mode-alist* :test 'equal)
;;; ;; Table
;;; (pushnew '("\\.tab$" . sql-my) *auto-mode-alist* :test 'equal)

;;; sql-my.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; sql-ora.l

(export '(sql-ora sqlplus) "editor")

(autoload 'sql-ora "sql-ora" t)
(autoload 'sqlplus "sql-ora" t)

(setf
 ;; User List
 *sqlplus-user-list* '(
                       "mm"
                       )
 ;;Net Service List
 *sqlplus-netservice-list* '(
                             "xe"
                             )
 )

;;; ;; 関連付け
;;; (pushnew '("\\.sql$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; 制御ファイル
;;; (pushnew '("\\.ctl$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; Package
;;; (pushnew '("\\.bdy$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; Header
;;; (pushnew '("\\.hdr$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; Function
;;; (pushnew '("\\.fnc$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; Procedure
;;; (pushnew '("\\.prc$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; Package
;;; (pushnew '("\\.spc$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; Table
;;; (pushnew '("\\.tab$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; View
;;; (pushnew '("\\.vw$" . sql-ora) *auto-mode-alist* :test 'equal)
;;; ;; Trigger
;;; (pushnew '("\\.trg$" . sql-ora) *auto-mode-alist* :test 'equal)

;;; sql-ora.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; sudoku.l

(autoload 'user::sudoku "sudoku" t)

;;; sudoku.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; template-insert

(require "template-insert")

;; Template 保存ディレクトリ
(setf ti::*template-insert-directory* (merge-pathnames ".templates"
                                                       (user-config-path)
                                                       )
      )

;; キーワード
(push (cons "@CREATEDATE@"
            #'(lambda ()
                  (format-date-string "%Y/%m/%d")
                  )
            )
      ti::*template-insert-variables-alist*
      )

;; CSS
(push (cons 'css-mode
            ;; UTF-8 & LF に設定
            #'(lambda ()
                  (set-buffer-fileio-encoding *encoding-utf8n*)
                  (set-buffer-eol-code *eol-lf*)
                  (ti::insert-template-type '("*.css"))
                  )
            )
      ti::*template-insert-alist*
      )
;; HTML
(push (cons 'html+-mode
            ;; ".html" だけ UTF-8 & LF に設定
            #'(lambda ()
                  (set-buffer-fileio-encoding *encoding-utf8n*)
                  (set-buffer-eol-code *eol-lf*)
                  (ti::insert-template-type '("*.html"))
                  )
            )
      ti::*template-insert-alist*
      )

;;; template-insert
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; tetris.l

(export '(tetris) "editor")
(autoload 'tetris "tetris" t)

(add-hook '*tetris-mode-hook*
          #'(lambda ()
                (define-key *tetris-mode-map* #\f    'tetris-turn-block)
                (define-key *tetris-mode-map* #\Down 'tetris-fall-block)
                (define-key *tetris-mode-map* #\d    'tetris-unturn-block)
                )
          )

;;; tetris.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; texinfo-mode.l

(export 'texinfo-mode "editor")
(autoload 'texinfo-mode "texinfo-mode" t)
(pushnew '("\\.texinfo$" . texinfo-mode) *auto-mode-alist* :test 'equal)
(pushnew '("\\.texi$"    . texinfo-mode) *auto-mode-alist* :test 'equal)
(pushnew '("\\.txi$"     . texinfo-mode) *auto-mode-alist* :test 'equal)
(add-hook '*texinfo-mode-hook*
          #'(lambda ()
                (setf *texinfo-makeinfo-html-option* "--html --css-include=../default.css"
                      *texinfo-dvi-view-command* "C:/myroot/bin/dviout/dviout.exe -1"
                      *texinfo-info-view-command* 2
                      )
                )
          )

;;; texinfo-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; tterm.l

(eval-when (:compile-toplevel :load-toplevel :execute)
    (unless (find-package "tterm")
        (defpackage "tterm"
            (:use "lisp" "editor")
            )
        )
    )

(export '(
          tterm
          *tterm-input-encoding*
          *tterm-output-encoding*
          )
        "editor"
        )
(autoload 'tterm "tterm" t)

(setf
 ;; Input encoding: See *tterm-encoding-list*
 *tterm-input-encoding* "sjis-with-esc"
 ;; Output encoding
 *tterm-output-encoding* *encoding-sjis*
 )

;; Cygterm
(export '(cygterm) "editor")
(autoload 'cygterm "cygterm" t)

(setf *cygterm-exe* "C:/myroot/bin/Cygwin/usr/local/bin/CygTerm/cygterm.exe")

;;; tterm.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ttl-mode.l

(export 'ttl-mode)
(autoload 'ttl-mode "ttl-mode" t)

(pushnew '("\\.ttl$" . ttl-mode) *auto-mode-alist* :test 'equal)

(add-hook '*ttl-mode-hook*
          #'(lambda ()
                (setf
                 *ttl-path* "C:/myroot/bin/teraterm/"
                 *html-help-path* (merge-pathnames "teratermj.chm" *ttl-path*)
                 )
                (define-key *ttl-mode-map* #\F1 'my-help-modifier)
                (define-key *ttl-mode-map* #\S-F1 'show-html-help)
                (define-key *ttl-mode-map* #\F13 'ttl-completion)
                (define-key *ttl-mode-map* #\C-. 'my-static-scroll-line-down)
                )
          )

;;; ttl-mode.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; uniquify.l

(eval-when (:compile-toplevel :load-toplevel :execute)
    (require "elisp")
    )

(require "uniquify")
(setf elisp::uniquify-buffer-name-style 'elisp::forward)

;;; uniquify.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; www-mode

;; Define Package
(eval-when (:compile-toplevel :load-toplevel :execute)
    (unless (find-package "www")
        (defpackage "www"
            (:use "lisp" "editor")
            )
        )
    )

(autoload 'user::www "www/www" t)

(setf
 ;; コンフィグファイルパス
 www::*www-config-file* (merge-pathnames ".www" (user-config-path))
 ;; バッファタブ名プレフィクス
 www::*www-buffer-name-prefix* " *WWW "
 )

;;; www-mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; xdoc2txt.l

(require "xdoc2txt")
(setf *xdoc2txt-command* (concat (si:system-root)
                                 "etc/xdoc2txt.exe"
                                 )
      *xdoc2txt-options* "-n"
      *xdoc2txt-suffix* '(
                          "rtf"
                          "doc"
                          "docx"
                          "xls"
                          "xlsx"
                          "ppt"
                          "pptx"
                          "j[at]w"
                          "j[bu]w"
                          "j[fv]w"
                          "jt[dt]"
                          "oa[s23]"
                          "bun"
                          "wj[23]"
                          "wk[34]"
                          "123"
                          "wri"
                          "pdf"
                          )
      )

;;; xdoc2txt.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; xml-mode

(eval-when (:compile-toplevel :load-toplevel :execute)
    (unless (find-package "xml")
        (defpackage "xml"
            (:use "lisp" "editor")
            )
        )
    )

(export '(xml-mode) "editor")

(autoload 'xml::xml-mode "xml/xml-mode" t)

;; 関連付け
(pushnew '("\\.svg$" . xml::xml-mode) *auto-mode-alist* :test 'equal)

(add-hook 'xml::*xml-mode-hook*
          #'(lambda ()
                (require "xml/svg")
                ;; インデント桁数
                (setf xml::*xml-indent-column* 4)
                ;; キーバインド
                (define-key xml::*xml-mode-map* #\TAB 'self-insert-command)
                (define-key xml::*xml-mode-map* #\C-. 'my-static-scroll-line-down)
                (define-key xml::*xml-mode-map* #\C-\, 'my-static-scroll-line-up)
                )
          )

;;; xml-mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; etc.l ends here