ddskk 15.2

ddskk.rb

require 'formula'

class Ddskk < Formula
  homepage 'http://openlab.ring.gr.jp/skk/'
  url 'http://openlab.ring.gr.jp/skk/maintrunk/ddskk-15.2.tar.gz'
  sha256 '0d334c072a5eb3725173b398fce4839217d53e32c624653b5aca14a008788b9c'
  
  depends_on 'emacs'

  def install
    open("SKK-CFG", 'a'){|f| f.puts(<<-CFG) }
      (setq SKK_DATADIR "#{share}/skk")
      (setq SKK_LISPDIR "#{share}/emacs/site-lisp")
      (setq SKK_INFODIR "#{share}/info")
      (setq SKK_SET_JISYO nil)
      (setq SKK_TUTORIALS nil)
    CFG

    system "make"
    system "make install PREFIX=#{prefix}"
  end
end

init-ddskk.el

;; ----------------------------------------
;; ddskk 用の設定
;; ----------------------------------------
;; パスを追加
(setq load-path (append '("/usr/local/Cellar/ddskk/lisp") load-path))
(require 'skk-setup)

;; システムにコントロールキーを渡さない
(setq mac-pass-control-to-system nil)
;; C-j の機能を別のキーに割り当て
(global-set-key (kbd "C-m") 'newline-and-indent)

;; C-\ でも SKK に切り替えられるように設定
(setq default-input-method "japanese-skk")
;; 送り仮名が厳密に正しい候補を優先して表示
(setq skk-henkan-strict-okuri-precedence t)
;;漢字登録時、送り仮名が厳密に正しいかをチェック
(setq skk-check-okurigana-on-touroku t)

;; 辞書ファイルは Dropbox 上に置く
(setq skk-jisyo "~/Dropbox/.skk-ddskk.skk-jisyo")
(setq skk-backup-jisyo "~/Dropbox/.skk-ddskk.skk-jisyo.backup")

;; AquaSKKとの連携
(setq skk-server-host "localhost")
(setq skk-server-portnum 1178)

;;モードで RET を入力したときに確定のみ行い、改行はしない
(setq skk-egg-like-newline t)

;;モードで BS を押した時に一つ前の候補を表示
(setq skk-delete-implies-kakutei nil)

;; "「"を入力したら"」"も自動で挿入する
(setq skk-auto-insert-paren t)

;; 句読点
(setq skk-kuten-touten-alist '(
	(jp . ("．" . "，")) 
	(en . ("." . ","))
;	(ya . ("。" . ", "))
))
(setq skk-toggle-kutouten nil)

;; インクリメント検索
(add-hook 'isearch-mode-hook
          #'(lambda ()
              (when (and (boundp 'skk-mode)
                         skk-mode
                         skk-isearch-mode-enable)
                (skk-isearch-mode-setup))))
(add-hook 'isearch-mode-end-hook
          #'(lambda ()
              (when (and (featurep 'skk-isearch)
                         skk-isearch-mode-enable)
                (skk-isearch-mode-cleanup))))

;; テキスト・モードでは auto-fill-mode
(add-hook 'text-mode-hook
          '(lambda ()
             (setq fill-column 80)
             (auto-fill-mode t)
             ))

;; 日本語で $ を入力した時に対応する $ と合わせて表示
(add-hook 'skk-mode-hook
	  '(lambda ()
	     (define-key skk-j-mode-map "$" 'self-insert-command)
	     (define-key skk-j-mode-map "\\" 'self-insert-command)
	     )
	  )