2023年第19週 (5/8 – 5/14)

2023-05-08 (Mon)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; 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- ")
    )
  )
(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/")
              " ")
   )
  )

2023-05-09 (Tue)

2023-05-10 (Wed)

2023-05-11 (Thu)

2023-05-12 (Fri)

2023-05-13 (Sat)

2023-05-14 (Sun)

馬番 馬名 人気 評価
2 スターズオンアース 1
16 ソダシ 2
11 ナミュール 3
6 ソングライン 4  
12 ナムラクレア 5  
8 ララクリスティーヌ 6
5 スタニングローズ 7
3 サウンドビバーチェ 8
15 ルージュスティリア 9  
着順 馬名
1 ソングライン
2 ソダシ
3 スターズオンアース
5 サウンドビバーチェ
7 ナミュール
8 ナムラクレア
12 スタニングローズ
14 ララクリスティーヌ

外したソングラインが1着に入ってアウト。これはしょうがない。ソングラインは大敗した後でもしれっと復活することがある馬なのだそうだ。サウンドビバーチェは5位と健闘。ナミュールとスタニングローズは意外に振るわなかった。来週はオークス。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; my_close_org_memo.el
;;
(defun my_close_org_memo()
  "insert a time-stamp, export only the body to html, and upload the html file."
  (interactive)
  (setq html_file_name (concat (file-name-sans-extension (buffer-file-name)) ".html"))
  (end-of-buffer)
  (if (bolp) (insert (format-time-string "# EXPORTED and UPLOADED at %Y-%m-%d %H:%M:%S")) 
    (insert (format-time-string "\n# EXPORTED and UPLOADED at %Y-%m-%d %H:%M:%S")) ;バッファの最後が行頭でなかったら改行を挿入
  )
  (save-buffer)
  (org-html-export-to-html nil nil t t)
  (shell-command-to-string
   (mapconcat #'shell-quote-argument
              (list "rsync" "-auv" html_file_name "username@domain.xx.xx:www/memo/")
              " ")
   )
  )