bound to <f11> and M-<f10>, respectively.
あれっ、これでいいじゃん
windows and frames. The new option `temp-buffer-max-width’ allows you to control the width of temporary buffer windows. Moreover, if the new
| { | |
| "title": "「ん」", | |
| "description": "答えはすべて「ん」から始まります。", | |
| "shuffle": true, | |
| "author": { | |
| "text": "zk-phi", | |
| "url": "https://zk-phi.github.io/" | |
| }, | |
| "problems": [ | |
| { |
| { | |
| "title": "IT・パソコン", | |
| "shuffle": true, | |
| "author": { | |
| "text": "zk-phi", | |
| "url": "https://zk-phi.github.io/" | |
| }, | |
| "problems": [ | |
| { | |
| "body": "ファイルの種類・形式を示すために、ファイル名の末尾に付加される、通常3文字程度のアルファベットの識別子をなんという?", |
| { | |
| "title": "ボドゲ・遊び", | |
| "shuffle": true, | |
| "author": { | |
| "text": "zk-phi", | |
| "url": "https://zk-phi.github.io/" | |
| }, | |
| "problems": [ | |
| { | |
| "body": "ボードゲーム会などで用いられることがある、大人数でも「あいこ」になりづらい特殊ルールのじゃんけんを、俗に「何じゃんけん」という?", |
| ? |
| #!emacs --script | |
| ;; Compare two directory recursively to find updated/outdated files. | |
| ;; | |
| ;; Dependencies: | |
| ;; - brew install --cask emacs | |
| ;; - brew install xxh | |
| ;; | |
| ;; Usage: | |
| ;; - ./comparator.el /path/to/directory/A /path/to/directory/B > output |
| (require 'macroexp) | |
| (defun read-and-macroexpand-all (stream) | |
| (ignore-errors | |
| (cons (macroexpand-all (read stream)) | |
| (read-and-macroexpand-all stream)))) | |
| (defun macroexpand-file (src dest) | |
| "ファイル SRC 内のすべてのフォームをマクロ展開して、ファイル DEST に保存する" | |
| (let ((forms (with-temp-buffer |
| { | |
| "title": "IIDX カルトクイズ", | |
| "description": "マイナー曲名などを答えるクイズです。曲名は綴りまで正確に入力してください (スペース、大文字小文字の区別は不要です)。", | |
| "shuffle": true, | |
| "author": { | |
| "text": "zk-phi", | |
| "url": "https://zk-phi.github.io/" | |
| }, | |
| "problems": [ | |
| { |
| { | |
| "title": "ビール雑学", | |
| "shuffle": true, | |
| "author": { | |
| "text": "zk-phi", | |
| "url": "https://zk-phi.github.io/" | |
| }, | |
| "problems": [ | |
| { | |
| "body": "1994年の酒税法改正後初めてビール醸造に参入し、地ビール第1号となった新潟のビールブランドといえば、その地域のかつての行政区分から「何ビール」という?", |
| ;; Usage: M-x genshify-region | |
| (defun genshify-string (str) | |
| (let ((res (shell-command-to-string | |
| (concat "echo " (shell-quote-argument str) "| /usr/local/bin/mecab")))) | |
| (mapconcat 'identity | |
| (delq nil | |
| (mapcar (lambda (line) | |
| (cond ((string-match "助詞\\|接頭詞\\|非自立\\|^\\(EOS\\)?$" line) nil) | |
| ((string-match "*$" line) (car (split-string line))) |
bound to <f11> and M-<f10>, respectively.
あれっ、これでいいじゃん
windows and frames. The new option `temp-buffer-max-width’ allows you to control the width of temporary buffer windows. Moreover, if the new