;;; [[KeyBinding]]
;;; [[EnableOnDemand]]
;;; [[Examples]]
;;; [[日本語]]
;;; [[<KeyBinding]]
;;; wiki link間をM-p/M-nで辿れるように
(setq wiki-nav-find-any-link-keys '("M-n"))
(setq wiki-nav-find-any-previous-link-keys '("M-p"))
(setq wiki-nav-skip-to-next-keys '("<tab>" "M-n"))
(setq wiki-nav-skip-to-previous-keys '("S-TAB" "S-<tab>" "<backtab>" "S-<iso-lefttab>" "M-p"))
;;; wiki-nav内ではM-mとC-c C-o(org-mode風)でも辿れるように
(setq wiki-nav-activate-keys '("RET" "M-m" "C-c C-o"))
;;; なんでvisit:というスキームなの？file:くらいサポートすべきよね？？
(setq wiki-nav-visit-link-pattern "\\`\\(?:file\\|visit\\):\\([^:\n]+?\\)\\(?:\\|:\\([^\n]*\\)\\)\\'")
;;; [[<EnableOnDemand]]
;;; wiki-nav記法があるときのみ有効にする
(defun wiki-nav-enable-maybe ()
  (unless (bound-and-true-p wiki-nav-mode)
    (save-excursion
      (goto-char (point-min))
      (when (search-forward "[[<" nil t)
        (wiki-nav-mode 1)
        (run-at-time 0.5 nil 'message "Enable wiki-nav-mode.")))))
;;; ファイルを開くときにwiki-nav記法をチェック
(add-hook 'find-file-hook 'wiki-nav-enable-maybe)
;;; 3秒間のアイドル時にwiki-nav記法をチェック
(run-with-idle-timer 3 t 'wiki-nav-enable-maybe)
;;; [[<Examples]]
;;; [[http://rubikitch.com/]]
;;; [[visit:~/.emacs.d/init.el]] ファイルへのリンク
;;; [[visit:~/.emacs.d/init.el:line:3]] init.elの3行目へ
;;; [[file:~/.emacs.d/init.el]]  これも使えるように設定
;;; [[func:wiki-nav-enable-maybe]] ファイル内の関数へのリンク
;;; [[function:wiki-nav-enable-maybe]] 同様
;;; [[line:2]] 2行目へのリンク
;;; [[<日本語]] 日本語もＯＫ