 |
Much better (I hope) get_html_title implementation, first try to find <title>, … |
 |
git clone git://git.suckless.org/swerc |
 |
Log |
|
Files |
|
Refs |
|
README |
|
--- |
|
commit 78e32eb2e123a7cf00b3f2241f96822800640b73 |
|
parent 55d7075ba764df6038931c25e18d4908bd6f73d7 |
|
Author: [email protected] <unknown> |
|
Date: Thu, 30 Jul 2009 02:12:06 +0200 |
|
|
|
Much better (I hope) get_html_title implementation, first try to find <title>, … |
|
Diffstat: |
|
M bin/werclib.rc | 13 +++++++------ |
|
|
|
1 file changed, 7 insertions(+), 6 deletions(-) |
|
--- |
|
diff --git a/bin/werclib.rc b/bin/werclib.rc |
|
@@ -98,12 +98,13 @@ fn get_md_title { |
|
} |
|
|
|
fn get_html_title { |
|
- # H1 is not reliable because htmlroff doesn't use it :( |
|
- #desc=`{cat $1 | sed 32q | grep '<[Hh]1>' | sed 's/<[Hh]1>(.*)(<\/[Hh]1>|$… |
|
- # Pick the first line of body instead |
|
- desc=`{sed -n '/<[Bb][Oo][Dd][Yy]/,/./s/(<[^>]*>|$)//gp' < $1} |
|
- if(~ $#desc 0) |
|
- desc=`{sed 's/<[^>]*>//g; 1q' < $1} |
|
+ t=`{sed -n '32q; s/^.*<[Tt][Ii][Tt][Ll][Ee]> *([^<]+) *(<\/[Tt][Ii][Tt][Ll… |
|
+ |
|
+ # As a backup we might want to pick the first 'non-tag' text in the file w… |
|
+ if(~ $"t '') |
|
+ t=`{sed -n -e 's/^(<[^>]+>)*([^<]+).*/\2/p; 32q' < $1 | sed 1q} |
|
+ |
|
+ echo $t |
|
} |
|
|
|
fn get_file_title { |
