Memoranda Personalia 2023-05

Monday, 1st of May 2023

Tuesday, 2nd of May 2023

Wednesday, 3rd of May 2023

Thursday, 4th of May 2023

Friday, 5th of May 2023

Saturday, 6th of May 2023

Sunday, 7th of May 2023

Monday, 8th of May 2023

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

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

Tuesday, 9th of May 2023

Wednesday, 10th of May 2023

Thursday, 11th of May 2023

Friday, 12th of May 2023

Saturday, 13th of May 2023

Sunday, 14th of May 2023

馬番 馬名 人気 評価
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/")
              " ")
   )
  )

Monday, 15th of May 2023

Tuesday, 16th of May 2023

Wednesday, 17th of May 2023

Thursday, 18th of May 2023

Friday, 19th of May 2023

Saturday, 20th of May 2023

Sunday, 21st of May 2023

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

結果は、

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

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

Monday, 22nd of May 2023

Tuesday, 23rd of May 2023

Wednesday, 24th of May 2023

Thursday, 25th of May 2023

Friday, 26th of May 2023

Saturday, 27th of May 2023

馬番 馬名 人気 コメント
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頭流し三連複ボックスとするか。大外枠のドゥラエレーデとサトノグランツも気にならないとは言えない。どの馬が来てもおかしくない。明日もう一度(仕事が終わったら)検討しよう。

Sunday, 28th of May 2023

馬番 馬名 人気 コメント
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位以下と振るわなかった。

Monday, 29th of May 2023

Tuesday, 30th of May 2023

Wednesday, 31st of May 2023