一人お手軽 Wiki もどき howm part2

[0400 名無しさん＠お腹いっぱい。 NG NG]

>>399

(defun my-get-date-gen (form) (insert (format-time-string form)))
(defun my-get-date () (interactive) (my-get-date-gen "[%Y-%m-%d]"))
(defun my-get-time () (interactive) (my-get-date-gen "[%H:%M]"))
(defun my-get-dtime () (interactive) (my-get-date-gen "[%Y-%m-%d %H:%M]"))
(global-set-key "\C-c\C-d" 'my-get-date)
(global-set-key "\C-c\C-t" 'my-get-time)
(global-set-key "\C-c\C-e" 'my-get-dtime)