2023-05-01 (Mon)

2023-05-02 (Tue)

2023-05-03 (Wed)

2023-05-04 (Thu)

2023-05-05 (Fri)

2023-05-06 (Sat)

2023-05-07 (Sun)

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

2023-05-15 (Mon)

2023-05-16 (Tue)

2023-05-17 (Wed)

2023-05-18 (Thu)

2023-05-19 (Fri)

2023-05-20 (Sat)

2023-05-21 (Sun)

5 6,9,10,12,13,14,16

結果は、

着順 馬番 馬名
1 5 リバティアイランド
2 12 ハーパー
3 13 ドゥーラ

えらいぞドゥーラ。久々の勝利。ドゥーラは単勝15番人気だったので、配当もおいしい。リバティアイランドは牝馬2冠。今後の活躍が楽しみ。

2023-05-22 (Mon)

2023-05-23 (Tue)

2023-05-24 (Wed)

2023-05-25 (Thu)

2023-05-26 (Fri)

2023-05-27 (Sat)

馬番 馬名 人気 コメント
2 スキルヴィング 2 青葉賞1着
4 トップナイフ 9 皐月賞7着
5 ソールオリエンス 1 皐月賞1着
6 ショウナンパシット 13 皐月賞5着
8 メタルスピード 12 皐月賞4着
9 シャザーン 5 皐月賞6着
11 ハーツコンチェルト 6 青葉賞2着
12 タスティエーラ 4 皐月賞2着
14 ファントムシーフ 3 皐月賞3着
17 ドゥラエレーデ 7 ホープフルS1着
18 サトノグランツ 8 京都新聞杯1着

ソールオリエンス軸で7頭流し三連複ボックスとするか。大外枠のドゥラエレーデとサトノグランツも気にならないとは言えない。どの馬が来てもおかしくない。明日もう一度(仕事が終わったら)検討しよう。

2023-05-28 (Sun)

馬番 馬名 人気 コメント
4 トップナイフ 10 皐月賞7着
5 ソールオリエンス 1 皐月賞1着
6 ショウナンパシット 13 皐月賞5着
8 メタルスピード 12 皐月賞4着
9 シャザーン 5 皐月賞6着
12 タスティエーラ 4 皐月賞2着
14 ファントムシーフ 3 皐月賞3着

これに、評判のいい青葉賞1着のスキルヴィング(2番人気)を入れて、ソールオリエンス軸の三連複ボックス。

順位 馬番 馬名
1 12 タスティエーラ
2 5 ソールオリエンス
3 11 ハーツコンチェルト
8 14 ファントムシーフ
9 5 シャザーン
12 8 メタルスピード
14 4 トップナイフ
16 6 ショウナンバシット
17 2 スキルヴィング

1着2着は当たったが、3着に青葉賞2着のハーツコンチェルトが入ってアウト。しかしそれ以外も予想した馬が8位以下と振るわなかった。

2023-05-29 (Mon)

2023-05-30 (Tue)

2023-05-31 (Wed)