Memoranda Personalia

No memo on Sunday, 14th of May 2000

Monday, 14th of May 2001

No memo on Tuesday, 14th of May 2002

Wednesday, 14th of May 2003

Friday, 14th of May 2004

Saturday, 14th of May 2005

Sunday, 14th of May 2006

Monday, 14th of May 2007

Wednesday, 14th of May 2008

Thursday, 14th of May 2009

Friday, 14th of May 2010

Saturday, 14th of May 2011

No memo on Monday, 14th of May 2012

No memo on Tuesday, 14th of May 2013

Wednesday, 14th of May 2014

Thursday, 14th of May 2015

Saturday, 14th of May 2016

Sunday, 14th of May 2017

Monday, 14th of May 2018

Tuesday, 14th of May 2019

Thursday, 14th of May 2020

Friday, 14th of May 2021

Saturday, 14th of May 2022

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