Emacs の設定

init.el: README.org
    $(EMACS) -q --batch --eval \
         "(progn \
            (require 'ob-tangle) \
            (org-babel-tangle-file \"$<\" \"$@\" \"emacs-lisp\")))"
%.elc: %.el
    $(EMACS) -l $< -batch -f batch-byte-compile $<

(setq url-http-attempt-keepalives nil)
(require 'package nil 'noerror)
(setq package-enable-at-startup t)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org"   . "http://orgmode.org/elpa/") t)
(eval-when-compile
  (unless (file-exists-p (concat user-emacs-directory "tmp/bootstrap-stamp"))
    (package-refresh-contents)))
(package-initialize)
(unless (package-installed-p 'package-utils)
  (package-install 'package-utils))

(setq url-http-attempt-keepalives nil)
(require 'package nil 'noerror)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org"   . "http://orgmode.org/elpa/") t)
(package-refresh-contents)
(package-initialize)
(package-install pkg-install)

    $(EMACS) -q --batch --eval \
      "(deconst pkg-install 'org-plus-contrib)" -l emacs-batch-install.el

(unless (require 'use-package nil t)
  (package-install 'use-package))

(use-package quelpa
  :ensure t
  :config
  (setq quelpa-upgrade-p nil
        quelpa-checkout-melpa-p nil
        quelpa-update-melpa-p nil
        quelpa-melpa-recipe-stores nil)
  )

(defun my:describe-face-at-point ()
  (interactive)
  (message "%s" (get-char-property (point) 'face)))

(defun my:disable-builtin-mode (mode)
  "与えられた mode が存在するのであれば -1 をセットして無効化"
  (if (fboundp mode) (funcall mode -1)))

(defun my:dpkg-status (package)
  "Return the package status from dpkg --get-selections."
  (string-match "^ii" (shell-command-to-string (format "dpkg -l %s" package))))

(defvar my:delete-trailing-whitespace-exclude-suffix
  (list "\\.rd$" "\\.md$" "\\.rbt$" "\\.rab$"))
(defun my:delete-trailing-whitespace ()
  (interactive)
  (cond
   ((equal nil
           (cl-loop for pattern in my:delete-trailing-whitespace-exclude-suffix
                    thereis (string-match pattern buffer-file-name)))
    (delete-trailing-whitespace))))
(add-hook 'before-save-hook 'my:delete-trailing-whitespace)

(defun my:delete-file-if-no-contents ()
  (when (and (buffer-file-name (current-buffer))
             (= (point-min) (point-max)))
    (delete-file
     (buffer-file-name (current-buffer)))))
(if (not (memq 'my:delete-file-if-no-contents after-save-hook))
    (setq after-save-hook
          (cons 'my:delete-file-if-no-contents after-save-hook)))

(defun my:make-scratch (&optional arg)
  (interactive)
  (progn
    ;; "*scratch*" を作成して buffer-list に放り込む
    (set-buffer (get-buffer-create "*scratch*"))
    (funcall initial-major-mode)
    (erase-buffer)
    (when (and initial-scratch-message (not inhibit-startup-message))
      (insert initial-scratch-message))
    (or arg
        (progn
          (setq arg 0)
          (switch-to-buffer "*scratch*")))
    (cond ((= arg 0) (message "*scratch* is cleared up."))
          ((= arg 1) (message "another *scratch* is created")))))

(defun my:buffer-name-list ()
  (mapcar (function buffer-name) (buffer-list)))
(add-hook 'kill-buffer-query-functions
          ;; *scratch* バッファで kill-buffer したら内容を消去するだけにする
          (function (lambda ()
                      (if (string= "*scratch*" (buffer-name))
                          (progn (my:make-scratch 0) nil)
                        t))))
(add-hook 'after-save-hook
          ;; *scratch* バッファの内容を保存したら
          ;; *scratch* バッファを新しく作る.
          (function
           (lambda ()
             (unless (member "*scratch*" (my:buffer-name-list))
               (my:make-scratch 1)))))

(use-package cp5022x
  :ensure t
  :config
  (set-charset-priority 'ascii 'japanese-jisx0208 'latin-jisx0201
                        'katakana-jisx0201 'iso-8859-1 'unicode)
  (set-coding-system-priority 'utf-8 'euc-jp 'iso-2022-jp 'cp932)
  )

(unless (package-installed-p 'locale-eaw-emoji)
  (quelpa '(locale-eaw-emoji
            :fetcher url
            :url "https://raw.githubusercontent.com/uwabami/locale-eaw-emoji/master/locale-eaw-emoji.el")))
(use-package locale-eaw-emoji
  :config
  (eaw-and-emoji-fullwidth))

(use-package ucs-normalize
  :if (eq system-type 'darwin)
  :config
  (set-file-name-coding-system 'utf-8-hfs)
  (setq locale-coding-system 'utf-8-hfs)
  ;; ついでにキーバインド: Ctrl を Mac から奪い取る
  (setq mac-pass-control-to-system t)
  ;; Cmd と Option を逆にする
  (setq ns-command-modifier 'meta)
  (setq ns-alternate-modifier 'super)
  (global-set-key [ns-drag-file] 'ns-find-file)
  )

(use-package url
  :init
  (setq url-configuration-directory (concat my:d:tmp "url")))
(use-package nsm
  :if (featurep 'nsm)
  :init
  (setq nsm-settings-file (concat my:d:tmp "network-settings.data")))

(use-package recentf
  :init
  (add-hook 'after-init-hook 'recentf-mode)
  :config
  (setq recentf-max-saved-items 256
        recentf-save-file (expand-file-name (concat my:d:tmp "recentf"))
        recentf-auto-cleanup 'never
        recentf-exclude '(".recentf"
                          "^/tmp\\.*"
                          "^/private\\.*"
                          "^/var/folders\\.*"
                          "/TAGS$"
                          "^/home/uwabami/.mozilla/\\.*"
                          ))
  )

(when (boundp 'load-prefer-newer)
  (setq load-prefer-newer t))

(setq gc-cons-threshold (* 8 1024 1024)
      garbage-collection-messages nil)

(use-package abbrev
  :diminish abbrev-mode
  :config
  (setq abbrev-file-name (concat my:d:share "abbrev_defs")
        save-abbrevs t)
  (setq-default abbrev-mode t)
  )

(use-package eldoc
  :diminish eldoc-mode
  :config
  (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
  )

(use-package midnight
  :config
  (setq clean-buffer-list-delay-general 1))

(use-package uniquify
  :config
  (setq uniquify-buffer-name-style 'post-forward-angle-brackets
        uniquify-min-dir-content 1))

(use-package whitespace
  :diminish global-whitespace-mode
  :config
  (setq whitespace-line-column 72
        whitespace-style '(face              ; faceを使って視覚化する．
                           trailing          ; 行末の空白を対象とする．
                           tabs              ; tab
                           spaces            ; space
                           )
        whitespace-display-mappings '((space-mark ?\u3000 [?\□])
                                      (tab-mark ?\t [?\u00BB ?\t] [?\\ ?\t]))
        whitespace-space-regexp "\\(\u3000+\\)"
        whitespace-global-modes '(not
                                  eww-mode
                                  term-mode
                                  eshell-mode
                                  org-agenda-mode
                                  calendar-mode)
        )
  (global-whitespace-mode 1)
  )

(use-package saveplace
  :config
  (setq-default save-place t)
  (setq save-place-file (concat my:d:tmp "emacs-places")))

(use-package time-stamp
  :config
  (setq time-stamp-active t
        time-stamp-line-limit 10
        time-stamp-start "$Lastupdate: 2"
        time-stamp-end "\\$"
        time-stamp-format "%03y-%02m-%02d %02H:%02M:%02S")
  (add-hook 'before-save-hook 'time-stamp))

(use-package tramp
  :config
  (setq tramp-persistency-file-name (concat my:d:tmp "tramp"))
  )

(setq bookmark-default-file (concat my:d:share "bookmarks"))

(use-package eww
  :config
  (bind-keys :map eww-mode-map
             ("r"  . eww-reload)
             ("o"  . eww)
             ("&"  . eww-browse-with-external-browser)
             ("b"  . eww-back-url)
             ("]"  . eww-next-url)
             ("["  . eww-previous-url)
             ("g"  . eww-top-url))
  ;; eww
  (unless (file-directory-p (expand-file-name "eww" my:d:tmp))
    (make-directory (expand-file-name "eww" my:d:tmp)))
  (setq eww-bookmarks-directory (expand-file-name "eww" my:d:tmp)
        eww-search-prefix "https://www.google.com/search?&gws_rd=cr&complete=0&pws=0&tbs=li:1&lr=lang_ja|lang_en&q=")
  ;; 背景色等の設定
  ;; (defvar eww-disable-colorize nil)
  ;; (defun shr-colorize-region--disable (orig start end fg &optional bg &rest _)
  ;;   (unless eww-disable-colorize
  ;;     (funcall orig start end fg)))
  ;; (advice-add 'shr-colorize-region :around 'shr-colorize-region--disable)
  ;; (advice-add 'eww-colorize-region :around 'shr-colorize-region--disable)
  ;; (defun eww-disable-color ()
  ;;   "eww で文字色を反映させない"
  ;;   (interactive)
  ;;   (setq-local eww-disable-colorize t)
  ;;   (eww-reload))
  ;; (defun eww-enable-color ()
  ;;   "eww で文字色を反映させる"
  ;;   (interactive)
  ;;   (setq-local eww-disable-colorize nil)
  ;;   (eww-reload))
  ;; テキスト幅の指定. setq で shr-width を指定しても反映されていない, 様な?
  ;; (defun my:shr-insert-document--for-eww (&rest them)
  ;;   (let ((shr-width 68)) (apply them)))
  ;; (defun my:eww-display-html--fill-column (&rest them)
  ;;   (advice-add 'shr-insert-document :around 'my:shr-insert-document--for-eww)
  ;;   (unwind-protect
  ;;       (apply them)
  ;;     (advice-remove 'shr-insert-document 'my:shr-insert-document--for-eww)))
  ;; (advice-add 'eww-display-html :around 'my:eww-display-html--fill-column)
  ;; buffer を rename
  ;; (defun eww-mode-hook--rename-buffer ()
  ;;   "Rename eww browser's buffer so sites open in new page."
  ;;   (rename-buffer "eww" t))
  ;; (add-hook 'eww-mode-hook 'eww-mode-hook--rename-buffer)
  )

(use-package browse-url
  :bind (("C-c C-j" . browse-url-at-point))
  :config
  (defun browse-url-firefox (url &optional new-window)
    "@see http://www.emacswiki.org/emacs/BrowseUrl"
    (interactive (browse-url-interactive-arg "URL: "))
    (setq url (browse-url-encode-url url))
    (let* ((process-environment (browse-url-process-environment))
           (window-args (if (browse-url-maybe-new-window new-window)
                            (if browse-url-firefox-new-window-is-tab
                                '("-new-tab")
                              '("-new-window"))))
           (ff-args (append browse-url-firefox-arguments window-args (list url)))
           (process-name (concat "firefox " url))
           (process (apply 'start-process process-name nil
                           browse-url-firefox-program ff-args) ))))
  (if (executable-find "firefox")
      (setq browse-url-browser-function 'browse-url-firefox
            shr-external-browser 'browse-url-firefox)
    (setq browse-url-browser-function 'eww-browse-url))
  )

(use-package server
  :config
  (unless (server-running-p)
    (server-start)))

(use-package skk
  :bind (("C-x j"   . skk-mode)
         ("C-x C-j" . skk-mode)
         ("C-\\"    . skk-mode))
  :init
  (setq skk-user-directory (concat my:d:tmp "skk")
        skk-init-file (concat user-emacs-directory "init-ddskk")
        default-input-method "japanese-skk" )
  :config
  )

(setq skk-sticky-key ";")

(setq skk-show-candidates-always-pop-to-buffer t)

(setq skk-henkan-show-candidates-rows 2)

(setq skk-japanese-message-and-error nil)

(setq skk-show-japanese-menu nil)

(setq skk-show-annotation nil)

(setq skk-latin-mode-string "[_A]")
(setq skk-hiragana-mode-string "[あ]")
(setq skk-katakana-mode-string "[ア]")
(setq skk-jisx0208-latin-mode-string "[Ａ]")
(setq skk-jisx0201-mode-string "[_ｱ]")
(setq skk-abbrev-mode-string "[aA]")
(setq skk-indicator-use-cursor-color nil)

(setq skk-status-indicator 'left)

(defadvice skk-make-indicator-alist
    (after my:set-skk-default-indicator activate)
  (dolist (elem
           '((abbrev " [aA]" . "--[aA]:")
             (latin " [_A]" . "--[_A]:")
             (default " [--]" . "--[--]:")))
    (setq ad-return-value
          (append (cons elem nil)
                  (delq (assoc (car elem) ad-return-value) ad-return-value)))))
(setq skk-show-inline t)

(setq skk-use-color-cursor nil)

(use-package ido
  :bind (("C-x C-f" . ido-find-file)
         ;; ("C-x d"   . ido-dired)
         ;; ("C-x C-d" . ido-dired)
         ;; ("C-x b"   . ibuffer)
         ;; ("C-x C-b" . ibuffer)
         ;; ("C-x M-b" . ibuffer)
         )
  :config
  (ido-mode t)
  ;; (ido-everywhere t)  <- Wanderlust みたいに，過去の選択を覚えている奴と相性悪い.
  (setq ido-enable-prefix nil             ; prefix match 入力を先頭一致可能
        ido-confirm-unique-completion t   ; TAB で名前の一致まで. その後 RET で実行
        ido-enable-flex-matching t        ; flx matching を試す際には prefix を無効化すること
        ido-enable-dot-prefix t           ; . を prefix として扱う
        ido-default-file-method   'selected-window
        ido-default-buffer-method 'selected-window
        ido-max-directory-size 10000
        ido-enable-tramp-completion nil
        ido-use-faces t
        ido-ignore-extensions t
        ido-cannot-complete-command 'ido-next-match
        ido-save-directory-list-file (concat my:d:tmp "ido.last"))
  ;; 補完で無視する拡張子の追加．そのうち増える．
  (cl-loop for ext in
           '(".dvi"
             ".fdb_latexmk"
             ".fls"
             ".ilg"
             ".jqz"
             ".mod"
             ".nav"
             ".out"
             ".snm"
             ".synctex.gz"
             ".vrb"
             )
           do (add-to-list 'completion-ignored-extensions ext))
  (add-hook 'ido-setup-hook
            (lambda ()
              (define-key ido-completion-map (kbd "C-h") 'ido-delete-backward-updir)
              (define-key ido-completion-map (kbd "C-l") 'ido-delete-backward-updir)))
  (defun my:ido-disable-line-trucation ()
    (set (make-local-variable 'truncate-lines) nil))
  (add-hook 'ido-minibuffer-setup-hook 'my:ido-disable-line-trucation)
  )

(use-package flx-ido
  :ensure t
  :config
  (flx-ido-mode 1)
  (setq flx-ido-use-faces nil
        flx-ido-threshold 10000)
  )

(unless (package-installed-p 'ido-grid)
  (quelpa '(ido-grid
            :fetcher github
            :repo "larkery/ido-grid.el")))
(use-package ido-grid
  :ensure t
  :config
  (setq ido-grid-enabled t
        ido-grid-start-small nil
        ido-grid-rows 0.15
        ido-grid-max-columns nil
        ido-grid-indent 1
        ido-grid-column-padding 3
        ido-grid-bind-keys t
        )
  (ido-grid-enable)
  (defun my:ido-grid-force-one-columns (o &rest args)
    (let ((ido-grid-max-columns 1) ;; single vertical col
          (ido-grid-start-small nil) ;; popup immediately
          (ido-grid-rows 0.15)) ;; 15% of frame height
      (apply o args)
      ))
  )

(defun ido-recentf-open ()
  "Use `ido-completing-read' to \\[find-file] a recent file"
  (interactive)
  (if (find-file (ido-completing-read "Find recent file: " recentf-list))
      (message "Opening file...")
    (message "Aborting")))
(bind-key "C-x C-r" 'ido-recentf-open)

(use-package smex
  :bind (("M-x" . smex))
  :ensure t
  :config
  (setq smex-auto-update t
        smex-save-file (concat my:d:tmp "smex-items")
        smex-prompt-string "smex: "
        smex-flex-matching nil
        )
  )

(use-package id-manager
  :ensure t
  :if (file-exists-p "~/.gnupg/idm-db.gpg")
  :bind ("M-7" . idm-open-list-command)
  :config
  (setq idm-database-file
        (expand-file-name "~/.gnupg/idm-db.gpg"))
  (setq idm-clipboard-expire-time-sec 30))

(use-package plstore
  :init
  (setq plstore-secret-keys 'silent
        plstore-encrypt-to (getenv "GPG_KEY_ID")))

(use-package oauth2
  :ensure t
  :init
  (setq oauth2-token-file (concat my:d:tmp "oauth2.plstore")))

(use-package password-store
  :ensure t
  :if my:d:password-store
  )

(use-package wl
  :if (and (or (my:dpkg-status "wl")
               (my:dpkg-status "wl-beta"))
           (my:dpkg-status "rail"))
  :commands (wl wl-other-frame wl-draft wl-user-agent wl-user-agent-compose wl-draft-send wl-draft-kill)
  :init
  (define-mail-user-agent
    'wl-user-agent
    'wl-user-agent-compose
    'wl-draft-send
    'wl-draft-kill
    'mail-send-hook)
  (setq elmo-msgdb-directory "~/.cache/wanderlust"
        elmo-maildir-folder-path "~/.cache/wanderlust"
        elmo-cache-directory "~/.cache/wanderlust"
        wl-score-files-directory "~/.cache/wanderlust"
        wl-init-file (concat user-emacs-directory "init-wl")
        mail-user-agent 'wl-user-agent
        read-mail-command 'wl)
  (unless (file-directory-p elmo-msgdb-directory)
    (make-directory elmo-msgdb-directory))
  (unless (file-directory-p (concat elmo-msgdb-directory "/local"))
    (make-directory (concat elmo-msgdb-directory "/local")))
  (unless (file-directory-p (concat elmo-msgdb-directory "/local/Trash"))
    (make-directory (concat elmo-msgdb-directory "/local/Trash")))
  )

(defun my:mailto-compose-mail (mailto-url)
  (if (and (stringp mailto-url)
           (string-match "\\`mailto:" mailto-url))
      (progn
        (require 'rfc2368)
        (let* ((headers (mapcar (lambda (h) (cons (intern (car h)) (cdr h)))
                                (rfc2368-parse-mailto-url mailto-url)))
               (good-headers (remove-if (lambda (h) (member (car h) '(Body))) headers))
               (body (cdr (assoc 'Body headers))))
          (wl-draft good-headers nil nil body)))))

#!/bin/sh
# emacs-mailto-handler

mailto=$1
mailto="mailto:${mailto#mailto:}"
mailto=$(printf '%s\n' "$mailto" | sed -e 's/[\"]/\\&/g')
elisp_expr="(my:mailto-compose-mail \"$mailto\")"

emacsclient -a "" -n --eval "$elisp_expr" \
    '(set-window-dedicated-p (selected-window) t)'

[Desktop Entry]
Name=Emacs Mail Handler
GenericName=Mail User Agent
X-GNOME-FullName=Emacs Mail Handler
Comment=Use emacsclient as MUA, handling mailto link
Keywords=email
Exec=/home/uwabami/bin/emacs-mailto-handler %U
Icon=emacs25
Terminal=false
Type=Application
Categories=GNOME;GTK;Office;Email;
StartupNotify=false
MimeType=application/mbox;message/rfc822;x-scheme-handler/mailto;

(use-package mhc
  :if (executable-find "mhc")
  )

(use-package ispell
  :init
  (setq-default ispell-program-name "aspell")
  :config
  (add-to-list 'ispell-skip-region-alist '("[^\000-\377]+")))

(use-package flyspell
  :diminish flyspell-mode
  :config
  (defun my:flyspell-popup-choose (orig event poss word)
    (if (window-system)
        (funcall orig event poss word)
      (flyspell-emacs-popup-textual event poss word)))
  (advice-add 'flyspell-emacs-popup :around #'my:flyspell-popup-choose)
  )

(use-package lookup
  :commands (lookup lookup-region lookup-pattern)
  :if (and (my:dpkg-status "lookup-el")
           (file-exists-p "/usr/local/share/dict/lookup-enabled"))
  :bind (("C-c w" . lookup-pattern)
         ("C-c W" . lookup-word))
  :init
  (setq lookup-search-agents
        '(
          (ndeb "/usr/local/share/dict/eijiro"    :alias "英辞郎")
          (ndeb "/usr/local/share/dict/waeijiro"  :alias "和英辞郎")
          (ndeb "/usr/local/share/dict/rikagaku5" :alias "理化学辞典 第5版")
          (ndeb "/usr/local/share/dict/koujien4"  :alias "広辞苑 第4版")
          (ndeb "/usr/local/share/dict/wadai5"    :alias "研究社 和英大辞典 第5版")
          (ndeb "/usr/local/share/dict/eidai6"    :alias "研究社 英和大辞典 第6版")
          (ndeb "/usr/local/share/dict/colloc"    :alias "研究社 英和活用大辞典 ")
          )))

(defvar my:d:org (concat (getenv "HOME") "/Nextcloud/org/"))
(use-package org
  :bind (("C-x n s" . org-narrow-to-subtree)
         ("C-x n w" . widen))
  :init
  :config
  (setq org-directory my:d:org                 ;; Nextcloud に保存する
        org-return-follows-link t              ;; return でリンクを辿る
        org-startup-folded t                   ;; 見出しを畳んで表示
        org-startup-truncated t                ;; 折り返し無し
        org-emphasis-alist                     ;; 基本 "-nw" なので色変更
        (cons '("+" '(:strike-through t :foreground "#999999"))
              (cl-delete "+" org-emphasis-alist :key 'car :test 'equal))
        ;; org-completion-use-ido nil
        ;; GTD: 状態の追加
        org-todo-keywords
        '((sequence "TODO(t)" "WAIT(w)" "|" "DONE(d)" "CANCEL(c)" "SOMEDAY(s)")
          (type "ARTICLE(a)")
          (type "MEMO(m)")
          )
        ;; GTD: タグの追加
        org-tag-alist '(("OFFICE"     . ?o)
                        ("HOME"       . ?h)
                        ("MAIL"       . ?m)
                        ("WORK"       . ?w)
                        ("Debian"     . ?d)
                        ("Computer"   . ?c)
                        ("Book"       . ?b)
                        ("Emacs"      . ?e)
                        ("TeX"        . ?t)
                        ("Ruby"       . ?r)
                        )
        )
  ;; GTD: TODO→...→DONE としたエントリを =Arhive.org= に移動
  (defun my:org-archive-done-tasks ()
    (interactive)
    ;; ARCHIVE タグを付けるだけなら以下
    ;;   (org-map-entries 'org-archive-set-tag "/DONE" 'file))
    ;; org-archive-location に refile したいなら以下
    (org-map-entries 'org-archive-subtree "/DONE" 'file))
  (setq org-archive-location "Archive.org::")
  (add-hook 'org-todo-statistics-hook 'my:org-archive-done-tasks)
  (add-hook 'org-todo-after-statistics-hook 'my:org-archive-done-tasks)
  ;; 文字コード強制 ... 今時いらないかも．
  (modify-coding-system-alist 'file "\\.org\\'" 'utf-8)
  ;; howm ファイルも org-mode で．
  (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
  (add-to-list 'auto-mode-alist '("\\.howm$" . org-mode))
  ;;; timestamp 更新文字列の変更
  ;;  org-mode では ＃+DATE: をひっかける用に(＃は小文字)．
  (defun my:org-timestamp-hook ()
    "Change `time-stamp-start' in org-mode"
    (set (make-local-variable 'time-stamp-start) "#\\+DATE: 2")
    (set (make-local-variable 'time-stamp-end)   "\$")
    )
  (add-hook 'org-mode-hook 'my:org-timestamp-hook)
  )

(use-package org-id
  :bind (("C-c l"   . org-store-link)
         ("C-c C-l" . org-insert-link))
  :config
  (setq org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id
        org-id-track-globally t
        )
  (when (file-directory-p "~/Public/cc-env")
    (setq org-id-extra-files (f-glob "*.org" "~/Public/cc-env"))
    (add-to-list 'org-id-extra-files
                 (concat user-emacs-directory "README.org")))
  )

(use-package org-journal
  :ensure t
  :if (file-directory-p my:d:org)
  :init
  (add-hook 'org-journal-mode-hook
            (setq truncate-lines t))
  :config
  (unbind-key "C-c C-j" org-journal-mode-map)
  (bind-key   "C-c C-j" 'browse-url-at-point)
  (setq org-journal-dir my:d:org
        org-journal-file-format "journal.org"
        org-journal-date-format "%x (%a)"
        org-journal-date-prefix "* "
        org-journal-time-format "<%Y-%m-%d %R> "
        org-journal-time-prefix "** MEMO "
        org-journal-find-file 'find-file
        )
  (defun my:org-journal-add-date-entry (prefix &optional time)
    "Insert date entry to `org-journal-file'"
    (find-file (expand-file-name org-journal-file-format org-journal-dir))
    (org-journal-decrypt)
    (unless
        (string-match (format-time-string org-journal-date-format)
                      (buffer-substring-no-properties (point-min) (point-max)))
      (progn
        (goto-char (point-max))
        (insert (concat "\n" org-journal-date-prefix
                        (format-time-string org-journal-date-format)))
        ))
    )
  (advice-add 'org-journal-new-entry :before 'my:org-journal-add-date-entry)
  )
;; Key bindings -- 使えてない...
;; (define-key org-journal-mode-map (kbd "C-c C-f") 'org-journal-open-next-entry)
;; (define-key org-journal-mode-map (kbd "C-c C-b") 'org-journal-open-previous-entry)
;; (define-key org-journal-mode-map (kbd "C-c C-j") 'org-journal-new-entry)
;; (define-key calendar-mode-map "j" 'org-journal-read-entry)
;; (define-key calendar-mode-map (kbd "C-j") 'org-journal-display-entry)
;; (define-key calendar-mode-map "]" 'org-journal-next-entry)
;; (define-key calendar-mode-map "[" 'org-journal-previous-entry)
;; (define-key calendar-mode-map (kbd "i j") 'org-journal-new-date-entry)
;; (define-key calendar-mode-map (kbd "f f") 'org-journal-search-forever)
;; (define-key calendar-mode-map (kbd "f w") 'org-journal-search-calendar-week)
;; (define-key calendar-mode-map (kbd "f m") 'org-journal-search-calendar-month)
;; (define-key calendar-mode-map (kbd "f y") 'org-journal-search-calendar-year)))

(use-package org-wl
  :if (and (my:dpkg-status "wl-beta")
           (file-directory-p org-directory))
  )
(use-package org-capture
  :bind (("C-x m" . org-capture))
  :if (file-directory-p org-directory)
  :config
  (defun my:org-journal-add-date-entry-capture ()
    (my:org-journal-add-date-entry nil)
    (goto-char (point-max))
    )
  ;; @see https://github.com/sprig/org-capture-extension/issues/37
  ;; Brackets '{' '}' in link description cause broken org-mode link #37]]
(defun my:transform-square-brackets-to-round-ones (string-to-transform)
  "Transforms [ into ( and ] into ), other chars left unchanged."
  (concat
   (mapcar #'(lambda (c) (if (equal c ?[) ?\( (if (equal c ?]) ?\) c)))
           string-to-transform))
  )
  (setq org-default-notes-file (concat org-directory "journal.org")
        org-capture-templates
        `(
          ("t" "TODO" plain
           (function my:org-journal-add-date-entry-capture)
           "** TODO %^{title} %^g\n  %?\n  %a"
           :prepend nil
           :unnarrowed nil
           :kill-buffer t
           )
          ;; "* TODO <%<%Y-%m-%d>> %:subject %^g\n  %?\n  %a\n  #+BEGIN_QUOTE\n%i\n  #+END_QUOTE"
          ("e" "Email TODO" plain
           (function my:org-journal-add-date-entry-capture)
           "** TODO [[wl:\%5Bmsgid:%:message-id-no-brackets\%5D][%(my:transform-square-brackets-to-round-ones \"%:subject\")]]\n  :PROPERTIES:\n  :CREATED: %u\n  :END:%?\n"
           :prepend nil
           :unnarrowed nil
           :kill-buffer t
           )
          ("m" "Memo/Journal Entry" plain
           (function my:org-journal-add-date-entry-capture)
           "** MEMO %T %?"
           :prepend nil
           :unnarrowed nil
           :kill-buffer t
           )
          ("a" "Aritcle Entry" plain
           (function my:org-journal-add-date-entry-capture)
           "** ARTICLE %T %? "
           :prepend nil
           :unnarrowed nil
           :kill-buffer t
           )
          )
        )
)

(use-package org-agenda
  :diminish org-agenda-mode
  :if (file-directory-p my:d:org)
  :bind (("C-c a" . org-agenda))
  :init
  (defface my:org-agenda-date-saturday
    '((t (:foreground "#7FBFFF" :bold t )))
    "Agenda 表示中の土曜日用のface")
  (defface my:org-agenda-date-today-saturday
    '((t (:inherit my:org-agenda-date-saturday :underline t)))
    "Agenda 表示中の今日かつ土曜日用のface")
  (defface my:org-agenda-date-today-weekend
    '((t (:inherit org-agenda-date-weekend :underline t)))
    "Agenda 表示中の今日かつ日・祝日用のface")
  ;; こっからは org-gcal で同期したカレンダーの色
  (defface my:org-agenda-calendar-KUSM
    '((t (:foreground "#7FFF7F")))
    "Agenda 表示中, KUSM.org の表示 face"
    :group 'org-agenda )
  (defface my:org-agenda-calendar-Schedule
    '((t (:foreground "#7FFFFF")))
    "Agenda 表示中, Schedule.org の表示 face"
    :group 'org-agenda )
  (defface my:org-agenda-calendar-GFD
    '((t (:foreground "#FFFF7F")))
    "Agenda 表示中, GFD.org の表示 face"
    :group 'org-agenda )
  (defface my:org-agenda-calendar-DebianJP
    '((t (:foreground "#BF7FFF")))
    "Agenda 表示中, DebianJP.org の表示 face"
    :group 'org-agenda )
  (defface my:org-agenda-calendar-twitter
    '((t (:foreground "#CCCCCC")))
    "Agenda 表示中, Twitter log の表示 face"
    :group 'org-agenda )
  ;; 更新用の関数 - とりあえず動いているので良しとするが，リファクタリングしたい
  (defun my:org-agenda-day-face-function (date)
    "Compute DATE face for saturday, holidays."
    (cl-dolist (file (org-agenda-files nil 'ifmode))
      (cond
       ((member (calendar-day-of-week date) '(7))
        (if (org-agenda-todayp date)
            (cl-return 'my:org-agenda-date-today-weekend))
        (cl-return 'org-agenda-date-weekend))
       ((member (calendar-day-of-week date) '(6))
        (if (org-agenda-todayp date)
            (cl-return 'my:org-agenda-date-today-saturday))
        (cl-return 'my:org-agenda-date-saturday)))
      (let ((face
             (cl-dolist (entry (org-agenda-get-day-entries file date))
               (let ((category (with-temp-buffer
                                 (insert entry)
                                 (org-get-category (point-min)))))
                 (when (or (string= "祝日" category)
                           (string= "休日" category))
                   (if (org-agenda-todayp date)
                       (cl-return 'my:org-agenda-date-today-weekend)
                     (cl-return 'org-agenda-date-weekend)))))))
        (when face (cl-return face)))))
  :config
  ;; 使用するファイル
  (dolist (file
           '("Archive.org"
             "Holidays.org"
             "Memo.org"
             "Schedule.org"
             "MHC.org"
             "GFD.org"
             "KUSM.org"
             "DebianJP.org"
             "twitter.org"
             "journal.org"
             "redmine_GFD.org"
             "redmine_FluidSoc.org"
             "redmine_KUSM.org"
             ))
    (add-to-list 'org-agenda-files (concat org-directory file)))
  (add-to-list 'org-agenda-files (expand-file-name "README.org" user-emacs-directory))
  ;; 表示のカスタマイズ
  (setq org-agenda-span 'day                   ;; day or week
        org-agenda-format-date "%Y/%m/%d (%a)" ;; YY/MM/DD (曜)
        org-agenda-weekend-days '(0)           ;; 日曜始まり
        ;; 表示関数
        org-agenda-day-face-function 'my:org-agenda-day-face-function
        org-agenda-custom-commands             ;; GTD 用の設定
        '(
          ("n" "agenda and all TODO list"
           (
            (agenda ""
                    ((org-agenda-ndays 1)
                     (org-agenda-entry-types '(:timestamp :sexp))))
            (todo "TODO"
                  ((org-agenda-prefix-format " %i %-22:c"))
                  )
            (todo "新規|着手|進行中|確認"
                  ((org-agenda-prefix-format " %i %-22:c"))
                  )
            (todo "WAIT"
                  ((org-agenda-prefix-format " %i %-22:c"))
                  )
            (todo "SOMEDAY"
                  ((org-agenda-prefix-format " %i %-22:c"))
                  )
            ))
          ("N" "All memo entry"
           (;;
            (todo "MEMO")
            ))
           )
        )
  ;; 色付け
  (add-hook 'org-agenda-finalize-hook
            (lambda ()
              (save-excursion
                (goto-char (point-min))
                (while (re-search-forward "KUSM:" nil t)
                  (add-text-properties (match-beginning 0) (point-at-eol)
                                     '(face my:org-agenda-calendar-KUSM)))
                (goto-char (point-min))
                (while (re-search-forward "Schedule:" nil t)
                  (add-text-properties (match-beginning 0) (point-at-eol)
                                       '(face my:org-agenda-calendar-Schedule)))
                (goto-char (point-min))
                (while (re-search-forward "MHC:" nil t)
                  (add-text-properties (match-beginning 0) (point-at-eol)
                                       '(face my:org-agenda-calendar-Schedule)))
                (goto-char (point-min))
                (while (re-search-forward "DebianJP:" nil t)
                  (add-text-properties (match-beginning 0) (point-at-eol)
                                       '(face my:org-agenda-calendar-DebianJP)))
                (goto-char (point-min))
                (while (re-search-forward "GFD:" nil t)
                  (add-text-properties (match-beginning 0) (point-at-eol)
                                       '(face my:org-agenda-calendar-GFD)))
                (goto-char (point-min))
                (while (re-search-forward "twitter:" nil t)
                  (add-text-properties (match-beginning 0) (point-at-eol)
                                       '(face my:org-agenda-calendar-twitter)))
                (goto-char (point-min))
                (while (re-search-forward "祝日:" nil t)
                  (add-text-properties (match-beginning 0) (point-at-eol)
                                       '(face org-agenda-date-weekend)))
                (goto-char (point-min))
                (while (re-search-forward "休日:" nil t)
                  (add-text-properties (match-beginning 0) (point-at-eol)
                                       '(face org-agenda-date-weekend)))
                )))
  )

(use-package orgmine
  :if (and my:d:password-store
           (file-directory-p org-directory))
  :diminish (orgmine-mode)
  :commands (orgmine-mode)
  :init
  (unless (package-installed-p 'orgmine)
    (package-install 'elmine)
    (quelpa '(orgmine
              :fetcher github
              :repo "kametoku/orgmine")))
  (add-to-list 'safe-local-variable-values
               '(orgmine-note-block-begin . "#+BEGIN_SRC textile"))
  (add-hook 'org-mode-hook
            (lambda ()
              (if (assoc "om_server" org-file-properties) (orgmine-mode))))
  :config
  (setq orgmine-note-block-begin "#+BEGIN_SRC gfm"   ;; 要調整
        orgmine-note-block-end   "#+END_SRC\n"
        orgmine-default-todo-keyword "新規")
  ;; サーバ設定
  (load (concat my:d:password-store "/orgmine.gpg"))
  )

(unless (package-installed-p 'plain-org-wiki)
  (quelpa '(plain-org-wiki
            :fetcher github
            :repo "uwabami/plain-org-wiki")))
(defun my:load-plain-org-wiki ()
  (lambda ()
    (use-package plain-org-wiki
      :bind (("C-x M" . plain-org-wiki ))
      :config
      (setq pow-directory (concat (getenv "HOME") "/Public/cc-env/")
            pow-extra-dirs (list user-emacs-directory)
            pow-template "#+TITLE:
#+DATE: 20
#+LANGUAGE: ja
#+REF: cc-env/%s
#+LAYOUT: cc-env
#+SETUPFILE: ~/Public/_setup.org
#+PERMALINK: /cc-env/%s.html
Related [[wiki:index][Index]]
")
      )))
(my:load-plain-org-wiki)

(use-package htmlize)
(use-package ox-publish
  :if (file-directory-p "~/Public/.git")
  :init (my:load-plain-org-wiki)
  :config
  (defun org-publish-to-jekyll (plist filename pub-dir)
    "publishing org to html with Jekyll YAML front matter."
    (org-id-update-id-locations)
    (org-publish-org-to 'jekyll filename ".html" plist pub-dir))
  (setq org-publish-use-timestamps-flag t
        org-publish-timestamp-directory "~/Public/.org-timestamps/"
        org-publish-project-alist
        '(("org"
           :base-directory "~/Public/"
           :base-extension "org"
           :exclude "\\(_.*\\|cc-env\\)"
           :publishing-directory "~/Public/"
           :publishing-function org-publish-to-jekyll
           :recursive t
           :with-toc nil
           :headline-levels 5
           )
          ("cc-env"
           :base-directory "~/Public/cc-env/"
           :base-extension "org"
           :publishing-directory "~/Public/cc-env/"
           :publishing-function org-publish-to-jekyll
           :recursive t
           :with-toc t
           :headline-levels 5
           )
          ;; ("web" :components ("org" "cc-env"))
          )
        )
  )

(unless (locate-library "moinmoin-mode")
  (quelpa '(moinmoin-mode
            :fetcher github
            :repo "uwabami/moinmoin-mode")))
(use-package moinmoin-mode)

(unless (locate-library "moomin")
  (quelpa '(moomin
            :fetcher github
            :repo "uwabami/moomin-el")))
(use-package moomin
  :if (file-directory-p my:d:password-store)
  :bind (("C-x w" . ido-moomin)
         :map moinmoin-mode-map
         ("C-c C-c" . moomin-save-current-buffer)
         ("C-c C-s" . moomin-save-current-buffer)
         ("C-c C-o" . moomin-browse-current-page)
         ("C-c C-r" . moomin-reload-current-page))
  :config
  (setq moomin-history-file
        (concat my:d:tmp ".moomin_history"))
  (load (concat my:d:password-store "/moomin.gpg"))
  )

(use-package magit
  :bind (("C-x g" . magit-status))
  :config
  ;; (setq magit-completing-read-function 'magit-ido-completing-read)
  )

(unless (locate-library "ido-ghq")
  (quelpa '(ido-ghq
            :fetcher github
            :repo "uwabami/ido-ghq")))
(use-package ido-ghq
  :bind (("C-x f" . ido-ghq-open))
  :config
  (setq ido-ghq-short-list t)
  )

(use-package rainbow-delimiters
  :config
  (add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode))

(use-package generic-x)

(use-package textile-mode
  :ensure t
  :diminish textile-mode
  )

(use-package markdown-mode
  :if (executable-find "pandoc")
  :mode ("\\.\\(md\\|markdown\\)\\'" . gfm-mode)
  :init
  (add-hook 'markdown-mode-hook
            (lambda ()
              (electric-indent-local-mode -1)
              (orgtbl-mode)
              ))
  (add-hook 'gfm-mode-hook
            (lambda ()
              (electric-indent-local-mode -1)
              (orgtbl-mode)
              ))
  :config
  (setq markdown-command
        "pandoc --from markdown_github -t html5 --mathjax --highlight-style pygments")
  )

(use-package scss-mode
  :ensure t
  :if (executable-find "sass")
  :mode "\\.scss\\'"
  :config
  (setq scss-sass-command (executable-find "sass")))

(use-package rainbow-mode
  :diminish rainbow-mode
  )

(use-package yaml-mode
  :mode "\\(\.yml\\|\.yaml\\)"
  )

(use-package ruby-mode
  :mode "\\.rb\\'"
  :interpreter "ruby"
  :init
  (add-to-list 'auto-mode-alist '("Gemfile$" . ruby-mode)))

(use-package ruby-electric
  :ensure t
  :init
  (add-hook 'ruby-mode-hook (lambda () (ruby-electric-mode t)))
  :config
  (setq ruby-electric-expand-delimiters-list nil))

;; (use-package ruby-block
;;  :diminish ruby-block-mode
;;  :config
;;  (ruby-block-mode t)
;;  (setq ruby-block-highlight-toggle 'overlay)
;;  )

(use-package rspec-mode
  :ensure t
  :config
  (setq rspec-use-rake-flag nil))

(use-package rabbit-mode
  :mode "\\.rab$"
  )

(defface rdoc-header-1
  '((t (:inherit outline-1)))
  "rdoc mode header level 1")

(defface rdoc-header-2
  '((t (:inherit outline-2)))
  "rdoc mode header level 2")

(defface rdoc-header-3
  '((t (:inherit outline-3)))
  "rdoc mode header level 3")

(defface rdoc-header-4
  '((t (:inherit outline-4)))
  "rdoc mode header level 4")

(define-generic-mode 'rdoc-mode
  ()                    ;comment-list
  '()                   ;keyword-list
  '(                    ;font-lock-list
    ("^=[^=].*"                                             . 'rdoc-header-1)
    ("^==[^=].*"                                            . 'rdoc-header-2)
    ("^===[^=].*"                                           . 'rdoc-header-3)
    ("^====[^=].*"                                          . 'rdoc-header-4)
    ("^[\\*#]\\{1,9\\} "                                    . 'bold)
    ("\\(?:[^a-zA-Z0-9]\\)?\\*[^*]+\\*\\(?:[^a-zA-Z0-9]\\)" . 'bold)
    ("\\(?:[^a-zA-Z0-9]\\)?\\_[^_]+\\_\\(?:[^a-zA-Z0-9]\\)" . 'italic)
    )
  '("README_FOR_APP" "\\.rdoc$")    ;auto-mode-list
  '((lambda () (auto-fill-mode t))) ;function-list
  "Major mode for editing RDOC files.")

(use-package rd-mode
  :mode "\\.rd$"
  :config
  (add-hook 'rd-mode-hook
            'rd-show-other-block-all))

(use-package cc-mode
  :init
  (c-add-style "my:bsd-like"
               '("bsd"
                 (c-basic-offset . 2)
                 (c-hanging-braces-alist . ((inline-open       before after)
                                            (block-open        before after)
                                            (substatement-open before after)))
                 (c-offsets-alist . ((brace-list-entry . +)))
                 ))
  :config
  (setq-default c-default-style "my:bsd-like")
  (add-hook 'c-mode-hook
            (lambda ()
              (c-set-style "my:bsd-like")
              (electric-indent-local-mode -1)
              (set (make-local-variable 'eldoc-idle-delay) 0.20)
              (c-turn-on-eldoc-mode)
              ))
  )

(use-package f90
  :mode ("\\.\\(f|F\\)\\(90|95|03|08\\)$" . f90-mode)
  :config
  (add-hook 'f90-mode-hook
            (lambda ()
              (setq f90-do-indent 2
                    f90-if-indent 2
                    f90-type-indent 2
                    f90-program-indent 2
                    f90-continuation-indent 2
                    f90-directive-comment-re "!omp\\$"
                    f90-indented-comment-re "!"
                    f90-break-delimiters "[-+\\*/><=,% \t]"
                    f90-break-before-delimiters t
                    f90-beginning-ampersand nil
                    f90-smart-end 'blink
                    f90-auto-keyword-case nil
                    f90-leave-line-no nil
                    f90-comment-region "!! "
                    f90-indent-comment "! "
                    indent-tabs-mode nil
                    f90-font-lock-keywords f90-font-lock-keywords-2)
              (ggtags-mode 1)))
  )