;;インクリメンタルサーチ
(require "isearch")

;;; den8 mode
(require "den8view")
(setq *den8-directory* "c:/home/bin/Den8")
(setq *den8-folder-list* '("IN" "Den8club"))



;;;Yank Selectメニュー→Written by Suda and Hie


(add-hook '*init-app-menus-hook*
      #'(lambda ()
          (defvar *your-app-popup-menu* nil)
          (setq *your-app-popup-menu* (create-popup-menu nil))
          (defun yank-select ()
        (interactive)
        (while (get-menu-position *your-app-popup-menu* 'yank-select)
          (delete-menu *your-app-popup-menu* 'yank-select))
        (continue-pre-selection)
        (dotimes (arg (length *kill-ring*))
          (let ((string (car (ed::current-kill arg t))))
            (add-menu-item *your-app-popup-menu* 'yank-select
;siteint.l

                  (if (< (length string) 40)
                       string
                       (substring string 0 40))
                       #'(lambda ()
                       (interactive)
                       (insert string)))))
                       (track-popup-menu *your-app-popup-menu*))
                       (global-set-key #\M-y 'yank-select)))



;;;補完にポップアップ→Witten by YMTZ


(require "dabbrev")
(global-set-key #\C-\; 'dabbrev-popup)
(setq *popup-completion-list-default* :always)
(setq *minibuffer-popup-completion-list* :never)



;;;キー割り当て一覧 をメッセージボックスで

(defun describe-bindings-box ()
  (interactive)
  (let (str winconf)
    (setq winconf (current-window-configuration))
    (describe-bindings)
    (tabify (point-min) (point-max))
    (setq str (buffer-substring (point-min)
                                (point-max)))
    (delete-buffer "*Help*")
    (set-window-configuration winconf)
    (message-box str "キー割り当て一覧")))



;;;URLクリックジャンプ＆URL強調
;;;clickable-uri.l


(require "clickable-uri")


;;;モード一覧をポップアップメニューで表示し，切替える。 C-x F3 に割り当てている

(defun mode-selecter ()
  (interactive)
  (let ((menu1 (create-popup-menu nil))
        (menu2 (create-popup-menu nil))
        l ol)
    (continue-pre-selection)
    (dolist (m *auto-mode-alist*)
      (pushnew (cdr m) l :test 'equal))
    (dolist (sym (ed::apropos-find-matches "-mode$" #'commandp))
      (unless (or (member sym l)
                  (member sym
                          ;[その他(O)...] にも表示しないモード
                          '(latex-mode clickable-url-set-attribute-any-mode
                            life-mode changelogmemo-mode buffer-menu-mode
                            edit-abbrevs-mode tterm-char-mode fortran-auto-fill-mode
                            info-modoki-mode extlib-mode instant-toggle-tab-mode
                            qanda-mode ese-fortune-mode imm-search-mode)))
        (pushnew sym ol)))
    (flet ((add-menu (li mn)
             (dolist (i li)
               (let ((m i))
                 (add-menu-item mn nil
                                (format nil "~S" m)
                                #'(lambda () (interactive)
                                    (funcall m))
                                #'(lambda ()
                                    (when (eq buffer-mode m)
                                      :check)))))))
      (add-menu (sort l #'string-lessp) menu1)
      (add-menu (sort ol #'string-lessp) menu2))
    (add-menu-separator menu1)
    (add-popup-menu menu1 menu2 "その他(&O)...")
    (track-popup-menu menu1)))
(define-key ctl-x-map #\F3 'mode-selecter)




;; バッファをさくさく切り替えたい(M-←→)
(setq *next-buffer-in-tab-order* t) ; バッファ移動をタブ順に
(global-set-key #\M-Right 'next-buffer) ; 前のバッファに移動
(global-set-key #\M-Left 'previous-buffer) ; 後のバッファに移動


;; ウィンドウもさくさく切り替えたい(M-↑↓)
(global-set-key #\M-Up 'move-previous-window)
(global-set-key #\M-Down 'other-window)