;;clipboad と kill リング を ちらっと見る

(defun view-clipboard-mini ()
  (interactive)
  (popup-string (concat "view clipboard:\n"(get-clipboard-data)) (point)))

(defun view-board-mini ()
  (interactive)
  (popup-string (concat "view [ clipboard ]:\n" (get-clipboard-data) "\n[ kill-ring ]:\n" (nth 0 (nth (1- (length *kill-ring*)) *kill-ring*))) (point)))


;;リージョン範囲をハイライト
;;しょぼしょぼすくりぷと xyzzy編
;;http://www2.ocn.ne.jp/~cheerful/script/xyzzy/mode/regionhilight.html

(load-library "region-hilight.l")



;;ini-mode

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


;;bat-mode

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


;;awk-mode
; ライブラリの読み込み
(load-library "awk-mode")

; Mode定義 - 拡張子に応じた自動モードセットの追加
(push '("\\.awk$" . awk-mode) *auto-mode-alist*)


;;statusバーにカーソル位置の文字コードを表示する
;;(setq *status-bar-format* "%t%c%u")


;;変更された行の行番号に色を付けます
;------------------------------
; 編集された行にマークを付ける
;------------------------------

; text-attribute のセット。色等は適当に。
(defun set-modified-line-mark (pos line)
  (let ((prefix (code-char (+ (rem line 10) (char-code #\0)))))
    (set-text-attribute pos pos 'modified-line
			:foreground 0 :background 2
			:prefix prefix :extend t)))
; フック関数。
(defun buffer-modified-hook (buffer operation from to undo-p)
  (let ((pos from))
    (save-excursion
      (goto-char pos)
      (while (<= pos to)
	(progn
	  (goto-bol)
	  (set-modified-line-mark (point) (current-line-number))
	  (if (not (next-line))
	      (return))
	  (setq pos (point))
	  )))))

; フックの登録。
(add-hook 'post-buffer-modified-hook 'buffer-modified-hook)

; 編集行を前方に検索する。
(defun search-modified-line-forward ()
  (interactive)
  (goto-char (or (find-text-attribute
		  'modified-line
		  :start (+ 1 (save-excursion (goto-eol) (point))))
		 (plain-error "編集された行はありません"))))

; 編集行を後方に検索する。
(defun search-modified-line-backward ()
  (interactive)
  (goto-char (or (find-text-attribute
		  'modified-line
		  :end (- (save-excursion (goto-bol) (point)) 1)
		  :from-end t)
		 (plain-error "編集された行はありません"))))

; 編集行マークの削除
(defun delete-modified-line-mark ()
  (interactive)
  (delete-text-attributes 'modified-line))

(global-set-key #\M-Down 'search-modified-line-forward)
(global-set-key #\M-Up 'search-modified-line-backward)

(add-hook '*find-file-hooks*
	  #'(lambda ()
	      (enable-post-buffer-modified-hook t)))

(add-hook '*after-save-buffer-hook*
	  #'(lambda ()
	      (delete-modified-line-mark)))


;---------------------------------------
;; ahk-mode.l
;;---------------------------------------
(require "ahk-mode")
(push '("\\.ahk$" . ahk-mode) *auto-mode-alist*)
(push '("autohotkey\\.ini$" . ahk-mode) *auto-mode-alist*)


;xml-mode
;http://chez-sugi.net/xyzzy/xml-mode.html
(require "xml/xml-mode")
(use-package 'xml)



;;----------------------------------------
;;custom key bind
;;
;;Emacs風キーバインドに近づける http://goo.gl/3W171
;;emacs#7 ～置換と矩形処理～ http://goo.gl/ig459
;;----------------------------------------

;emacs風矩形処理

(global-set-key '(#\C-x #\r #\d) 'delete-rectangle)
(global-set-key '(#\C-x #\r #\k) 'kill-rectangle)
(global-set-key '(#\C-x #\r #\o) 'open-rectangle)
(global-set-key '(#\C-x #\r #\t) 'string-rectangle)
(global-set-key '(#\C-x #\r #\y) 'yank-rectangle)
(global-set-key '(#\C-x #\r #\w) 'copy-rectangle)

;emacs風redo
(global-set-key #\C-/ 'redo)


;;; -*- Mode: Lisp; Last modified: <2007/12/31 01:13:20> -*-
;;;
;;; This file is not part of xyzzy.
;;;
;;;   clipselect.l --- クリップボード履歴から選択して貼り付け
;;;
;;;     by HIE Masahiro <madoinu@ybb.ne.jp>

(require "clipselect")
;keybind
(define-key ctl-x-map #\Insert 'clipselect-paste)
(define-key ctl-x-map #\y 'clipselect-yank)
(define-key ctl-x-map #\F9 'clipselect-yank-selection)


;------------------------------------------------------------------------------
;;; -*- Mode: Lisp; Package: EDITOR -*-
;;;
;;; This file is not part of xyzzy.
;;;
; $Id: migemo.l,v 1.3 2005/11/27 15:06:44 torihat Exp $
;
; migemo.l
;
; by Masashi Hattori
;
; ■ migemo.l とは？
;
; 	村岡さんの"Migemo DLL"を使ってローマ字のままインクリメンタルサー
; 	チできるようにするものです。
;
; 	Migemoについての詳細は、以下のサイトをご覧下さい。
;
; 	Migemo 本家
; 	http://migemo.namazu.org/
;
; 	Migemo DLL（村岡さん）
; 	http://www.kaoriya.net/

(require "migemo")
;------------------------------------------------------------------------------

;ctrl+upで前後行入れ替え
(global-set-key #\C-Up 'transpose-lines)


;------------------------------------------------------------------------------
;;;   xyzzy版の説明
;;;
;;;   py-mode --- 言語Python用メジャーモード
;;;
;;;     by Deecay
;;;	http://www.geocities.co.jp/Milano-Cat/2067/xyzzy.html
;#|
;●概要
;
;  Furukawa Toru氏が作成したpy-modeにいくつかの機能(shift-regionなど)
;を追加してみたものをFurukawa氏のサイトで公開してもらっていましたが、
;このたび本格的にTim Peters, Barry Warsawらによるemacs用Python-mode.elの
;移植にチャレンジしてみました。作成に当たっては以下のソフトウェアを参考に
;しました。
;  python-mode.el by Tim Peters
;  py-mode.l by Toru Furukawa氏
;  emacs.l by manabu@chaos.club.ne.jp
;  shell3.l by Hattori Masashi
;  comint.el
;
;
;●注意事項
;
;  pdb関係、Jython関連はまだ移植が終わっていません。
;時間があればチャレンジしてみたいと思います。
;
;●インストール
;   0. netinstallerを利用した場合は特に設定は必要ありません。
;　　　動作に不満がある場合はこのソースの設定用変数部分を参照してください
;
;   1. py-mode.lをsite-lispフォルダにコピー。
;   2. バイトコンパイル(byte-compile-file)して、.xyzzyかsite-init.lに
;
;  (load-library "py-mode")
;  (push '("\\.py$" . py-mode) *auto-mode-alist*)
;
;    と書いて、必要に応じてダンプし直せば大丈夫です。
;
;   x. 文字コードについて
;        PYTHONPATH\Lib\site-packages\sitecustomize.py(なければ作る)に
;
;import sys
;from codecs import getwriter
;sys.setdefaultencoding('shift_jis')
;sys.stdout = getwriter('shift_jis')(sys.stdout)
;
;        と書くと日本語のエンコード関係がマシになるかもしれません。
;
;
;
;●使い方
;
;    M-x py-mode  バッファをpy-modeにする
;
;    C-c m  (py-describe-mode)  py-modeの日本語ヘルプ

(load-library "py-mode")
(push '("\\.py$" . py-mode) *auto-mode-alist*)
;------------------------------------------------------------------------------

;vbsファイルを自動でbasic-modeで読み込む
(pushnew '("\\.vbs" . basic-mode) *auto-mode-alist* :test 'equal)


;-------------------------------------------------------------------------------
;print-mode-line mode(モードライン拡張minor-mode)
;モードライン(バッファーの下にあるバー)に任意の文字を表示させるマイナーモードです。
;例として、文字数、や行数の位置が表示できます。
; http://www2.ocn.ne.jp/~cheerful/script/xyzzy/mode/printmodelinemode.html

(load-library "print-mode-line-mode")
;カーソル位置％と文字数表示
(setq mode-line-format "[%i] %* %b (%M) |%/％,  %n |  [%k:%l] %P %f")
(print-mode-line-mode)