;
;  photostream.mac
;
;    author   : nzawa
;    created  : 2016-03-29
;    modified : -
;    revision : 1.0
;
;    ※自分用に作ったものなので汎用性はないが、参考として公開
;


*figure挿入
MILW_UNICODE
insstr("<figure class=\"photostream\">\n")
insstr("  <figure>\n")
insstr("    <p class=\"photo\"><a href=\"-large.jpg\"><img src=\"-medium.jpg\" alt=\"-large.jpg\" /></a></p>\n")
insstr("    <figcaption>\n")
insstr("      <dl>\n")
insstr("        <dt>撮影データ</dt>\n")
insstr("        <dd class=\"metadata\"></dd>\n")
insstr("        <dt>キャプション</dt>\n")
insstr("        <dd class=\"caption\"></dd>\n")
insstr("        <dt>備考</dt>\n")
insstr("        <dd class=\"remarks\"></dd>\n")
insstr("      </dl>\n")
insstr("    </figcaption>\n")
insstr("  </figure>\n")
insstr("</figure>\n")


*撮影情報_機種
MILW_UNICODE
strlist(@str1, "Olympus OM-D E-M10 Mark II", "Olympus PEN Lite E-PL6", "Canon EOS 5D Mark III", "Canon PowerShot G9 X (10.2-30.6mm F2.0-F4.9)", "Canon PowerShot SX710 HS (4.5-135.0mm F3.2-F6.9)", "Olympus PEN mini E-PM2", "Olympus XZ-1 (i.ZUIKO DIGITAL 6-24mm F1.8-2.5)", "Xperia Z3 (SO-01G)")
@1 = listbox("挿入する機種を選択してください", 0, @str1)
if (@1 >= 0)
	@2 = 0
	while @1 > 0
		while @str1[@2]
			@2++
		wend
		@2++
		@1--
	wend
	@1 = @2
	while @str1[@1]
		@1++
	wend
	@str1[@1] = 0
	insstr(&@str1[@2])
endif


*撮影情報_レンズ
MILW_UNICODE
strlist(@str1, "M.ZUIKO DIGITAL 17mm F1.8", "M.ZUIKO DIGITAL 25mm F1.8", "M.ZUIKO DIGITAL 45mm F1.8", "M.ZUIKO DIGITAL ED 12-40mm ED F2.8 PRO", "M.ZUIKO DIGITAL ED 14-42mm F3.5-5.6 EZ", "BCL-0980 (9mm F8.0 Fisheye)", "EF24-105mm F4L IS USM", "SIGMA 50mm F1.4 EX DG HSM", "M.ZUIKO DIGITAL 14-42mm F3.5-5.6 II R", "M.ZUIKO DIGITAL ED 40-150mm F4.0-5.6 R")
@1 = listbox("挿入するレンズを選択してください", 0, @str1)
if (@1 >= 0)
	@2 = 0
	while @1 > 0
		while @str1[@2]
			@2++
		wend
		@2++
		@1--
	wend
	@1 = @2
	while @str1[@1]
		@1++
	wend
	@str1[@1] = 0
	insstr(&@str1[@2])
endif