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
(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 |
;; 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
;; Usage: | |
;; (require 'indent-guide2) | |
;; (indent-guide2-global-mode) | |
(require 'cl-lib) | |
(defvar indent-guide2-line-color "#303030") | |
(defvar indent-guide2-line-dash-length nil) | |
(defvar indent-guide2-line-char ?\|) | |
(defvar indent-guide2-line-enable-xpm t) |