by shigemk2

当面は技術的なことしか書かない

markdown-insert-header-atx

Emacs Lisp 
# test #
## test ##
#### test ####
##### test #####

C-c C-t 1 とかやると呼び出される関数 markdown-mode/markdown-mode.el at master · jrblevin/markdown-mode · GitHub

markdown-insert-header-atx系関数を呼び出すと実行される関数 markdown-mode/markdown-mode.el at master · jrblevin/markdown-mode · GitHub

test
test ここでmarkdown-insert-header-atx系関数を呼び出すと改行が挟まるのはよくわからない
test

markdown-mode pull request 369

Emacs Lisp

Markdown Mode for Emacs

Emacsでmarkdownのメモ書きをしているから自分はmarkdown-modeのヘビーユーザーだけど、テーブルをいちから作るコマンドがなかったのでmarkdown-modeにパッチを投げた。 パッチを投げて明くる日にはコメントが来ていたので、そのうち取り込まれると思う。

行数、列数、表寄せ、ヘッダーの中身を指定したらmarkdownなテーブルが自動で作られるようなコマンド markdown-insert-table を作成している。

行数5 列数4 表寄せ中央で作成したテーブルの例

|id|name|alpha|beta|
|---|---|---|---|
|   |   |   |   |
|   |   |   |   |
|   |   |   |   |
|   |   |   |   |
|   |   |   |   |

各種パラメータの指定方法はこちらを参考にしており、実装自体は指定した行数列数ぶんだけ | と改行を繰り返すだけの簡単なもの。再帰はしてない。

CONTRIBUTING.mdにertでテストを書けよ、と言われていたのである程度ちゃんとテストは書いたつもり。なお、interactiveな関数をertでテストを書く方法については公式ドキュを読んでも分からなかったので、調べに調べてたどり着いた件についてはこちらを参考のこと。

interactiveな関数をertでテストしたい

Emacs Lisp

interactiveな関数をertでテストしたい

Useful Techniques - Emacs Lisp Regression Testing

ertでテストするときに、引数を指定する系の関数だったらサンプルよろしくこんなふうに書けばいいけど、interactiveな関数で引数を ミニバッファとかで指定する系の関数はどうやってテストしたらいいんだろうって調べていた。

(ert-deftest ert-test-mismatch ()
       (should (eql (cl-mismatch "" "") nil))
       (should (eql (cl-mismatch "" "a") 0))
       (should (eql (cl-mismatch "a" "a") nil))
       (should (eql (cl-mismatch "ab" "a") 1))
       (should (eql (cl-mismatch "Aa" "aA") 0))
       (should (eql (cl-mismatch '(a b c) '(a b d)) 2)))

execute-kbd-macroとread-kbd-macroのコンボを使う。

こんな感じで。

(ert-deftest test-markdown-insertion/create-table-with-left-align ()
  "Insert table with left align."
  (markdown-test-string ""
                        (execute-kbd-macro (read-kbd-macro "M-x markdown-insert-table RET 2 RET 2 RET left RET id RET name RET"))
                        (should (string-equal (buffer-string) "|id|name|
|:--|:--|
|   |   |
|   |   |
"))))

Emacs Lisp 多重ループ

Emacs Lisp 
(setq desired-number-one 10)
(setq desired-number-two 10)
(setq count-one 1)
(while (<= count-one desired-number)
  (setq count-two 1)
  (while (<= count-two desired-number)
    (message "message in-loop: %d" count-two)
    (setq count-two (1+ count-two)))
  (message "message out-loop: %d" count-one)
  (setq count-one (1+ count-one)))

厳密にはLispじゃないけど、応用はできるとおもう(cl-loopを使ってもいいけど) 11. Lisp(for Common Lisp)とフローチャート