From 313c905391ae6cfdcb15a0a341db2bd0951e489e Mon Sep 17 00:00:00 2001
From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 27 Sep 2009 09:56:32 +0400
Subject: [PATCH] Add embedded UI specification language

---
 doc/Makefile         |    8 ++-
 doc/gtk.ref.texi     |  102 ++++++++++++++++++++++++++++++++++
 doc/gtk.widgets.texi |   14 +++++
 doc/let-ui-glext.png |  Bin 0 -> 17630 bytes
 doc/let-ui.png       |  Bin 0 -> 5849 bytes
 gtk-glext/demo.lisp  |   42 +++++++-------
 gtk/cl-gtk2-gtk.asd  |    2 +
 gtk/gtk.demo.lisp    |   39 ++++++++++++-
 gtk/gtk.package.lisp |    3 +-
 gtk/ui-markup.lisp   |  148 ++++++++++++++++++++++++++++++++++++++++++++++++++
 10 files changed, 333 insertions(+), 25 deletions(-)
 create mode 100644 doc/let-ui-glext.png
 create mode 100644 doc/let-ui.png
 create mode 100644 gtk/ui-markup.lisp

diff --git a/doc/Makefile b/doc/Makefile
index 7259322..099c2d6 100644
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -1,4 +1,4 @@
-all: doc.html tutorial.html gobject/index.html gtk/index.html gobject/style.css gtk/style.css
+all: doc.html tutorial.html gobject/index.html gtk/index.html gobject/style.css gtk/style.css gtk/let-ui.png gtk/let-ui-glext.png
 
 .PHONY: all archive
 
@@ -27,6 +27,12 @@ gobject/index.html: gobject.texi gobject.ref.texi
 gtk/style.css: style.css
 	([ -x gtk ] || mkdir gtk) && cp $< $@
 
+gtk/let-ui.png: let-ui.png
+	cp $< $@
+
+gtk/let-ui-glext.png: let-ui-glext.png
+	cp $< $@
+
 gtk/index.html: gtk.texi gtk.ref.texi gdk.ref.texi gobject.ref.texi glib.ref.texi gdk.enums.texi \
 gtk.flags.texi gtk.objects.texi gdk.flags.texi gdk.structs.texi gtk.interfaces.texi gtk.widgets.texi gdk.objects.texi \
  gtk.enums.texi gtk.main_loop.texi gtk.structs.texi
diff --git a/doc/gtk.ref.texi b/doc/gtk.ref.texi
index 4b159af..e3ed077 100644
--- a/doc/gtk.ref.texi
+++ b/doc/gtk.ref.texi
@@ -6,6 +6,7 @@
 * Gtk+ Structs::
 * Gtk+ Enums::
 * Gtk+ Flags::
+* Gtk+ Embedded UI Mini-language::
 @end menu
 
 All symbols of Gtk+ binding in cl-gtk2 reside in @code{gtk} package.
@@ -44,3 +45,104 @@ All symbols of Gtk+ binding in cl-gtk2 reside in @code{gtk} package.
 @chapter Gtk+ Flags
 
 @include gtk.flags.texi
+
+@node Gtk+ Embedded UI Mini-language
+@chapter Gtk+ Embedded UI Mini-language
+
+For convenience of specifying widgets hierarchy in Lisp code, the @ref{let-ui} macro is introduced.
+
+@RMacro let-ui
+@lisp
+(let-ui ui-description &body body)
+
+ui-description ::= widget
+widget ::= (class properties child*)
+properties ::= @{:prop-name prop-value@}*
+child ::= widget properties
+child ::= (:expr expr) properties
+@end lisp
+
+@table @var
+@item @var{class}
+Name of class of a widget
+@item @var{:prop-name}
+Name of class's slot or a @code{:var} for specifying the variable name to which the object will be bound
+@item @var{prop-value}
+A Lisp expression that will be evaluated to obtain the initarg for slot of a class; or a symbol if @code{:prop-name} is @code{:var}
+@item @var{expr}
+An expression that will be evaluated to obtain the widget
+@end table
+
+This macro creates widgets and evaluates the @var{body}. Widgets that have @code{:var} specified are bound to lexical variables with specified names.
+
+@var{ui-description} specifies the hierarchy of widgets in a window. It can specify either the entire top-level window or other kind of widgets. @var{ui-description} is a mini-language for specifying widgets. @ref{let-ui} creates specified widgets, lexically binds specified variables to widgets and evaluates the @var{body}. The @var{body} my refer to these widgets.
+
+@var{widget} is the specification of a single widget. It may specify some properties (slots of objects) and their values (the expressions to be evaluated), a variable name that will be bound to the widget (the @code{:var} property whose @var{prop-value} must be a symbol) and widget's children.
+
+@var{class} specifies the class of the widget (e.g., @ref{label}, @ref{button}, @ref{gtk-window}). @var{:prop-name} may be any slot of the class. If @var{:var} property is specified, then corresponding variable is accessible in @var{body} and its value is the widget on which it is specified as @var{:var}.
+
+Container widgets may specify their @var{children} along with their @var{child properties}. Child properties specify how @var{children} are used in @var{widget}. They are specific to the type of the container:
+@itemize
+@item @ref{box} specifies @code{:expand}, @code{:fill}. See @ref{box-pack-start} for information.
+@item @ref{paned} specifies @code{:resize}, @code{:shrink}. See @ref{paned-pack-1} for information.
+@item @ref{table} specifies @code{:left}, @code{:right}, @code{:top}, @code{:bottom}, @code{:x-options}, @code{:y-options}, @code{x-padding}, @code{y-padding}. Of these, @code{:left}, @code{:right}, @code{:top} and @code{:bottom} are mandatory. See @ref{table-attach} for information.
+@end itemize
+
+An example:
+@lisp
+(let-ui (gtk-window :title "Hello" :position :center :var w
+                    (v-box
+                     (label :label "Hello, world!")
+                     (button :label "gtk-ok" :use-stock t) :expand nil))
+  (widget-show w))
+@end lisp
+produces this output:
+
+@image{let-ui,,,,png}
+
+More complex example from demo of cl-gtk2-gtk-glext:
+@lisp
+(let-ui (v-paned :var v
+                 (:expr (opengl-window-drawing-area window))
+                 :resize t :shrink nil
+                 (v-box
+                  (h-paned
+                   (scrolled-window
+                    :hscrollbar-policy :automatic
+                    :vscrollbar-policy :automatic
+                    (:expr (opengl-window-expose-fn-text-view window)))
+                   :resize t :shrink nil
+                   (scrolled-window
+                    :hscrollbar-policy :automatic
+                    :vscrollbar-policy :automatic
+                    (:expr (opengl-window-resize-fn-text-view window)))
+                   :resize t :shrink nil)
+                  (h-box
+                   (button :label "Update functions" :var update-fns-button) :expand nil
+                   (button :label "Redraw" :var redraw-button) :expand nil)
+                  :expand nil)
+                 :resize t :shrink nil)
+  (container-add window v)
+  (connect-signal update-fns-button "clicked"
+                  (lambda (b)
+                    (declare (ignore b))
+                    (update-fns window)))
+  (connect-signal redraw-button "clicked"
+                  (lambda (b)
+                    (declare (ignore b))
+                    (widget-queue-draw (opengl-window-drawing-area window))))
+  (let ((area (opengl-window-drawing-area window)))
+    (setf (gl-drawing-area-on-expose area)
+          (lambda (w e)
+            (declare (ignore w e))
+            (opengl-interactive-on-expose window))
+          (gl-drawing-area-on-resize area)
+          (lambda (widget w h)
+            (declare (ignore widget))
+            (opengl-interactive-on-resize window w h)))))
+@end lisp
+produces this output:
+
+@image{let-ui-glext,,,,png}
+
+In this example, not top-level window, but a widget is created and then added to already existing window. This UI also uses some already created widgets: @code{(:expr (opengl-window-resize-fn-text-view window))}.
diff --git a/doc/gtk.widgets.texi b/doc/gtk.widgets.texi
index 0966de9..7c4604f 100644
--- a/doc/gtk.widgets.texi
+++ b/doc/gtk.widgets.texi
@@ -427,6 +427,10 @@ Signals:
 @itemize
 @end itemize
 
+@RMethod box-pack-start
+@lisp
+box-pack-start
+@end lisp
 
 
 
@@ -3076,6 +3080,11 @@ Signals:
 @end itemize
 
 
+@RMethod paned-pack-1
+@lisp
+paned-pack-1
+@end lisp
+
 
 
 @node plug
@@ -3730,6 +3739,11 @@ Signals:
 @end itemize
 
 
+@RMethod table-attach
+@lisp
+table-attach
+@end lisp
+
 
 
 @node tearoff-menu-item
diff --git a/doc/let-ui-glext.png b/doc/let-ui-glext.png
new file mode 100644
index 0000000000000000000000000000000000000000..509927775d35799b9c5752884b0045c3a2b51efd
GIT binary patch
literal 17630
zcmeIacTkhxw>KIqDo7ClQHoMTq$!~Yp(q^`klq9oq?gb`3sIEbr1vIGr1wswcL;>u
zLhmH>k`Qv^_sl&r=braHzkBB1^T(aJPx4HXJ=trmy`HuA{;cvmLGM-M@7{TM2LJ%v
zRaB5s2LP^I0037hZe1m|(9h%Si62*-)#arC#e)o+#2+_J-pb1W2!CH0O?lD8mfH>r
zdd>g<DfQp;3Lq)v0kM(9MNwInWa{>#8_#a5<$YBK03HJrW!`AIPw&n_ycx#og!k4(
zfE8Lzx>06td7Z$uUzE%4cHYo1K{{@D+|GO&LwZHZ-oEyF)E{=XuWaAH-+N3vJzZOF
zB11_#JLjAt3$4d?f$NR1er+rEzL>`baPWnr+`-_^PU51lMVbhx4QMgQ1^{e4IwF^(
zIH~-p1^|#h0^#*GrC}e6BLa&>90Aj}01Ku2f0m#!mCZfL_pr-O(1{dXDVe)>k1bgN
zU#>+3x6(52nUO2sz7$$-^3<lH60gl3AB3ifIOnFG?bo6<A8447Z7z24hV49HnEx_B
z0e~vWsHaBg>;y9G#UcY9;2V1>Q3s9WhPau$%wy$w8IJ%F&y8RF{<9axH79$~1nhi6
zfQ*m{1>j3FD`loAb5UXFg##K;BV5s-gPry{9iKP7Nsn(_5o#XrSUze=8)qKm0sksl
z%|_nH8TG$Qf`;p8YEn`GPrgb=+$nI?`aRGhf3*JY(k%{AAVL1;jq9O~wj6JI8W&IB
z#PlpagfBe}w@#y+7s@YoVK-=_<S~D}3BRn}BrPm?nZ>vv-lBjv8q`eRjdX1{B?&ZP
zeHghtmUxJUXJ%ttV3&(lykZ*}JDc~ot2{~y)lFsryrb}OirC7PtLIvhDlwX2MU@4z
zRdV;YQ=(g>okTQn4=I#KN1k#S{9-SB#}faIw8G>4(?{A}cds|4P|C=V2NZBXjlgoW
zYSEO#+3(U$jhV;XfXh=FA@zyzfjd(}Y5Mom+0TU;*TT@g`=oX6I17qnrkib?mt0;8
zyC@?C43RE|6Rw$7^~5*Q!7Yu>({KrAp$uOSk8Hf?Fuu%=tDSt@v66#Vj(zm2><v&?
z@~onYiKj(9SwEcNP!eAMNB81_4>tURoje5>tf@N42;!a^FuGJ??lM{n@ATQ)z@&;D
zCPYb<*v?h0FI&vR4tE<Fo?q&d>qMQ5T2wJRw(M7gGwbRv{IDz1+OBEFosEYjLrum*
zNB<6ywxNFdkhkRN_2?}zj4R}lb9Wm9#|NLaA_s9p6gE2^e}6gW(on0dqu7R$yALN>
zMjCCbhX1U@nwrS=O0Z4#ZJ8Tw@YF6x^k<8>|AI}G<Kn&xy!838_e@KRk84Kr$0Q=(
zIPI51{;}8R5MHH}-}8CdEz-CkbsZB8h_3HUjLk_m?YFn7niIL)BosU&H*byIYnaaF
zKG&mBW_ZTmYHjdMi`gVcO)X73Qr1(Zc#hTJE*g`q&%91|N4`LdQS(zz{TsZKtSl`k
zq4i2#(VH>9n2wm_o;QiQ2UyXU5`5MCtFzh`J_}g~m(wqVli$?kD&3r$Ub#2!%ZQq8
z3Hqiyclp7wcaC(8OxPD^U4t15k=IOdv2i5qSP-zP5TV^)N~njKudxxxGERokT1lY5
zda<(#Jw|<($4jE%_Nxk|yzta&x8<#Y5v1d_mc<9y{z7u=`D_HnetsK$fyCDs4=<h#
zd(01J4jIaJhR<GQc{o4a$j%iI=wBtol^+wuLWP}Fq)3$p0D(QF7avj_u^9Vj#XfuK
zurv8+wMba!-FPNJmcGEVM>Vz{=M!8IMvq>+aEw4xosa6iuVS0bZaGZ^!OiRO`^6yp
zol$nNCJtPv$0_Q4IpNr~Ay`%1DccBcd(H|!udFi}Iff_9qTUD)c5v&-V?&Z&7%=1r
zv^*IyNN<!jRFn*N--R&4>J>kyzdXHs6#U3Yuf}2l65e0nja`iEiBD4>Ms4RhwB-(f
zB}%R5)}Dxh2PBq%Z4WZNtevFFN8wxg2Bi5?Vk%eY(te5IIfU=)NS;NY_y+6tT9{QW
z&-X5w?W_;ZD|ij}{^aNx&*F#R&5TU7dkHHwMhzaeUmf_VB5A5m*7_46{SNZDBnS+$
zy)|d|{IH!G+=vex&QpC@{n=_a^v0%s*62Os&wMFy=w%nn;MC^V&TBhUT@kK+kV226
zuD3cmUW_X>PUU^&eNMIfvyRu^lu+Q^u|eN9HY=1sC5%%&J7?kW$GeT|j2fPVU7g92
zci}i37{1hKssw_Ae+tDC7mAz<piP@Wa!|L*MdYqs5~b8F^GF6PB82_)7-{>Nvq$pc
zr)eI=OSt=|j<<yAO0I>00ZN(RZo!Y!uXihkB<2fm_De1{tS8w0*2>ZI4aV<2PgaYp
z@WQR>Ll<VP4#Q0fn#~7#_0w~%#u}iYYe)+10H^hI_jAEzrD-=_sGCjSm;DeQQCD3_
zIGgOsLjiE>3ulZ)x=<4Rl;=P=giyUy#U2)}Mm<<>FH`LNO$fF|;q$7Dr2vWqZBOhz
zRsF^5+H=_ssK!o@rPqkwjEms50XvHXs17;{q753FdDgS_80S3|7HMIXimjiXC~>TK
zO&Qm@+l0Xm9(PT4b37Wy1a0`q(p)2ptrlFl={T~F!YnOk3(0DbI!>*$l2J|Wk0jj{
zq$asVrT+E3#z45CT@1scNkfXeB(XkaeSn{bjr(`u8<SV|B~!h&t=7%fWV^^W9RAc2
zPPk|pL63KFoiL=KD$2+4!Y)u@LLmQs8Ou}iPZJ&p;N~h6r(%d7?RybC<#4N<#jYxB
zX2MPv`wJD7c%GHeJ$pJhl1I=5hgV}!k`*q!e=cC70Rta|U0t7a{WdH=EAu+>9PFm|
zlqUG{*PPhz9_XB^B&%6^m!We|!Z%&<8^#pfVWUm>cr!kjO4|on9bN|S(a8v-r%%<D
zx#$Qd77f#dKi}<l{EpXu*W#%{Lm|2y6BRWQ#e*&UTK9YNn-}4D@?Onb-J};*7N2Z;
zcxaRL^5iAc9~XO<{I(kZF&zEjt#pp*%{qOFner+L)BeIiFuq3v<Ig{(%$8H^G5fHu
z6s~yhk#9_2us}`X=U4n<Con*&{_>RFH;WwntIed=(ng~&t?VLRDeDH;&K=b33%2NA
zuB!#`W*&qUah=hcS1aQug$RPDS6?`*uI>JQHu`Bkd^MHVoYuD^H<X*@A>ExKh^QpQ
ztMlfyY&J#Oq|$7^0a!QleSsW1pHKL>Mft(AMS7s3pG`F$mj^E5U<t0A@KfMhi_<m^
z3=JiVHw7DfudlTql39#v^2ry|{u9-nG#Jbfl*yNZak*ImbakT}YFhtYH;lT;PiiRl
zJ+L(_`QcS3&9Yy1k|ryw6HFpLr4yMisnjaW-RJZYMM<_Gm|>@5M-QolgOJ?zD4d0J
ztWrwK+6`gbIc;I<qsY~){)3VJ6GjZiX54UdewwmZQ|4Wgxf1M;dh6bb<-52g2L<7B
zpi8jKG(IX2St;jV5fXu{;|ye_N*_|U{Y<+R+-QwEp@^%?W7P4*V<_)JdB&G%m-1H|
z>OEG^fxWSnKP$S!51+c3MCQJ0mvWKBX!Jo`YsqaVPKVOfRAd;}#2u7T=mp?m!j}lY
zr`J^ll=Brh-|7Y5u;Jz|M<69*Jh5@p+BEY6J5Hpl%8eN@64<@83W;tWE(ReBY~4CV
zlAF~0$wS$dZq7c$DDM<zgF!e^YxisETk4YoQ5Pl?WRzyF$d`{fF;Mkqr}C|yZ<A#&
zu{5v`*hPC}8s7&-fjp|nsHZP)%!DCULh_X97YG}wVD6bU5$yC7@F1`)GfqgOuHq(n
zX`KBGWek<_D;blXvE8Jjr}F}R25_%k|8dp`Q4{+}t_my6^iVccxQowrce5|U0Bb_f
z2i`cX?T1igA4%$~?1fa-=TQFT1nRE40{z%&J1r`vsA56y%wkEEfZUHyZHBh6C!5~_
zQusf$AFOUqprLA>{)}2tsKpPQ^<QTbu?gN^)x-j%lnH-W9W=dZJ5txHa>Sj88jZ$i
zccO&PrHWH=bo~rOn^Y0UtF#PoTR*aKQJ&b1OiIe#9JW$M-VI=Nw3OO7-9khte`a{O
zJT0jlL>W0%zt)noZDR2yu8`iPt@V(xYUaeh@f&}NtsgW_R)+14YJzi4&2xSi%S2GE
z^H>@_bHs$T{<R8@i81eP-#Y2{I?Iva_4!(_zL|8e2Ly~<$)sM3u!5CHq$KLR<aM6G
z7~|Mn=PlC>AJk>tq~Lq`Oy<7TT<vF7WHyxsVY@Iit6<vMnT3zXqxz*s&!g(6v`Yv4
z826I;&F{m~<(h|H1~p^%S9`Gosq>yVOnj4$&dMj2k(B8_&=AS<jqE7BX!H4_jc&uc
zp8J8V3|UY-TnB99V3uPO);X?_O~TCKcE)AxwVt(F@pdgD)oE;58UnToU%4Mw|E#V&
zy8P?q-sW$fwn$u4?5i`XS5l=hDQ@${;q>B(6Dk*^5zMx#?Q~-v|ELrrZ21Ra|6J3&
zou5@(=THh93Ki$7v3<u&r8ZdyVwG@;4=P+s`na~atSZvOE@kI6??E_^PnPNes+ArT
z9XF7Kia$lo;yQ!#F3naR)afVnW1NyihP3LOr<Oihq>mDQ0iBvaLeQh$r~tzj;NU}v
zbwZdxa<Ut&{FA)+e&AVS8aJ{G8>E$GFXnWR!$Hf7(ySBK{Ln4KOGxfxcDgwvX3?Gy
zebDCGfU+{1uVeM-0Yz!QreklpYfv*0(T`a#@CK)=hVPUd+j!XNb=BB+J5`tuwSG_^
zEkDjNFtTjiNk~KnbIJX#7N0?Rt~E`dc)Mw<f=4RlicP(<5BW7DR1P+^?K4ZxQw`GX
zYF84dEy%gk6Bw<m=8w?<T<LZ~IlzIN2iUed1V_d@;?Osn{wTK7wB?FlC9d-!Di5rO
zyoPTN7osncS3Iagnm%8)&!}*L!8SpJEuJ(eGOXrkPlycewIJ*~2AaI>Sru62DQ}sc
zIJuEn7tVS(hD}|h&2t=m+{PGaJ82>0ulc=ub)@$|CR*2FN%<exbA(B=zw_M8vQ3H6
z3>`xj^~71r_IBc8yNg@<hbmwr>P0xWu#@1}JcFK&O?A>|_b{u~dbDuOXp-O+v)d>2
zl_OGFv!&Wy>t^ayHU_TQ<%ZVwMcwbmik>%23bLoOUUtXnS9F$ew|Ja~2jOL&S@p=%
z?B^N=`TbDW^7@uu_1q%&@Yh%Uo79nau%gY!3!$S|AnIcn3NVV#fTdk@)m+4%&N?x!
z?&(pg-lhTTz+Z(bX;5-j!9~iOhNqd;)l0kBgPo2J7zXTer(PqmHsm|?O|i($^X2mC
zzP$Cdm1EFCNb>0f-a{4{+ePOmbqRJfVmZKFgPp%RinVWBa1m8QN?w0;)WeGWP?j$G
zTw82U^r_aXs1dPp(FdR~*A01cp>m|%rvWpzxF2G>0^tl+Y^(8ywI3|hsoGvXA-<14
zh`i*Z0v#=WJ6bGb?&?GhZa<K0e<^Wpn!_vN@uXcWqdyvJdCM)&W1E~g2uD+orOCZe
zd1`old-S1IJZHV-9hS8VF$*6fRbk2_{WzLtC-W9&lwGa2=ql}f$YF1;f0AU0WxbR6
zS2MreUl-MDyTy$fQdRKgQ#6y$*_%p|NSJ%vHxuM+O$eFg-Hmtpv{X~)Z%0S*Atfn#
z9~Ix~4;w7N3=ZA6F=tS_$sfe1g2syD?cG1ZE75T@cW!vKHSX><^Y(!N07R3+t5M`(
zhsqV4-N0KJ&&!3|L*9Egs+j?QKJmf!uBQgt6J`Pi?h4Ap7zBce!3_rcq^(mbwcYvN
z0A?SB3=seTOa5H~0FYt^04T8lz!wAw0Pwfr@zE6kAd><BxCI3OUT<9ckAL}34gaFg
z|B}dm(dU25_<!B!zZUlYoj(6sDgS}bzffc|y=W2u8~8I*-u+H5nQHZ#Ls_mt<`;oB
z?N=EJk?K-F7f9zCgh^WZiWKvL1Lf^Xe>_hTvVhcZLuFvoEVB%e5Eyu$(@f8l?gJQW
zAl!u45uhV#f!q#P0C6|ihPr|n(im7-ha4=nipf5`@-x4stf9o&7kVA~)ql>Ci+KGQ
z$YUy7?ZT*xD=eou$nwlz=>fkZbZ_NkSH9!AZ&^I^&Hw6mi9d^fFsEK(Ozb>dJMobj
zIaY<6{Yg-<AKL8`<H6d#ZI9$IuhaYRmL=&i>Pm_^*_v@yvc3x5uT_~BUbIVX43e3c
z4^T=`mc^JG?D|xa{gqJM6z-h5wnxdy!jkiI4y(IBeTb$}wNi;-WmSc^>mn8NOH1<W
zXmh-YG9H<%YOGn@rx5%mL4R96GJ}jHM?f+EWO`T1lDkrOu)?rgO)2p!Z6@gOdAP}3
zCg_6{gp!oyAb|?<CNUTE9Zl&k?OZDf+pMwtM5N}8^JntPMWnW@CB1)Zn31oq*f#?%
z%>}taa#I)fGgOllZ_~E7I#`tF+SCI@UF0E?%SSntWZ-am>xeT09^mJj)6a9$kwz7U
z&b5N^6Al*iXl}B35~7x1`W>N%Nn8_2PmG;+)5;YO$-uM~o!o(mK|w)*)OD)u{cegJ
z*oVp%PjolhxpO)qDMQ*FrC!aF54?}dFAOa2-zj%gQdF18J}H8-=2>R6CEK`{1B1DQ
z;D^tuZxFTCtk)JU2{+$;WH%5dBXG9im$djf69|laY_7s4(RJD7mIMU8q$c$Wj!{>?
z7s=8SwcKaHa_=EE7p)R9Hi|7rJvioh;)|hX1L?8f@kBw*SLs9=>*}PRf(=hbbuQj7
z4>cwR<y3xVV;k6`1B-pXdzUz4w<NI-)O%Gf%7dH*=31m`a64tZP<2&F&+8veyppnp
z!5YB|&-0hmRLcxrQbw}K`s!H~em9X-ij0y8j%AU(mYeoQiIe@b(7O{=3If(VE^u)f
zTkoUTs<=;)9;L=VyZ8CFGF|IqbAHy$aZlAZ=Nr)_^JmlFCTI5sT3$h4U0;bMGs#ST
zf(q25qgG=>^h%jFtPk3%MpL%?>XlOV`|ADpX!6EQSkmoYMhuI3b~e6?=~qd%x?6l2
z8z&9(PPA?_LU*IkO3JcuQwrFdmu~E~<DuP+sx*xi20Cw)Ssd?G+$Vpy%*hR@t#HZH
zfmm>|SjqPPP?eKP7bkGBNf7m}@Ib}PugKvKSyjZV{iV>KPg>$c?+u$kSvF(^u$)x*
z;a(M`eU5pQj@zk`n!q--BQwabG@iNWF%@Y!1t4iKiPy#AJd_mg11~Rx+88s79fL?D
zJdc^TIG-U?>02Gj5sIAjxBU$sO`q6J?YEFlB8cloM&pvxfWuUc;*ZE5^ao{#M*Pif
z|Cu{g6(1YqhooNEaDT^lh5Ov|{Z0$I_k!J8EJcA3W2JO%c46{`vh1=sZghXb5B<Qo
zcgzQl!W_z846v?4;mH(Hu`@%d#=jf*cf3H<oK|xEAHBSGPnx#lOr+ajH?6S<T*Emp
z$Rai-j=p^RI5=h`)n9m`InGAbx79)IV#!Xdh9>9j;UvMa7fk;6I2e2p_L<FAb%iV~
zK~$xZRbKlmf{|#I${Z~0Jiy6$?IsV5MPF&`l}rk#%6ZIr;pV=Rw~Mdr_Iy}beenC>
zY%{rrMI}zFTgt@gMlM`Yx~v-+3<ZXOI+}y=InPAu>Tn4W6eLQ@-sbe=-}SfU`kUJm
z^%P{Z*<P$n0wIlr59?-TbTJz$5eP<ZmnSYPQQB-vHd0I1q?pO2&7#+>>NOsaf2#ey
zR!WNAUpySX9jvvm+agqE-vEMrY@_STs={rMDk#29YFCPiD&&re5=`~$l)9DKMGhbu
zZQIxJrbmbV%E~=%u@8@)+o8KiPF`@3Q`)Y(;_3QG<(cwC#1irHl$=(2N=Zuk{-BCO
z-$r`9dXUBjc_w|K)yWML`rCE}`>H#Sz90hH*f%%^TtBZ67dZrjl<>|Kq5Vrx$Vy}k
zLxXj1kgf98hndyXGhJM}C4;Pzezt;jaBN5GAhbv7hj^pBr9X%Zb~ZemMfx&QQ@vB=
zc8vP-9UJnh(HjOfAzcG1;+*fZHT#N>>Dk-9qd&3)r}^EQbD(8@nI2O~!KI|cu52b7
zIN7Y`%pcKJ&>)tC{yg_lxn^5!grBwf=?>dp=~@uWgF=mUQjlA7lu{PTrVXcz%HHAR
zscNa{AX@xQZmRsr_YY-dPW+}OT_<CBC1okdvSZk+qN0@a-HxIW_ep8{x$kof^5`P7
z@~GauD{N>?yHHocOMx3v={k;@g|yiwG`NjGRd%x@(hnmnoV!`nq%T)CkkJ84mgMp1
z{?dkXDd0|4eCYMz0pe=PaB!2+BN$ll8e(BZ9*-bv*tVkx(@}~nj}h4Atrn2hewAGq
z7?WH6j-AIWafE-DMe%@{i{XC#w`Jq}uny?XgFj^<<tds!)UvaqWVjW}SX%m(ZkcB$
zB>DxXYW<poGz2DUE<G<*njL)NdG|Ftx!Ukcd@p))ro`+i4da%nd->AcsKitYiisem
ztFCRA+Fu3QCJl&CD8O?meP@twjKO}ufpqS1&dxKP?Ea4p^tQljyV`7)sQbt}Bt;Id
z<$Om%6}WyD23E3+gto`8^>U8P=}AFkFn;tr*MrVvH9=9P-}X!$(_J1YEV!#0mgDh-
z?sC-m+1n(~PqtKa+_iR6WL!U#|6GAs(C*(+mD3JK4+`u^XF%_dy3k4`MV=(>PJa3;
zkC41vTI!jMl3eRZ@b{TyDZ9Jor94YEL1)P<Uxm0B0wo)Md!=2qxM-*fB5zLpeLrH8
zylpqyS@axjW2ly2HfTuTXADoHdWPG`N(hX>-+0;Zrm?QRuRugRX>pXno;Z2XA8EDO
z0^fj$Rw8Y1z7qX??W2j6e-3^4S#n!*?rT%6jQnY`>eCk+%TCz4l=Urz?7WLn3bT>{
zpwP^B=OW{qD%2CR$Wx41ZQk~%>gK*YX6D7t*<muIcs#|Zp`YC)&%9Qkt)noKa)j(t
zz!l=PpB4y67F1T!;H23XBuPH0+MT&)kAjstG8-l>hPv*_?)<d*S-~7O<<2gdV~~!;
z7orcE1H`d1OF$08zSWp@M_CG4w|x0h1Y>x=_uS%>OyU+(Fa1DeV9_KqGG^BmRMtks
zy5x4f{5fWkfeCMnYnwPH)em#1(*wURvQaTE(R0Ogq0{05UBitLyPAuN`TIw;-N@xu
zl>i?fr#;}*a!g9%4Q>I@QKI0dSAuP_-2Dy!VM8MHV>rmBQ5(^WEA6VGB*mFuGnP^r
z{?eYxAKhF`(?G9cTdM4&DtQT;wNrphZDTG!BFg$uR+-P!&XhVR)CwE;6*jo918wS~
zbxRSSUj;VZpu{>n`0k^d^a*EfL4<>O6N^13RaHJgva*LSCCby5#u!z61n%UF@7HPk
zoRM}Ok!fUEDi%E$M$KIF9=R~BKeF(0>{sf*;iMoIo5k-;SjH3dHvFS#U)D_6x6NNg
zvCNuLH#2E>^9__n(NdAlAq?sLIdE^eIe;ALuJVNue6Kw2n{U}sMWLfmS|n*mSvTxs
zj98@TYmLaQo~^ENWU-t`N+D<`6Lb>!hpbWyddYM``+B483Ez@UoOxi332m#xmP!PA
zu%CxlazlK?!O7dwoCO^X=j{s$FmyE8QyFncy%rCCC4$mgmzH8VHAVGo?QIofP>Jp`
ztfT{<B)_NXQAVmizh~J|eDxOe6~icI{<GiJkzh*BCu9Q-#4%ZzU$*deHBTq1cP_>h
z)XW{PHqa-RjNpIOi;yZ{Yc`P8qC`cc!Ftt{Ccn8UaOQBE1fLnyG~oo?Xo!-2YQ1w_
z=<r@KM9}a7?_BC9cW2yPCa?FTpOn`p4@>V=rL;rrL9Qnap>`^$4ot2Ra<NCxkn#5D
zm3da5!h<n;osp=x{Op*;40_8Jm8&Sx58ZwxVI}r?Ye&}P!Z!YhyQyMCGZPCOY!+sX
z4m6PlE;F8v`ucF&H_+=0^$<{oubl%tb{h5}bnCy93EPyocm2KmihA0wDEF%t$Zfu)
zNib;ZpG@2^*y{h7T+YJnGJbb1b#w1?e0b`78@r`HmnXF#?WnArbAbGudX4yLI86#U
zXX?p8;TFqaLt|XQPl{<R&VYO7EO8?O-<ln8KE_b?6H4O17m0w3YjoUF)^~)AsA!!N
z#`)P1N1*3@EIDMUr!wY<18b%;mKiZL7yfILe+oo%)W9&2^=vNIAXYSa%S7&}IS@f>
z4?Y^x)`m7;Z6JAkwCJ#G13nzHrx2RZ{{)Yswed$EJwU&+kemN=n}fmqvK^VP?lq7<
z2N|m)q(9qq8KcG|U>RXKnn}yD0xenxj&C}A<VotUzLr@$kux3$-{R9YL47g0DhNGG
zszR64Fzc<F5Vxqp&3dl3X0ZNLw#e7DBrM~013IN(LwQWoDcjjPRe~Lsm5RScF|H|7
zc;9i!Mo%e!(o2@PElN!4S27svD)!8U=KS5PQB##0PJf5y@7AaH)|7{Ip!m<Dd4_Sa
zft*N$F47MzFsnEAXdd&FXp!++snW5?7&YC<r43=Q*3ocn8OwWXr<qh|mFE6}pQx#@
zfnQPJaiqv8C>9qzM4_&F%Qg`oz<NZ4Jpu4FthJS#CgB#Rl_W1(Vfz291rSw(c>0-7
zN>B9V^;6(ZFu0|x%1D$MLG)PV72`5!8mxK=@$${eyAy=;BPR(O9R>|k`wrHj&PAR-
z-<<fJ$9!YKz%NO{TSGs2t3ap`WmLg4s?WjthBj%<;St(4K)5S1a=qu#tBvmH2J}ur
zc5|KjzK=^+!SCPFdg541!`N9y9ZoH1tf<X}UL&VkvF61iy)r^biM%>I?H-tRfDpc&
zLy0Gv-w~&vfzCS4fd8$$2>$^C{kasil<;?Sl)0|6C(#q)8Yrc=MK!J2u@IdO&Kx$b
z91{p%NT&oxUQ=*Rop`QM$2Kr1<WJcn<4)|^emT{QR*H;P7y7(l(z!IM{$$wfnF{j;
zBZ<rJ71oHY4}>ePH>8abx>e!`&1gN*R)bgFu^NRUvq^0^A|FnG)!72Bs%xdoa2vmG
zVFnU`rxl6n&XU7<+WXsO!I}aU%Q{|l(wqvBTMlijqZu`P*SmZa=qK7{U(Qk!9%7CP
z-0iv~=t`NB(jK6)*xZN_4e9jdQ{07tj>V{LA8-1?AeXB-jkSND3d}4~U0+GRzE5*R
zUFms_ZjY`wM}BgNrfsQ8rLY}EbC4X&_LfQ^9dmMoDXP4RZ`$n^HhZaA$)nT5i6a#>
z3X788n3=<_z_Vzc<itdMM-U;+k>0Ld(QbN4cYn_iH{&Lem)S8gg((vxKpPwr6&FRT
zsHh|d!VS-UR`-qO5__&aqE=>8TxhbXD#P%|k2++>9VI#3l9wGRIh>?=L4Gj|AL)P=
zhNo+;t0{7@?DM(EPJB@0^4%rB1>HbSCq0@;LUH{3861@6%Wt8bNelz{94U3oazTpR
zN6;AOLijtPkEZmJ^NkYwmgxPGwVC0fSEAV*KIX6YnWO#JCmAnv5i{40v)D6M9zE*{
zxMU-L5R{-wFaOZ6N7o|#C!;reY!v^!PFmu~0K`~QwP2;4vfCR)x#9Qn+C;B(C^E7n
zyRzXzNndHRFgx|QEQx}vqb#J@?TCwo2Gi8lb>8*-{Q2b#UK;pUgUUhb<frD^jOk8k
z8#5eTUL&v4+W~{wUnP_}mW?<Sd&~LWUn4qVKlLA;R0-^`{_LN<3SP_zgv)-WWphdw
zG*JxJyNx?|)`bQS1(o}_d^9U0fGGxQNTq`B4ZRDcb5{31r_A%At7%vi+E+_c^vkuJ
zeH-Pbr6lKtRac^}VkE`|T(nNCtSxP<AF~W>3JMr<=4a<jmZys;lr1%@2P?`&i_$i}
zlPXi<?dMYOS41_0p(=RByK16AK9Bqbq`5@Q_|@h%ADs4vpScSY!yqG3BQZ~{iI9op
z6(!e>MJ9cciu&_Uob(Nt-1}}NC>6u-`ByE2o*hb5iY%Fd3G9)j5qE+_RU5wy^$&Ne
zY952;yo__|T2#2VO<^5AF~b`*4d+Vwz2z}x=!*?ATjjr@o7Y}8&bh?3>N`U54h?*Y
zANckuZJ8q|Dhg9vs1W%vN+w10lYBiJ?Qrrzd#8D4!$p3LdloOcIyZ`U^{L#Zj16eG
zHeN}ump@h@$IL|IsuXiZKq?+k@xrgTLYN8L&yY$h6Q$d}C77MC%L}j6NK^PdxxI6n
zm?_EPAQ=wG=jhxoaG^>!uhLw4tGmDa&K404#p^w{QnXU+Bdfu5xn2J*@jBuR??XX#
zJ1jv^+Iok@oQCJ1oy6uIDNB!%On~k*(Z*(@gL4}Ll}lMv9<ETsuQTB8=*TmI%Mxo(
zRVu%!?!T=i8j#-btS~EaPY@F%0wMrOBCenNySOdNCyJ%)ad}`jdS`~3JGPwTCqyMY
zM{LFnFO$k~;%A6Pta5Y&dm*M&o8=8I!0fRx_aE7RKHWd{IpM8-{5J~4e+rf0BV{+U
zbq^gSi+_<)7Vciy8Fg_cLt6$<oMif%{_F6)5+=<Q@<C+=se0I5d^YF$%!)<7D_&iX
zitApbZ?pJz+{c-}(Ye08sv3`=7#cMt>$2?}DWER!dohRW$*xU>uU@_kdS*3cBjSX5
zV)reeouQ%3ymA?~z`^WBjr|)c<G)wQ(jsm{XIk)=64z>T*K%Z>RV{Z;_S2k^yW?bL
zQ^Vj}BSAsC1_Gszwfm(ysEwboP~jf(c3tLf9FAuRTbOSBZj8RTa2b1f^mkGQbNGy5
zS0{~#=6Ck{!Ux{9d>d!r0(^(&wxX8;E)Da!N?ZCP$Y}K|Az+Gej!cEfP}hs-gVgBy
zi|nOgRF$r<<jeP6<v&q>g0JuX9&8?9Hhue7G@Cvs%fU0wfl_oYrN4$QdFCS};3R(x
zl#KFWg`AY>lO6f83Weuq*_+cdkWXtH@sNhTi)_$UJ#BCOBr2|*khA1%E@6{Le@P_=
z`EZ#S508=MAyQi%o(=qnYf0)X>{v1~4VROg>iTl#4g;;~O~TcNTf`V|E)=v!1bsSl
zTS`9p=xvrr1#|vYRh*M~Gx;Xb9#9{Tyu?1s`o^IVWO;#da1BdO^(7n5prMD(jgX;P
zt5)*UcE-cyq0O*)Zjs0{qGJXuEL3PmmBUafw&cW_bdgto!4zel&~|0O;r1LS**8Dl
z@1045f4$&LpnQS&@Zx#dU^5gD7=~YOM-Fjr4(pV$5*@;k&}Uq>9L=HMPbM@?xQHIb
zf<fTrWmdTTd{y`q9|JGd5O#9T>n8~y)6r$GIrWTXejwsf;-rvEmj9(4N{(l|p{CV`
z7-qF;!P5|3xxL-|%cW~9z05D(LCh+(z}0Wh*}fylGB<;aBtvv3(t@t%F#t^ba2o^s
z)UdaGm91B}R!*yGe&!Ql2Esr9J!h>-jH%tTou{)0M@3RnQB@#Z#>v(!^U|`~grj{z
z=agG6?RoMyWO}kSlHCfer52fp+H2Ath|@Zear*>Qod-ZJznmo5?F!C_!ufq@CV1B@
z$!ls*l;Gh72b*tDF2AC_G#M}ALa~5As2k6z8!N{gq~<q9J^2d=N(l;mp=Zfi7Poz1
z2F|Q@=hu}<Zb84awO>L(h+ByG+XBQ~!vCLP_*XjkZ)O+}!kayk0%I8I5C9+}j{*@=
zc(xE-*yz(_adm;RRoKY2r-?#hdiMRd>MzoMj8#RrZO@+T)wdY#S)Xc4T<l4UKD<gU
zvY)ccP7Mg4jDaj5z8#SNiT6JsXYhPKf934nNDRd3PVg|V!>>S0F^S-t)GeT~y@*vj
z83M!(*;bps0@#oy??6OoHhJJ07dvh&^LqG{v_AcARD|^-Rju9gv)<W4J+8tf%5oT;
z+))}uDQrwM`E)#pVA640(*Ui)#10|N`xCL>(C3wIcvB0qkG4{0ogHpoZHa0E*7Gp&
zim8c1j|z?t7g-@3p9y(x#~Z&N`g0W!&TdFTt>hOZr`~G~@g#Y)#EZASDcRjzXF3fz
z-S)07BIpX7N%|C1+7{n-?^7xluoXXx=t=cCmB--+VoOl(&pJ~f&DD8bP)5v;DN+lH
z{Yw(a@$4o9Ho5_x#<s2wTEINlleOkben*YhIFaw$HSxLJ!gsI1Q-scs;Jc-w@A3wJ
zf(!?rN&lFJU%)Mx55KLu$twsod*On*jLuupj6>X__Va=|e4_gaJ=D28SorA{56e#k
zdIHw$;7w?3yb?W#KOTWnv8eNGUt+(R1|0SAJ!5j26&ym7QAg?#TCT-20ke&bh66n$
zee9DZR|nc=(i+!raJ}jsVT(}7gD8#~doT0hqv#U&W$TniS45J_cu5xcy2E?Mt+bsJ
zZh<)mx_6>hEf1PJA<{2)!;{Qm;c*ZaB9V_$R{tD|pR_MW4dR8NrVaH?zhyP(QpAmR
zrmL5c@+B!EKiT;595(t3m<f$qvfEF(QeAe())_!PTjy~61T(Vv<67$sSWh66t>mb?
zkD1^y0Gwc!d?g8AS^>q4Cdh1Ff?~al&ZZbkiagJMoBC__*P;ieU3R07no&)dO%hOL
ztQKLI^;Gi2%5-G-aqZ=)MT+-Ku=&q=;bH~@w~=p;q(0ljOonF*PzsC!W`aH!e`Gao
zt{gvt-gH{{C}q472Ew=AFfEr2*hD+bJ5J2=Ll5zU(=|FSg3H9xfsMU{S%!-Cac3`;
zq|ZJ+0(FTx(1E$3yl|Z5%XKsMu!f~#ih>jF26oJpfzPF9RW|f3>{O=h24P;!7>+}7
z6sIPYL~0#x!BBgrq1&igy^77Ca{~-+Q?mMd)ck;&W6L#Iv;A8Cb~<4vx{LRh!;dOV
z$Q-M^&wkq&cs2>&3mvi}|CHR?aw(5ko}0J5+)33D+GdrHtwo}LrJk-o$XfE{n9w2~
zyWSXK(k_OVUW31O!0tK}T0WJZL-f?Oe*lmAz2>Kkj8D&5oogib4lQc@cYn;*d|EGM
zhBu!q=fPf>y_=@fEW#p=n{<R=mm53Ek_7Z!jPk`?-c0=bipT2Zx-bdn94s&LYaZbO
zuA1gF&8%&Ys=m0KGRLaY!B9AVo=cs8>L}a<e6Ky^k$%*m@`s$|=PPT+W0@z0Hg0-@
zYePa41-ZM-!fT9Lk?~RIUXptG#%D|8y*0(!L-QdF8y*`rej0Gd9DDR(U7Jh!S}dfW
zN%NmWz<rRBS%5mImAbgWY9voMZNF*#4ljK5sD+&6r;o;<gqiJ48+<NridCUreO-?I
z?lwq?uhG^%amK*0_jIUtZf^}McdwqwYWA`t-2X?Uq<i}x?yxNhs3UYyR)^=on(GRa
z>tF}#R$O7xE?VG6NM4%PfiB-RzKeOT#LiUfQ8gz+HgO^-_rb*2-$H2K)mim55}Kg)
zFZ1TqK$sy$QlaGZi%sxJn%lZE$NgZiwGQ}lVbFsHAENa1((*V`c$OcwQc7PD@o;09
zLAHxW6sCaW0443lA1BvawovK$c7w7*=op}z9ThjtkJI^2e|^pAO0D_mZ8X@O=zQ}`
zNV{tID*?27aHH&08L8bF*k^Qk<QL-4CTuW>$O_iiwkys*H?bK{ah4Y-nJ<H!Zp{@t
zW`(F@o+7~0IdntMT`j^S_Oq|-c7II^@KOD&d_JtfrBh<m<axYxnqF`3Bt#XdP0S`C
z`M0Wi)(0Q0mB()n_8e}>$PD&hwfNOMus(x&>h!jpQAP&cc*Uq9Q&6F!0^9)g!GE(*
zeIVwEK2|LRM@Cj-{hKhTCWobjm!_SeBKx`Qcljx;_3+!&cU%o8NZceaw1Z?3-+~l2
zZuXUOmMJej`T<(jDbSZ5NKTV5=EkoFH$_&0eotA!R16hx7O=YAC#atd#p0p?n~!G3
zDxMNH@=qu1C-s_eS(3)0Lcm5`Si?}dg!#t8lQxUFi*X}Zw^8BR;Gmn0+f)^f&XOD=
z=jP+zmNu$28MCP~|Bg4&_1O2!gaV<xuWI<p#A&TLLZ?W7#z@p+kXSG+Xfy6j``|^s
z81VSd?qE=H(c;K`rwkAY48yqC&AVl+zoj^pI3ad9v#N&-nYi2pr!&C%)DmUNo0{uI
z-gS^42&3&LNP$iBjqj#3k@s@%k=!`ZIY08{ri(1_zKmc_hdGye_B6%MdY;-K2|}!V
zCAQ;?5fadS#EMpfhZTOHY_r<aR_M%4<u?Cw+S$FV_`&l&VEO>D061KU@noHYR>Xwx
zQ(wYoubP7)UflD%{T&O-9PaM!R%@i*`_YoeSYyk!V4TnS-~z!17deFw>&+W%IvY3(
zy2iY4V{T0j8(YGHKDl8HS%QM_HH7w`Z#Ii{8<e_qx^;{^cvzhW6JCCkASaxRP3Rvq
z1Gy<0mM4%%%rFg)mA`N1ufUwZi*05?M+Lg?a<7{i_Tw1Sz+|}2%3^)75(MWdB0m>u
zy6B!+RP2iAMnl>azZIl=+d66?;P@)IL<8(-w#;MvG7QsPQ}*&*c>l$R66qHqORRL^
z#h2R{<H=cT&Wfr7WNiA_PcahIFQ(m-vKL&SMPE~IJ_4Q<s<h5nb$H28a<8Xz^%TE?
z!uz<d%Vvp}Sr6!-#=bSoW0x`MsM+~}xBVFr<$Zm3QdV#mVe1k_l4o?;e1bWK9&O13
zMPs;c;%6?K)6WO|W-Y&3U_$z)<wALTnfW<Q`<$8eOhL4eg|`7d#4N;)@F(5o@lT>T
zwdeDy;k)ZqcN4rYTb%={sN-zcdAs$9UdHpenZb3~EdEsa&B#p^aiOC<#czG8wOtUj
zp)gateCH1!Y+teqTx+F7xB~Q1gJ9<*L3Ns0@5exJF)t~rH}FpugaU$@aQcU*l~?lS
zJy4Kq6e*&Gk4p$=NWy7VFQEFKca~@Q498Nj!?edCV_&+vPTHu4{BEOUm$}W{+1eu;
zp=Qs%!o^kMk)?uPmFF>TD`qM-I`2oJ<~K2G?6SxbG2!hp=Wq%8aXms!nXw)d^AYJt
z`cbywxi2Rw^(|bota2f+&v=4jZ*!zlD~Ys@Si30qj_F4vv5J$Qk1jOf!&VQyM4hxF
z3AtSF-HAq=F??;l+Z7J?j)`V5U<y-Z<|YC%j1l(aTou2nIU9T3GjZ^g_M+a+>x)tI
zOkUk$(#wmHfXfu~hYK(K=a{e#9>jVeavM%@sJZr*&6&MGd@Al}$$7Yzc#F~I|D`DC
zzg7P-j3DTv3&{Q-lKD?1OaH0ie_zA&@8bS<`~1&(GF%d8Y+NPA2iO04m8Gt|oOvz@
zfDMp~z?CCGB8HFR_zTLP5~H(!K9R2e4PPBSd4_pyOvLR+BF``YPb>g>tM_mCX+!$`
z{MTl(RmKfxBA!1wx`HL5e4;uK0U3?gp!B^U#5(Z{@hbi$KxCFd@y3G$%O3;D7$SZ_
zApapi%*nlG_9fCbBQi-RdI*0#jlTql{++~iBJDmR6A2QcAgcdHfT+yB{1Ne)L?+}!
zLDK$>05RzDmwyJIG?57dQ4sNeBk=!)0sO0KxPP~#zsB|jAy2#`kT~4`qI~W@boi&j
z?!W2#5ijrmoie?D=kq^o;{WjZpPd%}Xz5k|Uzb;SG($F{q{W^BDtu&TAY|u_nPabV
z6^ygW{92#6sjsHi;|NrFAmQY~XWLX+Kmxdhzu)j2(u`l*CLI!k>>)lS6=!{||CG2k
zxNAVb&jMBA8@v$<^W&bWIuw8mQ)O5W2%P3Re@??HXI(Fsy_c6PnN+M5`oLq{W1Y`q
zT{(SdVn)B@aO(=dWhZQWX9o0f;c*UvUtI9xLPiqQYi4Gq$p}p3y)xF;c@@y4q5Nk=
zAnXTLJl9IU(Hli-z~^xc0E~>L(mdIRi&ZiK7)&xFMzO*96aa)xP$hJ%<dUOyb-$1I
zVwHr)7^=1i?L+GcnD!=22{+cO`tWS$TBB;$Qnrl>w2X&F)J>a(1r3wNt^vOLtdFX)
z$$iF2@`@a9(G_IlO&yk5*J10OHP&9Vg2D9{6VMVv*YOCWl1;@m;vUeScMW!MP+x-)
zuS;n5K4OQPu5~*%LpnG5OSm+(bc*DU`|J}1f7&7t2boz<8DPVVeD;S0C9^KZj>G|E
zqFmRy?y*)O-6_TU(a}X5q_?ZaZ_MIJf$bB+%V8?Dz2V7T9}>484SDATmgmhMEKL_}
zqr8@Ib#GyWKTFo<IY}ydxl(J_{s<$Hs`O~()SF+ZBh|<Fj9u4cCF}6h&Z?4jgRM5q
z*z6V-+55A{ordd!3H*zb6+Q<S+HkxlA<n`c1nG=nl~YdfSlb=4w~uElFeVIO;tCDC
zXEuQm;<#|L<H*jj2$Tah^!9Q@isK@maRC|IJXho4dHOtdkAzv`;#;&z-M(Luv6$<*
zEL?Z0Fi_J0$r^9yjo~O#(t>-B>BV0RF;1k{EMzBg7@r4hB*{FKgkE$4%|n@m9S<69
zm<{3VtBk^p`)$r8uqJJ)8wGK51i~7lp!r2*bnzv!x8C6>%T+(adgkn?$bt!IwN%U5
z#dEP~)6kYW!)CY5$#O5ryw<6UQPSeOwoa9#Ow7q)u9c`3{y@vZ$Q!q-!<SIAmn3fl
z{V5Gpw?vxid^jtJFi;e1#6{~Nd40U!{^;*rFRt6GhHN(&i4*f$ke$surE}#<(%&&r
zRR*VI=Pj&5;)K&jH@TZJCCtM4d&LuI4+s2;apTEwGDIa`udXaHMm?Be^$_gg*}-9h
zx>)U>gEe5rQlIcjY+`LJ!X)>L>EfDChh`!w;^v*ZLedDQlO*Yl$1}?i2^Y-UnQvtf
zV6Q5CnJ!*A8H<-}I_Yg9?RAN*^ej7muQYB~^3ds=m9Oz=MJo{_cF}o~!GFqgIX09&
z!FSe&vyt#QjkJm2dj8g@EAhrK#l!jIPCkqW7@<5=g5BFJC^v?0UqWmOk4Os*&nKO6
zbeCow9NY6SV$xi-n}$(;<8=|8)l{v?z8h3QHnXiz@z4V)oT^@K--m9IbU&z~V-kby
zl#&np3jIm7YTcEalmQ-E*NUrfT|U8=drTy)rLgvvH|YOW98B-VvP!DpY@2>dy9hEg
zj0;jJX#b(CX62|Nm*!Pd+j=U<rZhS*aMnyCA{l|o5xJAct^0nw++NjY%jDq%yonPN
z8nRC21S*esb=;pB#%yaTR-3Za%BlkTRGWPKGm@Ir+u-#4*J4GD@M`)wL8Z7GApj->
z2TRFMQzvzXVbIU@Yb`xt#MS8JXS9<LAK@n_{;FTDe3Bb@ZtlL26A3v_55lw2iHCU(
zI(_zrH8;g+VlYwI2$=N)2{lS=-VA(32=sH7GYdQ#NYIjK&alIu_+#xrK#LU7+T+7H
z+;3q`5jirhc03U9xJh7>@(x>bIoO|AJtT9r`TdumXAHOWNBF-r|Db1Si+&=N`8tq0
zGUrA$8f;r^gDeN8QW-y!N&-pFsL|cVN>zf-P2u>qx9MZw6>b=$bPe9U>7Drz5oOM{
zKzgGekJ~ye!nU2RN&cpath^dNtf8+jT~|g!di`DB$`8K#8Kq79Z;YS4Ui_%5AL)Rg
zyW^jYe!&fU_BxI;mi`vjAjvxU6|jp3n)!Msnr%Mv*+<nHp@}L7xoYHr-&L7nF^kWJ
z8U=jWqI`&W!PTe&A+fzKt~EkvK)PE848J$}DbbLDH`*Y=_YIe6@4(RIT2wi4nIrV1
z8-FOXSqh32NU!09B5z3dF1l&Fxc~T0o>gaH-scz_)Nic<7CR65bnTOA_;|75p-0AE
zr4P&Iw`%|wW@1__T}W(7Z?w9Ey*<aC<xcfD_IQ?zqoQL3r8#5ol=&tz?jbxaeQ|%y
z{ns3wdcSY$<x}JDL3Nu*4km2I(X>2q-uPhW<JZ>AE&+h+a(|x-0IuH@H#dJuE7RX!
z=;iE$Rc*lP5Na~S>`r46cj@?TlB9od(g34rP6F6u2|Yga8n(UN-2*W^cZ;ad@f%BB
zsF&E=iLT&qoob=V<k_JN2OGoJLp?710it|ArltsIeHhV8++sZibHipcyb-jDMk*ms
zPl&29;mY&sTmRtMvb3EBbKO2dBE5~Y8U&S*j+OZdi6?n>au&nC-dJyz(=cI%+x%nW
zl2myOhSPurVjO1d06;w-X41-n(8DZZ`W{&@#63TH@3vqu>^za8|E0XnXW&b<Lw^_n
z7hSL5&^1Cg9}=1-#0CV9zGQa|iP!O06e>2nm=}_yDhs{-tfCT@7VSF|53ed4HfmlR
zxZhkqeyi-+14$d*IZ~KcUb$h^X2GTR?zsQ0yuxepI*LO)JTJK>Fvroh`f!(y>XS*h
z`bbDnpa^)ja50Qe;&M<WJ*GK{5%iE%5%U0+*!@Tx`Vn6+1l46G-!;VU%nZ<Ug?B49
zyq;=YMrwidTW#H)D`x#aK2aYpEf^0eqIkKD&*M#bpnK5k$uqD{W0lP7p*$kYY7raO
zhpJhjMlEFe)m`iI<U;9M+%0*A0F_(=yw=G~zxSZ?&$;lNgZd0L3gkH59u4-Haz?|9
zMT-8Qf5(R=-}6C7={eKl*&Vj-(y8{C%TF~j8|hw*E7PTU^r#w>Ym)VtKjlsEp3kQz
zG@s0p^3|S{*`2eCxS<3g{l3c^`yr|c<qPY5$IIZ_<57f$PWr3e1XC5<@U_0*(u}N<
zv?(I;-lww%t2IUrSXoKvu(11kT2~dQ*Yq=q#ZCiNatWV~{(RuthkXR@*!%#*OT0Jp
zsY%zLI)dwNq=Ap?U?n{r{u5y*xj0d;FvmDU@31AkSbTXhA83x>DEe8!2g;P$uJqs3
z=R1G==R8^^aZ&g9pvy^aeJHtlGirhj3XF=A{QNEm<h=3gl4+1pG`Ble#PS1yOa=J`
z0FaUKUe=1A#Vus*2awF2R~Wz!Bq59rLRxriguP+i9^n$AeP#NG&%R_0l<<2yI5^mI
z(i1hl_37=EBeN<mE@q#z%xj}Z4HCNVD<{KzR^lzi0bjt1NeH^7KiBTXQoie#qINIG
zw$v~IUi007qTl>D{DNe<z*$)~^G$dH08Q*if`&j=Dlx{Ib#COSOVLEN(ZOE`7n-*e
zb;avcGw$v~-`vg2Ca>oqA#ZmxFn&exjl_P86(7fUJoqF|OU_YxuYP&o@(d)|k}-&F
zaBI9Afm;luVvgNC4Ypm0d+(R<Ok)Ylz1j0TZsUU!Nt@sMwqt0kdTmWjr=3u0B`k$Q
z!(3C*v1kcV#H5PLMOOKEa&9mfEWds9Sl6|tZ}r&I%i<qOuQ&1*k3A#r8$Z;i0C@6*
z@?8gPc!}eun_?|V0bkmfQ0`;wmNx)jB$f!*UIt$wzje2Ig!u3gfTFC5OtI8Q-~R*I
CIEg3#

literal 0
HcmV?d00001

diff --git a/doc/let-ui.png b/doc/let-ui.png
new file mode 100644
index 0000000000000000000000000000000000000000..4138dabdc9cc3fe8317ff958d455a28c188596ae
GIT binary patch
literal 5849
zcmZ`-2Q=J4xBu&+1VL6OMU?2G6NxBMB6?rKBG|B4yI3_6Jwz{2HY9o%CAtt@5WTGu
z-HOg)mFN4;JFk4-do$<Go%=g?esj*8JMD(+Xsc0EuuuR1K&}2<S?^k(Udsn^!s}MF
zEv5Qe5y17-lz`F!wvB6p)J9WH8MyjK{oIrne~sL5eQpW|0809Q2m$aZo#`4R^H6`G
zLN;}Sm4raJYb(th0B)PAD?c^xn*N*N>8n4+(HgKe8~fE!)^UUcTvcgqtABipWJ>et
zlVb*k4l*Oo$4BAP>uM@VG{huR<mCL_#R819w&YcTACz!Z&hA~_0bi-J)JNLB?3(${
z4>~`V>bbzgpAX<J-M7_0#hk(h0Xc1sDI#(`!7#_Eo=g57?G{I{4}9wzAd&;;S|u;w
z@NLFF02;q}m{(xc^8&~M-=Ewt>Jt|m7F7#_8j#)&PH0H&7S-UeD=sS&1_UPKWiK!)
zz>~NEHcc<cdBVV3$v)x8BN#ayqwn;O;T+dK=B>*vGWFm`^y-cG6C3Pi$bVQ35}$=Z
zR5H!I`{gg1I^^$kkVQDJgwTo}jF~d}t{yx_DJscElFC0|(1@`QdS?7JxjuOPkkr`x
z)4n3cy9tr9P)3%q%L{Qv9qjZoDd4AuJ{%g@;Qq8S$-#5aoxlx9XMk&2^skq_H4m)Z
zH})qfo#)0teb(6nWxd5AMn?;Cn4zwgw@j%N$Hcggx()JUeGsd6LPcfa&G5zfRMAhu
zhNI5LB^<`Ydd{}VQw2~bmKf4IkDdTAQybV#LDkLBp(j7W*YmQj^ly|Ae-$vPeTB#}
z?l}X^lj04{F?=Kdt%|b>fBGDTh%0T_=IIt>g7XD}PP#n!w~7E@(oR+*GOe@)<70&W
z6#{tO*tb#ZA1anx24_n58(ZOQU3+X@2l9jZ(Mu%JOA<kyqBRte{tfywG*^b9Y?ETR
zD1+1-P&HHrhdDdXa^~!>zi~gmYP-LO1t8)Y!{tPOS+=BPQ{y98Wr8YLdECF_ALP8I
z4VhrCvx|BWh8D@U0|4nc8%`g!r8uy(+|Hx%ssLAFaw2<$Tg7;HI`bp0oU&VK9aQ85
znsl1II>W!-yS+MGyzAj9=kHmZ69(?r8Hr$WUBLFJoYG3|Pu6RbTjLm@YxPBw8#_W8
zVQ8Jra<>l%kBo#d=j28x@WjJ%fP_XE2<z>$=7(tIcv_Sp4Yl4bzcF-gh$rb$9y~dA
zl=0Q^$QSOB3vlVmYvI60ddVv2gvp>a_cta`%dP7=RyJq&{pK99V~*%U9*(ap-(9dC
zC>lhDNM41J{$IXKHi4;D$E}$0A2;^si_NFaGiepApJQKjAs=qaa;J~E7p)^G_6brb
zv<%<sISIZQ`-y0aK!^CeX()*NqyaRB)`AG=fwu+~KFJmO**}+Cj<*e+6fx^{QtESk
zc$kcSMn#blE*kPcwIK(r(5!aTg>ei^U9#W%vc=-V9*=J#XW2ab?U#gG*-4Ce3yU!4
zi<x&5n$9{#TX45Kk{IXgnVsIpHA<!W8sv9s?18{F=|oX3Dsoz-l6R?_e^5Q&78Dwx
zW4LCh?En<(L9v%KjP$F6%{Yb)v+x|>fXyweOTLa5=NBH`VER*HyLI7!tyLQv(!F^7
z;bvGAT(j|&UI7Sa5@l`DV-l3Wi1ko>9~1F2NkPrs_>JR4A9-%VP|K_W@HuPhJWmyF
zwl@AbpEiYpKa0)KAcrM0V1;dRe{O4JgWt<@{h+hqhy-{Lkx81lPFU|JU0}Xv6iljE
zvasbxolB=cCC?|8V;_;3und+;y)#r2@;vot;U!bZ!-BGeQrX?wNWst=O1nZmw(O+n
zrX?nX*zLOs_0eF&!j4{E&3FZV2$==w@YkHzy9lnmk2wo|pd_QA4ly-i7ReO}rqhsC
zV$><L29p8Nogr|?(;94?jFi>enT>Et97i2L2<@NC&?A^ZH5qQ&+n1bb1Ur;i<1UbR
zcf=C&O-z8F&LQz7qbJU!?Z|@STd>F<CTPb7!IJE8+J*6(ztiY6GX&@O<6?v2XJF5D
zVkHNsRl&?9Z>+(+E;rvj*{;1H-Z`1OMd4VX?YRCmoYkPqE#?D{iy*6EK~nTIHMKhW
z@5!&!O#{9&=v7qu16?<9RNV#N#2fanzZx#Ptmy}tPx#Tis2w<8!YxB?ZAhQ20sk#1
z<3;ez#c{@&QZ@+tX8kiC>pQVRA=Z^&yW{jq?;HAz$IhBkR&7nz8kmp5o_I|BMl7dq
z6}4p4CEQ%T!ShWdL6ukTSa3wsk8IRsJn^=L`rIYjuO+<<x*WVIvgS2m5wWBk;a5@>
zTu#O!*9iG4f%NLKQDKKwd=zXc<>BT|#P>(eo0o7Pz{}`E4f#jkj#L+H+B;sw5=Vym
zr(ss*Iy>G&?<(K6o!;%@f%*&BQgEXLL0ddkLoS%3{Sb?&A$cuG`Q$jsOG1uQXaL?}
z>{zMOYZLoxf|B;IO7?!wW_pL-^6Iu|w!X|xaT>*b@g1={G$OYFw)Vf*$D8?pS5pw0
zZph)0PR8nlO0zn9Lp(y);r#v3_xs$ko}!)L4|RC%CKXJaO$p<6G0}JCpPi%?XBo8*
zBkXMOER?v{AE1<T5`-3SQZwA3>Ndwek0ls7Y$TR-JLW1-%Og>*6<JXYT!Y9Fbq81a
z4~)M1)~+QtEr8{Ux9)6eb-{S?UX1%SQAA;W#C|t~QmeM*e9YocJs+nJT>%$MRFeBj
zi~eW+h$)N1D_V1%S7-aiaBno-6IwEX+i;baIQB-AK?Tr?59uma@V$wrDVRG6>DmQo
zTlSx8cM58e>4DXo{OvY|I~eHS$_u?7OCcl%tI>L}KOI64Kb@faSL6Ri|J(on9r&Lv
z|AU(oH0<y1J=u>Q-ZJ8_|AI^rF3ptQjJJYUXbv4k#HTVTdTkBExm%c0>JM@V;>RtM
z3J2(QN?kICU+>oxQ5<vETUJ{awuw-#qjK)P&NMli{#^PZt!6`hbBXg(h#w-Z+547c
z2~`#8Jl(ujB}|hi=l8Tc{R*|&{qf@pf$jZ)jd7Q)36LO{6-M5#KP@~}8`r9b)MA%E
zM#C+)=OMdQM?Fb#v3+Cc$86IwrH-L%^V4y@tPSMg0Fis|MlaCkc%NEO@&k_PJ-3F3
zRs-|?J%4P)H>L-?(QH&ch`+yoCeq7$4&VhuUm#{R9;t@5tx!59%}5P=<+ZuAO0G1W
zt5$SZfIz*Is>zc4_sk|!7-z=)B)`^}43Bq34$7aF36j;eV3x;Y;nF5*6FaHr^yujI
z*<!mid%>AUK9c^%{J@j(4TUwoGpZf7TzUl?^agz@V);$Tl1Y$VhJx$Zq|bAU&#Itl
zZ&#^7%9iv#x8WeQl91-py!erk_%f#H$Mi{_tJ5V3-}r1i{<2u4`s_w+U~;16s$tk<
z*0)V()%jV!)ex+cceM0pvl_egqe0~m_61Rr95>kRpW@n3RV)AuA9u7=(>&=J>}^K)
z?tP!L(g$=Bm9qRPBe!DYrxJY9P-o1_01#yys4Zi@uw~p)0P}iw5u&J#j&;G;I@8zt
zVWz}i52g{J$gnGoV#iOaNZ%zr97|eQdc8mZ%r+7=R$o6%pAeV)X#dPej=W!QDWohi
zD#8+F1^~OmZb0jXg2Fqq=EKGF$63cW9xC*7V-+x?vmbmZPr_dfs0%JP&Poh?qK!f*
zO=T+JF^6utx<7sl_cq}v8)YZ<2`$~~L+=7gY%?~er}m72K~o9N{4x@|juL+_n51A^
zYHaPZoDwXEaBWPv&BO{}a1V*prM%l?OpjN_$tcuV+!-5k&oL>x$Y*?~KRlvn=>`|r
zQoQu)<k!SjE&+8`l&?PW%8BCR;X&b4>)&3Q0N&rR5+{|%3tM4_1+1Wyvx7@bdmS<D
zEsaJ8evX-Cu*UgbYoc#@$<v7)8lle@55J)$0u(AB2e$=%v`^pcP``%I(>fu2{^qQ%
ztsTSWR)a}W!Io*$1Kk8E2gA1LdTUGMGulmhUB&KS_p)6+M|-JA?oOcIOHhp`*OBEp
zkD;8V!vZtP9?yH8u$ogs)x1n$MhC*%bCq&3FFUm1yfoquqRt(D?5BS)Pl?n}s&8~0
z2w2vIQAaR{GJgyi#Tq9Gfj=xAX{eF!;N}`qNZH!C$m^rI)@6e}W66U`?_C@J)%joO
ze;WVd`)@A)WcWAqzbNGgq|YsH=~wf0b&R&;%WyJXrm*OZaT$y;3HbkBUEpC}=|g6S
z;^6aE+S;;b`0y>(WCqjD(L08e(Q8fb?tPLPjOcDK)oB3%Zrk;%;~P-E+FSHA$n-;P
z*LO*5!mqYt3WM)zN@;UW;XBf@bJKpWRmqfR9qiSwt`@Y1-b7?bmKnV<XJ9Y*gaGF=
z&eUM5yhCrYCkb5{t=92Ltl3#Mt#h*XF+n~YZI6%%?^X7K#X8TwK*Y-|AFbHVNyOD&
zVVugIQQk@_POm(@3mk6D;2M6VRcLb=Ql{0SaZxPt<>=Bb?82sJ5i?QXj-+#CDc2Qc
z(Q!JuWsgRsI*IjFE3lBdY7JMb?OZk>6>3EMsjpT%JO10^eW2Qpxe6-I=PXg&yPO<H
zm8e=P8-=%V?bMtN>|=I5x&)sVP+53kt4fK0H*-~V<;C+L5NuhQ80DT|GLPOJh2k=`
zM2mh3#NQ3Z-llJ5dgb!)253$%50OED9VtU2NRoZbknAmzTkpULghZt8MLVy5Qj7v(
z&ncdZJ*<45K&xfIEhq`w$ti{XtoMhBkfLE12VL`Jw?ElIH_2&>u$3ANiO>0U4Z3?C
zmUA<E?;`w`nkJ5#FYu7q{1Y4gN-ay*1rzt<qGvOc?&R-9fka&ul5d2k55!IOSwc`V
zlCN4vXL{zZd`v7nVrs2QNHKXrGM^rp?r2;&y60IQyi8>hk--j;`K2L0RTCXpY}*_h
zb8MdFQnQvH8^l02Na7#AEM}#fto3#-c|yR2Y%`l_(!Yfy1iGH$>=*ai&GOc!#}M3z
ziJ332Gn@{NJ@Yat_~h$Q1Bc-wqh&2@R)Zy8M5F?^<>7*nTGC$@r{g1rIcn~3xPpQL
zr}~Ic<4P9Q6#j_wyW<k-@ViBHrlz0Y)Z(_Y&8FH3y2bFsHs8Mo+vL^j740CMOD8S(
z(u3s(=EZ$tF*qfo$_j7AgDGEYY&M1il6>(629^RGB#tpM0o15~(^vvd<RJ+u(C=Y=
z)Zfz=yw|sS{Bg)Ab$aBeAP;$QxODF~Cb)KBmF+raqFBd8)2)O*mU&v4?7@dW=b5v5
zOjGg&-yPJp5)YRre;-chAWbVX<jS=x(7*l*?s{ovABN@uDpn<z+F}{d-;J#6{}|9;
zrD!7(grlu`b{5*1o=YM7Q&Uz%y%ysZj}CPV>z^5p>E~T;jpkrGkFbP9L@K(zDJ2cN
zHT{ESI8G5-L*%c1J2fc|b??h5$y;H`VggiwIur>2Evd5I=X|arEu++I5k`Z~z_onS
zI80TCqi}!UYm}9z9P=ZN$Jq&XamAi_>9VP;a|ICaVBsN*)czYY(0pn?wy+lRfScP~
zASraJo)VTZdXzmw0+c(gxML~wZmX!=(ody$rJJH+-KdnJ@=LUbf$61T1|a)(oj7~x
zDG#8}tTW_zl9o!6b-6u0s~2^9U;ldTBMv+8{hBWYvtt`AbPP<su0t%-$4*AG3t*?h
zsUr%{i|;ztIoDGI6%`d$en(?rbnPI)69KWi=UIlHpgGxxOz(j^&q8k2mM-Xxi|urD
zVj#XouonzZDUQY%7z&NWb1dS`9IPvqY=gV6H%dHXF0YoZ;oH1S6h^9H01-u9x&4Eu
zFjW-4{<|eI0@pKqH5>4@2xLBjnI>MFao20xQdPT>fG<|aSNGcHPJWr3oMe1xq@5x!
zak_68d0!!Ye8<Z?w%*0B9BLf!F0sKv6%mEH`x7#-`3}6qGC^73w&iYFtNK`;jF6kK
z%S*%SCNTw@U2WvDrqqb>g|BwmBI(ay(*`ATe5$DP#6UFK3cmeS=uR-tMDvxlO)I5l
z8b0wvDJ<7$@Z{x4ZdB^tVBiWTRrt{5)!O^X3!nFfIJ$cw!k2#zy2HXkbueJBJ~_W~
zKxFyU8mfb%pfw)+ewZ^pa{DSN(Og`prlz;M@1Rz;S?>(x5afpmMUulNS{;)8ArmLU
zUkB&#t~!x!Q;*8sK8D}mjC!+Rk0k+s&AC_0vvmbamT8wgG0xwz_`6*O*)gEURM(SX
zi%aPV0cZ<2n8P^6^~?44s3{YcYqlE<C&+*R3+v~ZjEv7Xrw%y#P?znCH(P{mD0=W&
zg3jeS18_c!J)~|-ijy8zm99^1ZC5t8+sro)CBgva^H~wLIAdQ?hmJv>8V81K^U4h_
zpgT^$^uB2vqp2<<Ba?L0{^6c5v|xD3HKDf<e-f@Q#BG%%ptmC7d{7evVIl;u<Hemp
z;2#^d>T!%JNp{}K_|LR3A#3xe_DH0g;GG1$UbloL>C82mXb^Gc@Sj`p$r-xT;(xXp
z%f0OFJ0fE5sS21Ls;vAo#@O3+04C|>x+7?_N+S4PU!_W%ZBK+ikKTw5CY@kWMy9T?
zP*1}<dd>Tq>@A4+DIKw)oz}ewwl2eobdw9WET1d?3rQCf5XWsJW_8!a68eb}!`Dmo
z)%osqyYgj){N-}M6N8x0Y~EHT+BP?~F1L=(>*UQrHW#@P;<5!XQ<Q|!<b=+C-z(7P
zajvD}*gvO{Yo-xl;q<~@UqMC_d?bOFL}bnuEjOK!)M^FMYs`?se-z$`V&1}R-iS7)
zrD6zZhBGIc!=Sz11;?fq%_ie_c9@cq(i5NOGFy)P8MbIvqMA2GLPCP__Kwx)4xxmd
zihZPExUjV6C_ZXHfwp|?mb+tpj<*N`SNf81>r>bgsd;h{mS;*q2wABN?V{ff{9klI
zbHjR}_qz@%JNgZ(uL7TXg(u_OPS1xx#o0VO+^1(}+mp=-JUkOKefU(43*`2!jN86}
z@XL>j_bl%Ni8v<P$kZk8@A&@3(w+WY>1L;2xCS#SKf%u~^a7gQ7rG`U>mb_EI(S}k
zuGZeJh`^PT$`VhSR*J~VLY6p06=&Ikd|~2{ubo#k+U1I!t++Sej~#BV&TaQ{J<DKT
z4LmEEX4tkov`^FhMue4UFS}IQCemf-jAmBw8OH)#6m4OP?W$4Cif+TBF`u$fxWIUx
zm!u@54%MGDoWQX;X|DtDc2h0pHQ3fr2|;+H%S{IZajZMO#@Qc?cN{;mJ>S+_zRV}v
z#b`D}<ir``+WJe(Yn2s$Ywc`Ttp7DGEjyBQ;1z_hTn1zaE_m-Ogz=<F9^np_+A;<3
zvkAjNXH8I4hRFD?*vg}yJ6}~fo@5!0vFP@cHJxer8<}Bc@A#b|i;eq)ySupd6Ax|@
zWsUxNN9ok6R?UC(n{Cc*Bs=B-?XYra(|dWY%uR<vxpgxmqa^J-xaS1x#RY~sB=pLK
z<)gw|14$Q`dNT<qDJhdoCdkXuR~g0%YRE)gP#|yY)AIUyyohIxSG6JI`bcy|Le*{P
VR8bvUcb#_z)K#>VOO;*){Rfb?cP;<`

literal 0
HcmV?d00001

diff --git a/gtk-glext/demo.lisp b/gtk-glext/demo.lisp
index ed1cd6d..1efbde7 100644
--- a/gtk-glext/demo.lisp
+++ b/gtk-glext/demo.lisp
@@ -141,29 +141,27 @@
         (text-buffer-text (text-view-buffer (opengl-window-resize-fn-text-view window)))
         ";; Resize-fn. Parameters: w h
 ")
-  (let ((v (make-instance 'v-paned))
-        (lower-v-box (make-instance 'v-box))
-        (h (make-instance 'h-paned))
-        (buttons (make-instance 'h-box))
-        (update-fns-button (make-instance 'button :label "Update functions"))
-        (redraw-button (make-instance 'button :label "Redraw")))
+  (let-ui (v-paned :var v
+                   (:expr (opengl-window-drawing-area window))
+                   :resize t :shrink nil
+                   (v-box
+                    (h-paned
+                     (scrolled-window
+                      :hscrollbar-policy :automatic
+                      :vscrollbar-policy :automatic
+                      (:expr (opengl-window-expose-fn-text-view window)))
+                     :resize t :shrink nil
+                     (scrolled-window
+                      :hscrollbar-policy :automatic
+                      :vscrollbar-policy :automatic
+                      (:expr (opengl-window-resize-fn-text-view window)))
+                     :resize t :shrink nil)
+                    (h-box
+                     (button :label "Update functions" :var update-fns-button) :expand nil
+                     (button :label "Redraw" :var redraw-button) :expand nil)
+                    :expand nil)
+                   :resize t :shrink nil)
     (container-add window v)
-    (paned-pack-1 v (opengl-window-drawing-area window) :resize t :shrink nil)
-    (paned-pack-2 v lower-v-box :resize t :shrink nil)
-    (box-pack-start lower-v-box h)
-    (let ((scrolled (make-instance 'scrolled-window
-                                   :hscrollbar-policy :automatic
-                                   :vscrollbar-policy :automatic)))
-      (container-add scrolled (opengl-window-expose-fn-text-view window))
-      (paned-pack-1 h scrolled :resize t :shrink nil))
-    (let ((scrolled (make-instance 'scrolled-window
-                                   :hscrollbar-policy :automatic
-                                   :vscrollbar-policy :automatic)))
-      (container-add scrolled (opengl-window-resize-fn-text-view window))
-      (paned-pack-2 h scrolled :resize t :shrink nil))
-    (box-pack-start lower-v-box buttons :expand nil)
-    (box-pack-start buttons update-fns-button :expand nil)
-    (box-pack-start buttons redraw-button :expand nil)
     (connect-signal update-fns-button "clicked"
                     (lambda (b)
                       (declare (ignore b))
diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
index 98e72a1..6dd4847 100644
--- a/gtk/cl-gtk2-gtk.asd
+++ b/gtk/cl-gtk2-gtk.asd
@@ -56,6 +56,8 @@
                
                (:file "gtk.high-level")
 
+               (:file "ui-markup")
+
                (:file "gtk.dialog.example")
                
                (:file "gtk.demo")
diff --git a/gtk/gtk.demo.lisp b/gtk/gtk.demo.lisp
index e9bb59c..14ef3ec 100644
--- a/gtk/gtk.demo.lisp
+++ b/gtk/gtk.demo.lisp
@@ -27,7 +27,8 @@
            #:demo-treeview-tree
            #:test-custom-window
            #:test-assistant
-           #:test-entry-completion))
+           #:test-entry-completion
+           #:test-ui-markup))
 
 (in-package :gtk-demo)
 
@@ -922,3 +923,39 @@
                                 (funcall fn))))
             (box-pack-start v-box-buttons button :expand nil))
       (widget-show window))))
+
+(defun test-ui-markup ()
+  (within-main-loop
+    (let ((label (make-instance 'label :label "Hello!")))
+      (let-ui (gtk-window :type :toplevel
+                          :position :center
+                          :title "Hello, world!"
+                          :default-width 300
+                          :default-height 400
+                          :var w
+                          (v-box
+                           (:expr label) :expand nil
+                           (scrolled-window
+                            :hscrollbar-policy :automatic
+                            :vscrollbar-policy :automatic
+                            :shadow-type :etched-in
+                            (text-view :var tv))
+                           (h-box
+                            (label :label "Insert:") :expand nil
+                            (entry :var entry)
+                            (button :label "gtk-ok" :use-stock t :var btn) :expand nil)
+                           :expand nil
+                           (label :label "Table packing")
+                           :expand nil
+                           (table
+                            :n-columns 2
+                            :n-rows 2
+                            (label :label "2 x 1") :left 0 :right 2 :top 0 :bottom 1
+                            (label :label "1 x 1") :left 0 :right 1 :top 1 :bottom 2
+                            (label :label "1 x 1") :left 1 :right 2 :top 1 :bottom 2)))
+        (connect-signal btn "clicked"
+                        (lambda (b)
+                          (declare (ignore b))
+                          (text-buffer-insert (text-view-buffer tv)
+                                              (entry-text entry))))
+        (widget-show w)))))
diff --git a/gtk/gtk.package.lisp b/gtk/gtk.package.lisp
index 228a76f..7f07f35 100644
--- a/gtk/gtk.package.lisp
+++ b/gtk/gtk.package.lisp
@@ -23,7 +23,8 @@
            #:tree-lisp-store-add-column
            #:gtk-main-add-timeout
            #:gtk-call-aborted
-           #:gtk-call-aborted-condition))
+           #:gtk-call-aborted-condition
+           #:let-ui))
 
 (defpackage :gtk-examples
   (:use :cl :gtk :gdk :gobject)
diff --git a/gtk/ui-markup.lisp b/gtk/ui-markup.lisp
new file mode 100644
index 0000000..8bb13bc
--- /dev/null
+++ b/gtk/ui-markup.lisp
@@ -0,0 +1,148 @@
+(in-package :gtk)
+
+(defstruct ui-d class props children expansion var initform initializer)
+
+(defstruct ui-prop name value)
+
+(defstruct ui-child v props)
+
+(defun parse-ui-props (list)
+  ;; list is ({:prop value}* rest)
+  (iter (for x first list then (cddr x))
+        (while (keywordp (first x)))
+        (for (name value) = x)
+        (collect (make-ui-prop :name name :value value) into props)
+        (finally (return (values props x)))))
+
+(defun parse-ui-children (list)
+  ;; list is (child*)
+  ;; child is {ui {:prop value}*}
+  (iter (while list)
+        (for child = (if (eq :expr (first (first list)))
+                         (make-ui-d :var (second (first list)))
+                         (parse-ui-description (first list))))
+        (for (values props rest) = (parse-ui-props (rest list)))
+        (setf list rest)
+        (collect (make-ui-child :v child :props props))))
+
+(defun parse-ui-description (description)
+  ;; description is (class {:prop value}* child*)
+  ;; child is {ui {:prop value}*}
+  (let ((class (first description)))
+    (multiple-value-bind (props rest) (parse-ui-props (rest description))
+      (let ((children (parse-ui-children rest)))
+        (make-ui-d :class class :props props :children children)))))
+
+(defun get-ui-d-var (d)
+  (let ((prop (find :var (ui-d-props d) :key #'ui-prop-name)))
+    (if prop
+        (ui-prop-value prop)
+        (gensym (format nil "~A-" (symbol-name (ui-d-class d)))))))
+
+(defun get-ui-d-initform (d)
+  `(make-instance ',(ui-d-class d)
+                  ,@(iter (for prop in (ui-d-props d))
+                          (unless (eq (ui-prop-name prop) :var)
+                            (appending (list (ui-prop-name prop) (ui-prop-value prop)))))))
+
+(defvar *ui-child-packers* (make-hash-table))
+
+(defmacro def-ui-child-packer (class (var child-def child) &body body)
+  `(setf (gethash ',class *ui-child-packers*)
+         (lambda (,var ,child-def ,child) ,@body)))
+
+(def-ui-child-packer container (w d child)
+  (declare (ignore d))
+  `(container-add ,w ,child))
+
+(defun get-ui-child-prop-value (d name required-p context)
+  (let ((prop (find name (ui-child-props d) :key #'ui-prop-name)))
+    (if (and required-p (null prop))
+        (error "~A is a mandatory child property for ~A" name context)
+        (when prop (ui-prop-value prop)))))
+
+(def-ui-child-packer box (b d child)
+  (let ((expand-prop (find :expand (ui-child-props d) :key #'ui-prop-name))
+        (fill-prop (find :fill (ui-child-props d) :key #'ui-prop-name))
+        (padding-prop (find :padding (ui-child-props d) :key #'ui-prop-name)))
+    `(box-pack-start ,b ,child
+                     ,@(when expand-prop (list :expand (ui-prop-value expand-prop)))
+                     ,@(when fill-prop (list :fill (ui-prop-value fill-prop)))
+                     ,@(when padding-prop (list :padding (ui-prop-value padding-prop))))))
+
+(def-ui-child-packer paned (p d child)
+  (let ((resize-prop (find :resize (ui-child-props d) :key #'ui-prop-name))
+        (shrink-prop (find :shrink (ui-child-props d) :key #'ui-prop-name)))
+    `(if (null (paned-child-1 ,p))
+         (paned-pack-1 ,p ,child
+                       ,@(when resize-prop (list :resize (ui-prop-value resize-prop)))
+                       ,@(when shrink-prop (list :shrink (ui-prop-value shrink-prop))))
+         (paned-pack-2 ,p ,child
+                       ,@(when resize-prop (list :resize (ui-prop-value resize-prop)))
+                       ,@(when shrink-prop (list :shrink (ui-prop-value shrink-prop)))))))
+
+(def-ui-child-packer table (table d child)
+  `(table-attach ,table ,child
+                 ,(get-ui-child-prop-value d :left t "table packing")
+                 ,(get-ui-child-prop-value d :right t "table packing")
+                 ,(get-ui-child-prop-value d :top t "table packing")
+                 ,(get-ui-child-prop-value d :bottom t "table packing")
+                 ,@(let ((x-options (get-ui-child-prop-value d :x-options nil nil)))
+                        (when x-options
+                          (list :x-options x-options)))
+                 ,@(let ((y-options (get-ui-child-prop-value d :y-options nil nil)))
+                        (when y-options
+                          (list :y-options y-options)))
+                 ,@(let ((x-padding (get-ui-child-prop-value d :x-padding nil nil)))
+                        (when x-padding
+                          (list :x-padding x-padding)))
+                 ,@(let ((y-padding (get-ui-child-prop-value d :y-padding nil nil)))
+                        (when y-padding
+                          (list :y-padding y-padding)))))
+
+(defun get-child-packer-fn (d)
+  (iter (for class first (find-class (ui-d-class d)) then (first (c2mop:class-direct-superclasses class)))
+        (while class)
+        (for packer = (gethash (class-name class) *ui-child-packers*))
+        (when packer (return packer))))
+
+(defun get-child-packer (d var)
+  (let ((fn (get-child-packer-fn d)))
+    (when fn
+      (let ((forms (iter (for child in (ui-d-children d))
+                         (for child-var = (ui-d-var (ui-child-v child)))
+                         (collect (funcall fn var child child-var)))))
+        (when forms (cons 'progn forms))))))
+
+(defun get-ui-d-initializer (d var)
+  (get-child-packer d var))
+
+(defun set-ui-expansion-1 (d)
+  (when (ui-d-class d)
+    ;; only direct-vars do not have class
+    (setf (ui-d-var d) (get-ui-d-var d)
+          (ui-d-initform d) (get-ui-d-initform d))
+    (setf (ui-d-initializer d) (get-ui-d-initializer d (ui-d-var d)))))
+
+(defun set-ui-expansion (description)
+  (iter (for child in (ui-d-children description))
+        (set-ui-expansion (ui-child-v child)))
+  (set-ui-expansion-1 description))
+
+(defun flattened-ui-descriptions (d)
+  (cons d
+        (iter (for child in (ui-d-children d))
+              (when (ui-d-class (ui-child-v child))
+                (appending (flattened-ui-descriptions (ui-child-v child)))))))
+
+(defmacro let-ui (ui-description &body body)
+  (let* ((description (parse-ui-description ui-description))
+         (items (flattened-ui-descriptions description)))
+    (set-ui-expansion description)
+    `(let (,@(iter (for i in items)
+                   (collect (list (ui-d-var i)
+                                  (ui-d-initform i)))))
+       ,@(iter (for i in items)
+               (when (ui-d-initializer i)
+                 (collect (ui-d-initializer i))))
+       ,@body)))
-- 
1.7.10.4