mieki256's diary

gti clone https://github.com/aleandros/emacs-rufo.git

;; rofu - Ruby source formatter
;; C-z f  rufo-format-buffer
(require 'rufo)
;; (setq rufo-enable-format-on-save t)

正規表現をテストして遊ぶ (xyzzy[しょぼしょぼすくりぷと])
http://edutainment-fun.com/script/xyzzy/tips/regular.html

 LINK http://edutainment-fun.com/script/xyzzy/tips/regular.html 正規表現をテストして遊ぶ (xyzzy[しょぼしょぼすくりぷと])

(defun transpose-hnf-link ()
  (interactive)
  (progn
    (goto-bol)
    (forward-line)
    (transpose-lines)
    (backward-line 2)
    (goto-eol)
    (insert " ")
    (delete-char)
    (goto-bol)
    (insert "LINK ")
    (goto-bol)
    (forward-line)))

(define-key *hnf-mode-map* '(#\C-c #\k) 'transpose-hnf-link)

• 関数を作る時は、(defun hoge () 〜 ) と書く。
• (interactive) と書いておくと、「この関数はコマンドだよ」「M-x 関数名で呼び出せるよ」という意味になる。
• (progn 〜 ) と書いておくと、上から順々に処理をしてくれる。
• (goto-bol) で行頭に、(goto-eol) で行末に、カーソルが移動する。
• (forward-line) で、1行下に、(backward-line)で、1行上に、カーソルが移動する。
• (forward-line n) (backward-line n) で、n行下、n行上に、カーソルが移動する。
• (transpose-lines) で、現在行と一行上を入れ替える。カーソルは、現在行の1つ下に移動する。
• (insert "hoge") で、現在のカーソル位置に hoge という文字列を挿入できる。
• (delete-char) で、現在のカーソル位置で、1文字削除できる。Deleteキーを押した時と同じ動作、だろうか。
• (define-key *hoge-mode-map* '(#\C-c #\k) 'fuga-func) で、ショートカットキーが設定できる。この場合は、「hoge-mode 時に、C-c k のキー入力で fuga-func を呼び出せ」という設定になる。

 LINK http://hogefuga/~piyo/diary/201312203.html#201312203 piyo's diary - 記事名

 LINK #{2013,12,20,3} piyo's diary - 記事名

 M-x query-replace-regexp
 Query repla regexp: ^LINK http:///hogefuga/.+#
 With: LINK #

(defun change-hnf-link-uri ()
  (interactive)
  (if (looking-at "^LINK http://hogefuga/.+#")
      (progn
        (delete-region (match-beginning 0) (match-end 0))
        (goto-bol)
        (insert "LINK #"))))

• (if a b) で、a が t なら、b を実行。
• (looking-at "正規表現") で、正規表現とマッチするか場所があるかを調べられる。マッチしたら t、しなかったら nil が返る。
• (delete-region A B) で、A から B までの範囲を削除。
• (match-beginning 0) で、正規表現に一致した場所の先頭を、(match-end 0) で、正規表現に一致した場所の末尾を取得。