From c18f7912b1c8f9d1a036728aef5cd4886b12290e Mon Sep 17 00:00:00 2001 From: Eduardo Chappa Date: Mon, 3 Sep 2018 19:03:23 -0600 Subject: * WEBALPINE: Add support for the OPENINGTEXT and OPENINGTEXTNQ tokens in the index format. --- web/cgi/alpine/2.0/css/menu.css | 7 ++----- web/cgi/alpine/2.0/messagelist.tcl | 9 +++++++++ 2 files changed, 11 insertions(+), 5 deletions(-) (limited to 'web/cgi') diff --git a/web/cgi/alpine/2.0/css/menu.css b/web/cgi/alpine/2.0/css/menu.css index ecf01ee6..abd4fb3b 100644 --- a/web/cgi/alpine/2.0/css/menu.css +++ b/web/cgi/alpine/2.0/css/menu.css @@ -10,13 +10,10 @@ * ======================================================================== */ -.menu a, .menu a:link, .menu a:visited { +a.transparent, a.transparent:link, a.transparent:hover, a.transparent:visited { white-space: nowrap; - color: #ffffff; + color: #000000; display: block; - margin: 0; - padding: 0 8px; - line-height: 34px; text-decoration: none; } diff --git a/web/cgi/alpine/2.0/messagelist.tcl b/web/cgi/alpine/2.0/messagelist.tcl index 9f1306ce..c154c8db 100644 --- a/web/cgi/alpine/2.0/messagelist.tcl +++ b/web/cgi/alpine/2.0/messagelist.tcl @@ -454,6 +454,15 @@ proc drawMessageList {c f n ppg} { set cd [cgi_buffer {cgi_h1 $h1c id=h1$ilu [cgi_url [cgi_quote_html $subtext] ${listaction}$ilu id=ml$ilu class=wap [subst $viewonclick]]}] } + excerpt { + set exstr [lindex [lindex [lindex $msg $j] 0] 0] + set exlen 125 + if {[string length $exstr] > $exlen} { + set exstr "[string range $exstr 0 $exlen]..." + } + + set cd [cgi_buffer {cgi_h1 $h1c id=h1$ilu [cgi_url_transparent [cgi_quote_html $exstr] ${listaction}$ilu id=ml$ilu class=wap [subst $viewonclick]]}] + } status { set align center catch {unset statclass} -- cgit v1.2.3-54-g00ecf