shot-title-decoを実装

README.md

@@ -38,6 +38,7 @@ SATySFiには最初から`stdja.satyh`と`stdjabook.satyh`がありますが、
 - `date`（inline-textです。最初のdocumentの部分で指定します。名前の通り、文書の作成日付を書きます。）
 - `show-fotter`（trueかfalseを指定します。最初のdocumentの部分で指定します。フッターを表示するか否かを選択します。）
 - `show-header`（trueかfalseを指定します。最初のdocumentの部分で指定します。ヘッダーを表示するか否かを選択します。）
+- `show-title-deco`（trueかfalseを指定します。最初のdocumentの部分で指定します。title-decoを表示するか否かを選択します。）
 - `+part`（部です。）
 - `+chapter`（章です。）
 - `+subsubsection`（小々節ですが、目次には表示されません。）
@@ -87,7 +88,6 @@ SATySFiには最初から`stdja.satyh`と`stdjabook.satyh`がありますが、
 [Twitterでgfn氏に聞いている人が居た](https://twitter.com/wraikny_/status/1014032946389372928)ので右上にauthorを表示するようにした（偶数ページでは左上）。
 
 ## 今後追加したいコマンドとか
-- `show-title-deco`（最初のdocumentの部分で、title-decoを表示するか否かを選択できるようにしたい。）
 - titleがあるページにはheaderが無いようにする
 - 目次部分のデザイン変更
 - 右寄せ・左寄せ・センタリング
@@ -117,4 +117,4 @@ SATySFi :
 https://github.com/gfngfn/SATySFi
 
 Author : 
-(C) Naoki Kaneko and T. Suwa 2018
+(C) Naoki Kaneko and T. Suwa 2018

stjarticle-demo.saty

@@ -10,7 +10,7 @@ document (|
   show-toc = true;
   show-footer = true;
   show-header  = true;
-%  show-title-deco = true;
+  show-title-deco = true;
 |) '<
 +part{Part}<
  +chapter{Chapter}<
@@ -28,4 +28,4 @@ document (|
    >
   >
  >
->
+>

stjarticle.satyh

@@ -29,7 +29,7 @@ module Stjarticle : sig
       show-title : bool;
       show-footer : bool;
       show-header : bool;
-%      show-title-deco : bool;
+      show-title-deco : bool;
     |)
 
   val font-latin-roman  : string * float * float
@@ -235,9 +235,13 @@ let title-deco =
       (deco, deco, deco, deco)
 
 
-  let-block ctx +make-title it-title it-author it-date =
+  let-block ctx +make-title it-title it-author it-date record =
     let pads = (20pt, 20pt, 10pt, 10pt) in
-    block-frame-breakable ctx pads title-deco (fun ctx -> (
+    let nodeco (_, _) _ _ _ = [] in
+    let deco = if record#show-title-deco
+      then title-deco
+      else (nodeco, nodeco, nodeco, nodeco) in
+    block-frame-breakable ctx pads deco (fun ctx -> (
       let ctx-title =
         ctx |> set-font-size font-size-title
             |> set-font Latin font-latin-roman
@@ -382,7 +386,7 @@ let title-deco =
     % -- title --
     let bb-title =
       if record#show-title then
-        read-block ctx-doc '<+make-title(title)(author)(date);>
+        read-block ctx-doc '<+make-title(title)(author)(date)(record);>
       else
         block-nil
     in