gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-04-23 09:04:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add option to set stylesheet

Browse source
This commit is contained in:
rfm 2024-08-06 20:17:38 +01:00
parent 6c43f6c831
commit 9bdad8d56b
3 changed files with 36 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Source/DocMakefile
View file

@ -253,6 +253,7 @@ Base_AGSDOC_FLAGS = \
-ConstantsTemplate TypesAndConstants \
-FunctionsTemplate Functions \
-MacrosTemplate Functions \
-StylesheetURL gnustepStyle \
-TypedefsTemplate TypesAndConstants \
-VariablesTemplate TypesAndConstants \
-WordMap '{\

28
Tools/AGSOutput.m
View file

@ -355,6 +355,19 @@ static BOOL snuggleStart(NSString *t)
[str appendString: @"\""];
}
tmp = [info objectForKey: @"stylesheeturl"];
if (nil == tmp)
{
tmp = [[NSUserDefaults standardUserDefaults]
stringForKey: @"StylesheetURL"];
}
if (tmp)
{
[str appendString: @" stylesheeturl=\""];
[str appendString: tmp];
[str appendString: @"\""];
}
tmp = [info objectForKey: @"up"];
if (tmp != nil)
{
@ -2351,6 +2364,18 @@ static BOOL snuggleStart(NSString *t)
[str appendString: @"<gsdoc base=\""];
[str appendString: [name lastPathComponent]];
[str appendString: @"\""];
if (nil == tmp)
{
tmp = [[NSUserDefaults standardUserDefaults]
stringForKey: @"StylesheetURL"];
}
if (tmp)
{
[str appendString: @" stylesheeturl=\""];
[str appendString: tmp];
[str appendString: @"\""];
}
/*
* If a -Up default has been set, create an up link in this
* template file... as long as the specified up link is not
@ -2360,8 +2385,9 @@ static BOOL snuggleStart(NSString *t)
{
[str appendString: @"\" up=\""];
[str appendString: up];
[str appendString: @"\""];
}
[str appendString: @"\">\n"];
[str appendString: @">\n"];
[str appendString: @" <head>\n"];
[str appendString: @" <title>"];
[str appendString: kind];

10
Tools/autogsdoc.m
View file

@ -462,6 +462,10 @@
is part of GNUstep and possibly complies with the OpenStep standard
or implements MacOS-X compatible methods.
</item>
<item><strong>StylesheetURL</strong>
The URL of a CSS document to be used as the stadard stylesheet for
generated autogsdoc files.
</item>
<item><strong>SystemProjects</strong>
This value is used to control the automatic inclusion of system
external projects into the indexing system for generation of
@ -816,6 +820,8 @@ main(int argc, char **argv, char **env)
@"VariablesTemplate",
@"\t\tBOOL\t(NO)\n\tif YES, create documentation pages "
@"for display in HTML frames",
@"StylesheetURL",
@"\t\tString\t(nil)\n\tIf set, stylesheet of generated agsdoc files",
@"MakeFrames",
@"\t\tString\t(nil)\n\tIf set, look for DTDs in the given directory",
@"DTDs",
@ -831,8 +837,8 @@ main(int argc, char **argv, char **env)
arg = [argsGiven objectAtIndex: i];
if ([arg characterAtIndex: 0] == '-')
{
opt = ([arg characterAtIndex: 1] == '-') ?
[arg substringFromIndex: 2] : [arg substringFromIndex: 1];
opt = ([arg characterAtIndex: 1] == '-')
? [arg substringFromIndex: 2] : [arg substringFromIndex: 1];
}
else
{