Gentooでredpen

genntooにredpenをインストールするebuildを作った。

/opt/redpen/bin/redpen

でコマンドラインから使えるようになる。

なおやっている処理はarclinuxのredpenパッケージと同じ
https://aur.archlinux.org/cgit/aur.git/tree/PKGBUILD?h=redpen

emacsの設定は以下のようにした．
(一応は動いているが自信はあまりない)

redpen-paragraph-conf.el

(require 'redpen-paragraph)
(defvar redpen-commands
   '("/opt/redpen/bin/redpen -r json -c /opt/redpen/conf/redpen-conf-en.xml %s 2>/dev/null"
     "/opt/redpen/bin/redpen -r json -c /opt/redpen/conf/redpen-conf-ja.xml %s 2>/dev/null"))

(add-to-list
 'redpen-paragraph-alist
 `(LaTeX-mode
   . ,(lambda () "get visible string on current paragraph."
        (let ((end (if (use-region-p)
                       (region-end)
                       (point-max)))
              (begin (if (use-region-p)
                         (region-beginning)
                         (point-min))))
            (apply 'string
                   (cl-loop
                    for pos from begin to end
                    when (not (get-text-property pos 'invisible))
                    collect (char-after pos))))))

  `(markdown-mode
   . ,(lambda () "get visible string on current paragraph."
        (let ((end (if (use-region-p)
                       (region-end)
                       (point-max)))
              (begin (if (use-region-p)
                         (region-beginning)
                         (point-min))))
            (apply 'string
                   (cl-loop
                    for pos from begin to end
                    when (not (get-text-property pos 'invisible))
                    collect (char-after pos))))))
 )


;;(define-key global-map (kbd "C-c C-r") 'redpen-paragraph)