Check-in [4e28dbceeb]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Full width markdown on vertical devices
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4e28dbceeb5ea7ab38a9e21e9a9cb76dcef0734b
User & Date: bernd 2019-03-28 14:38:12
Context
2019-03-30
10:32
Small changes check-in: 6f0b12fb72 user: bernd tags: trunk
2019-03-28
14:38
Full width markdown on vertical devices check-in: 4e28dbceeb user: bernd tags: trunk
13:43
Bump version number check-in: 7415c3a39d user: bernd tags: trunk, 0.8.8-20190328
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to gui.fs.

676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
...
706
707
708
709
710
711
712

713
714
715
716
717
718
719
720
	    }}h box[]
	}}z box[]
	{{
	    {{
		glue*ll }}glue
		tex: vp-md
	    glue*l ' vp-md }}vp dup to project-vp
	    >o "project" to name$ font-size# dpy-w @ s>f 25% f* fover f- fdup fnegate to borderv f+ to border o o>
	dup font-size# 66% f* fdup vslider }}h box[]
	>o "project-slider" to name$ o o>
    }}v box[]
    >o "project-vbox" to name$ o o>
}}z box[]
>o "project-zbox" to name$ o o>
to post-frame
................................................................................
: display-file { d: prj -- }
    prj display-title
    prj [ keysize $10 + ]L safe/string
    2dup "file:" string-prefix? IF
	0 to v-box
	5 /string [: ." ~+/" type ;] $tmp markdown-parse
	v-box project-vp .child+

	dpy-w @ 50% fm* p-format
    ELSE  2drop  THEN ;
: display-project ( addr u -- )
    project-vp >o dispose-childs  free-thumbs  0 to active-w o>
    project:branch$ $@ { d: branch }
    dvcs:new-project-log >o
    ?msg-log  last# msg-log@ 2dup { log u }
    bounds ?DO







|







 







>
|







676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
...
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
	    }}h box[]
	}}z box[]
	{{
	    {{
		glue*ll }}glue
		tex: vp-md
	    glue*l ' vp-md }}vp dup to project-vp
	    >o "project" to name$ font-size# dpy-w @ dpy-h @ > [IF]  dpy-w @ 25% fm* fover f- [ELSE] 0e [THEN] fdup fnegate to borderv f+ to border o o>
	dup font-size# 66% f* fdup vslider }}h box[]
	>o "project-slider" to name$ o o>
    }}v box[]
    >o "project-vbox" to name$ o o>
}}z box[]
>o "project-zbox" to name$ o o>
to post-frame
................................................................................
: display-file { d: prj -- }
    prj display-title
    prj [ keysize $10 + ]L safe/string
    2dup "file:" string-prefix? IF
	0 to v-box
	5 /string [: ." ~+/" type ;] $tmp markdown-parse
	v-box project-vp .child+
	dpy-w @ dpy-h @ > IF  dpy-w @ 50% fm*  ELSE  dpy-w @ s>f font-size# f2* f-  THEN
	p-format
    ELSE  2drop  THEN ;
: display-project ( addr u -- )
    project-vp >o dispose-childs  free-thumbs  0 to active-w o>
    project:branch$ $@ { d: branch }
    dvcs:new-project-log >o
    ?msg-log  last# msg-log@ 2dup { log u }
    bounds ?DO