org mode使っていて、コードを囲う#BEGIN_SRC,#END_SRCをいちいち入力するの面倒だなと思っていたのだけど、数年越しでやっとつくった。さっさと作っておけば良かった。
何てことないコードだけどペタっとな。
(defun org-util-insert-source-section () (interactive) (beginning-of-line) (insert "#+BEGIN_SRC\n") (insert "#+END_SRC\n") (forward-line -1)) (global-set-key (kbd "C-x 5 s") 'org-util-insert-source-section)
コードの通り、C-x 5 s に割り当てた。
(global-set-key (kbd "C-x 5 a") 'insert-memo-new-headline)
(defvar *memo-file* "~/org/memo.org")
(defun insert-memo-new-headline ()
(interactive)
(let ((memo-buffer (find-file-noselect *memo-file*)))
(unless (eq (current-buffer) memo-buffer)
(when (one-window-p t)
(split-window))
(other-window 1)
(switch-to-buffer memo-buffer)))
(goto-char 0)
(insert "\n\n")
(goto-char 0)
(insert "* ")
(org-insert-time-stamp nil)
(insert " "))
let parse element_func_list =
let tags = Stack.create () in
let element_func () =
let item = List.find element_func_list ~f:(fun (element_list, _) ->
Stack.to_list tags = element_list
) in
match item with
Some (_, func) -> Some func
| None -> None in
let in_content = ref false in
let content = Buffer.create 1024 in
let apply_func = ref (fun _ -> ()) in
Pxp_ev_parser.process_entity config entry entmng (fun ev ->
(* let event_string = Pxp_event.string_of_event ev in *)
match ev with
Pxp_types.E_start_tag (name, _, _, _) -> begin
Stack.push tags name;
(* print_endline @@ List.to_string (Stack.to_list tags) ~f:ident; *)
match element_func () with
Some func' -> begin
apply_func := func';
in_content := true
end
| _ -> ()
end
| Pxp_types.E_end_tag (name, _) -> begin
ignore @@ Stack.pop_exn tags;
if !in_content then
begin
!apply_func @@ Buffer.contents content;
Buffer.clear content;
in_content := false;
end;
end
| Pxp_types.E_char_data str -> begin
if !in_content then
Buffer.add_string content str
end
| _ -> ())
このような修正は、動的な型の言語の場合、必要な修正箇所を見逃しやすいが、
OCamlのような静的な型の言語の場合は、コンパイルエラーで検出できるので非常にやりやすい。
satoshi@xubuntu:~/workspace/ocaml-try/pxp$ time ./parse_wiki > /dev/null real 0m0.093s user 0m0.081s sys 0m0.011s修正前は、
satoshi@xubuntu:~/workspace/ocaml-try/pxp$ time ./parse_wiki > /dev/null real 0m3.361s user 0m3.168s sys 0m0.180sおよそ35倍速くなった!
を読んでいる。
を読んで、OCamlで基本的な処理は書けるようになったのだけど、それから2ヶ月の間、全く使っていなかったら、いろいろと忘れていた。やっぱり、言語は使っていないと忘れてしまって駄目だなぁ。
Unbound module Coreとミニバッファにエラーメッセージが表示されてしまう。
(add-to-list 'load-path "~/.emacs.d/els/")
(require 'smart-compile)
(setq smart-compile-alist
(append
'(("\\.rb$" . "ruby %f"))
smart-compile-alist))
(add-hook 'ruby-mode-hook
(lambda ()
(define-key ruby-mode-map (kbd "C-c c") 'smart-compile)
(define-key ruby-mode-map (kbd "C-c C-c") (kbd "C-c c C-m"))))
