朝のオムレツ。今日はホテルのオムレツみたいにイメージ通りにできた。微妙に体調も関係している気がする。
授業準備。
妻はリハビリ。ずいぶんよくなって、もう普通の人だと言われたらしい。
昼は肉うどん。
このメモはhtmlをじかに書いているが、org-modeの方が何かと書きやすいので、org-modeで書いて、htmlにexportするようにした。

こういう表とかが

簡単に書ける。

ソースコードもきれいに書ける。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; make_my_memo_org_file
;;
(bind-key* "C-c C-," 'make_my_memo_org_file)
(defun make_my_memo_org_file (arg)
  "mode for memoranda personalia"
  (interactive "P")
  (setq delay_hours 3)                  ; count as the same day until 'delay_hours' hours past midnight
  (if (not arg) (setq arg 0))
  (setq filename
        (format "~/Dropbox/memo-local/memo%s.org"
                (format-time-string "%Y%m%d"
                                    (time-add (current-time)
                                              (- (* arg 60 60 24) (* 60 60 delay_hours))
                                              )
                                    )
                )
        )
  (find-file filename)
  (when (file-exists-p filename)
    (end-of-buffer)
    (insert (format-time-string "# OPENED: %Y-%m-%d %H:%M:%S\n"))
    )
  (unless (file-exists-p filename)
    (insert "# THIS FILE IS " filename "\n")
    (insert (format-time-string "# MADE at %Y-%m-%d %H:%M:%S\n"))    
    (insert "\n- ")
    )
  )

夕方ジム。今日からコロナ以前のようにマシンごとに汗拭き用のタオルが設置されている。しかし、使い捨てのペーパータオルになれているからなんとなく不潔に感じる。
夜はアジフライ。サクサクしてうまい。
今度の本は挿し絵を入れるので、そのラフが上がってくる。こういうのを見るのも楽しい。
org-modeで書いたものをhtmlにexportしてアップロードするコマンドを書いた。

(defun my_close_org_memo()
  "insert time-stamp, export only body to html, and upload html file."
  (interactive)
  (setq html_file_name (concat (file-name-sans-extension (buffer-file-name)) ".html"))
  (end-of-buffer)
  (insert (format-time-string "# EXPORTED at %Y-%m-%d %H:%M:%S\n"))
  (org-html-export-to-html nil nil t t)
  (shell-command-to-string
   (mapconcat #'shell-quote-argument
              (list "rsync" "-auv" html_file_name "myusername@mydomain.ne.jp:www/")
              " ")
   )
  )

こういう	表とか	が
簡単に	書ける	。