Emacs-Lisp/現在の日付と時刻を独自フォーマットでカーソル位置に挿入 - hirono2021 @ ウィキ

Top > Emacs-Lisp > 現在の日付と時刻を独自フォーマットでカーソル位置に挿入

;; 2021-04-11
(defun insert-start-date (arg)
  (interactive "p")
  (insert (format-time-string "〉〉〉 Linux Emacs： %Y/%m/%d %H:%M:%S 〉〉〉")))
 
(defun insert-end-date (arg)
  (interactive "p")
  (insert (format-time-string "〈〈〈 %Y/%m/%d %H:%M:%S Linux Emacs： 〈〈〈 ")))
 
;;　キーマップに登録
;;キャップスキーのキーバインド
(let ((cmap (make-sparse-keymap)))      ;caps key
(define-key cmap "e" 'insert-end-date)
(define-key cmap "s" 'insert-start-date)
(setq caps-key cmap))
 

実行結果：

---

;; This buffer is for text that is not saved, and for Lisp evaluation.
;; To create a file, visit it with <open> and enter text in its buffer.

〉〉〉 Linux Emacs： 2021/04/11 19:45:05 〉〉〉

〈〈〈 2021/04/11 19:45:11 Linux Emacs： 〈〈〈