#さらば弁護士鉄道065/平成11年(わ)第238号傷害被告事件刑事裁判の犯罪性 ### Emacs-Lispで自作書式のタイムスタンプ挿入
(defun insert-start-date (arg)
(interactive "p")
(insert (format-time-string "<div style=\"font-size:9pt; color:crimson; margin-bottom: 10px;\">\n〉〉〉 Linux Emacs: %Y/%m/%d %H:%M:%S 〉〉〉\n</div><br />\n\n")))
(defun insert-end-date (arg)
(interactive "p")
(insert (format-time-string "<div style=\"font-size:9pt; color:crimson;\">\n〈〈〈 %Y/%m/%d %H:%M:%S Linux Emacs: 〈〈〈 \n</div>\n<div style=\"page-break-before:always\"></div>\n\n")))
(global-set-key (kbd "C-S") 'insert-start-date)
(global-set-key (kbd "C-E") 'insert-end-date)
〉〉〉 Linux Emacs: 2023/07/26 11:24:41 〉〉〉
(defun insert-start-date (arg)
(interactive "p")
(insert (format-time-string "
(interactive "p")
(insert (format-time-string "
\n〉〉〉 Linux Emacs: %Y/%m/%d %H:%M:%S 〉〉〉\n
\n\n")))
(defun insert-end-date (arg)
(interactive "p")
(insert (format-time-string "
\n〈〈〈 %Y/%m/%d %H:%M:%S Linux Emacs: 〈〈〈 \n
\n
\n\n")))
(global-set-key (kbd "C-S") 'insert-start-date)
(global-set-key (kbd "C-E") 'insert-end-date)
MacbookのEmacsでは修正済みでしたが、LinuxのEmacsでもMarkdownでHTMLを使う書式に変更しました。ショートカットキーと同じEmacsのキーバインドは「Ctrl-Shift s」と「Ctrl-Shift e」に割り当てています。
〈〈〈 2023/07/26 11:39:58 Linux Emacs: 〈〈〈