defsubideogr

scribble.rkt

@@ -13,7 +13,7 @@
          ;; defradical defcomponent defcharacter defhybrid
          defradical defcomponent defsuffix defprefix definsert defhas
          defzi defzis defzi/puauni defzi/sub defcompost
-         defideogr
+         defideogr defsubideogr
          zi zi-ref zitools-ref
          ziexamples rackets
          short-for-code short-for-racket
@@ -189,6 +189,24 @@
      ])
   )
 
+
+(define-syntax (defsubideogr stx)
+  (syntax-case stx ()
+    [(_ zi meaning parent content ...)
+     (with-syntax ([str-zi (symbol->string (syntax-e #'zi))]
+                   [str-parent (symbol->string (syntax-e #'parent))])
+       #`(elem  #:style (style #f (list (alt-tag "blockquote") (attributes '([class . "leftindent SVInsetFlow"]))))
+                (elem #:style (style #f (list (alt-tag "div") (attributes '([class . "boxed RBoxed"] [style . "margin-top: 1em; margin-bottom: 1em; "]))))
+                      (elemtag str-zi (elem (bold (racket (code:hilite zi))) (hspace 1)
+                                            (elem #:style (style #f (list (alt-tag "div") (attributes '([class . "RBackgroundLabel SIEHidden"]))))
+                                                  #,(r-background-label "ideograph component"))
+                                            (linebreak) (hspace 2) (italic "connotation : ") meaning
+                                            (linebreak) (hspace 2) (italic "originates from : ") (zi-ref str-parent)
+                                            )))
+                (elem content ...)))]
+    )
+  )
+
 (define-syntax (defideogr stx)
   (syntax-case stx ()
     [(_ (zis ...) meaning cnchar cnchar-meaning content ...)

scribblings/ming-lib/string.scrbl

@@ -12,10 +12,9 @@
 @(require scribble-rainbow-delimiters)
 @script/rainbow-delimiters*
 
-
 @title[#:tag "ming-string"]{句}
-@defmodule[ming/string]
 Orignates from @secref["string"].
+@defmodule[ming/string]
 
 @deftogether[(
 @defproc[(􏽀 [V any?] ...) 􏽀?]

scribblings/racket-lib/string.scrbl

@@ -18,35 +18,26 @@
 Originates from @secref["strings" #:doc '(lib "scribblings/reference/reference.scrbl")] and Extends to @secref["ming-string"].
 
 
-@section[#:tag "nameing-rules-of-string"]{Naming Rules}
-Overall @secref["naming-rules"]
-
-@tabular[@;#:sep @hspace[0]
-         #:style 'boxed
-         #:column-properties '(center)
-         #:row-properties '(border)
-         (list (list @bold{Rules} @bold{Connotation} @bold{Elucidation} @bold{Examples})
-               (list
-               @elem{@bold{@litchar{句}} as component on the bottom}
-               @elem{indicate output type}
-               @elem{output type is @zi[句]}
-               @elem{@code{句 􏽀 􏼅 􏼄 􏼃 􏼂}})
-               (list
-               @elem{@bold{@litchar{句}} as compoment on the right}
-               @elem{indicate output type}
-               @elem{output type is @zi[句]}
-               @elem{@code{􏶒 􏿴化句}})
-               (list
-               @elem{@bold{@litchar{句}} as component on the left}
-               @elem{indicate input type}
-               @elem{input type is @zi[句]}
-               @elem{@code{􏺕 􏼭 􏶑 句化􏿴 􏶐 􏶊 􏶋 􏶉 􏶈 􏶇 􏶆}})
-         )]
-
-
 @section{句 􏽀 􏽁, 句? 􏽀? 􏽁?, 􏼟?}
 @eleph-note{@zi[􏷂] @zi[􏶿]}
-@defzi[句]{@same-as-cnchar-but["句" "sentences" "string"].}
+
+@defideogr[句 "string" "句" "sentences"]{
+@ziexamples[句? 句化􏿴 􏿴化句]
+
+@defsubideogr[句B "output type is string" 句]{
+@ziexamples[􏽀 􏼅 􏼄 􏼃 􏼂]
+}
+
+@defsubideogr[句L "input type is string" 句]{
+@ziexamples[􏺕 􏼭 􏶒 􏶐 􏶊 􏶋 邭 􏶉 􏶈 􏶇 􏶆]
+}
+
+@defsubideogr[句R "output type is string" 句]{
+@ziexamples[􏶑]
+}
+}
+
+
 @defzis[􏽁/􏽀]{@zi[山]/@zi[𭕄 ] + @zi[句]. resembles @zi[句], but is specified to be immutable or mutable.}
 @examples[#:eval (the-eval)
 (句 #\T #\h #\i #\s #\I #\s #\S #\t #\r #\i #\n #\g)