Difference between revisions of "Template:Article"
From The Doctor Who Cuttings Archive
Jump to navigationJump to searchJohn Lavalie (talk | contribs) |
John Lavalie (talk | contribs) |
||
| (23 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
<includeonly> | <includeonly> | ||
| − | '''{{PAGENAME}}''' ({{#sub:{{{date}}}|0|4}})<br /><br /> | + | <!--'''{{PAGENAME}}''' ({{#sub:{{{date}}}|0|4}})<br /><br /> don't need this with new skin--> |
<!-- Hidden categories and set properties --> | <!-- Hidden categories and set properties --> | ||
| − | + | {{#if: {{{file}}} | | [[Category:Articles with no image]]No image available. {{#if: {{{text}}} | However there is a {{#switchtablink:Text|transcription}} available.}}{{#if: {{{abstract|}}} | | <br /><br /><span class='NoPrint'>Do you have an image? Email us: {{email}}</span> }} }}{{#if: {{{text}}} | | [[Category:Articles with no OCR]] }} {{#if: {{{date}}} | [[Category:Articles published in {{#sub:{{{date}}}|0|4}}]] {{#set: Has DatePublished = {{{date}}} }} | }} | |
{{#ifeq: {{#sub:{{{file}}}|-3}} | jpg | [[Image:{{{file}}}|link={{filepath:{{{file}}} }}|{{{px|250}}}px]] | {{#ifeq: {{#sub:{{{file}}}|-3}} | jpg | [[Image:{{{file}}}|link={{filepath:{{{file}}} }}|{{{px|250}}}px]] | ||
*{{filepath:{{{file}}} }} {{#set:Has Image={{filepath: {{{file}}} }} }} | }} | *{{filepath:{{{file}}} }} {{#set:Has Image={{filepath: {{{file}}} }} }} | }} | ||
| Line 20: | Line 20: | ||
{{{text}}} {{#vardefine:lang | {{LanguageCode|{{{language}}} }} }} | {{{text}}} {{#vardefine:lang | {{LanguageCode|{{{language}}} }} }} | ||
{{#ifeq: {{#var:lang}} | en | | | {{#ifeq: {{#var:lang}} | en | | | ||
| − | *[ | + | *[https://translate.google.com/?sl={{#var:lang}}&tl=en&text={{urlencode:{{{text}}} }} Google Translate] }} | }} |
| − | + | ||
= Citations = | = Citations = | ||
| Line 30: | Line 30: | ||
* '''Chicago 15th ed.''': {{#if: {{{author|}}} | {{InvertName|{{{author}}}}}. | }} "{{ARTICLEPAGENAME}}." {{{publication}}}, edition, sec., {{{display date|{{{date}}}}}} | * '''Chicago 15th ed.''': {{#if: {{{author|}}} | {{InvertName|{{{author}}}}}. | }} "{{ARTICLEPAGENAME}}." {{{publication}}}, edition, sec., {{{display date|{{{date}}}}}} | ||
* '''Turabian''': {{#if: {{{author}}} | {{InvertName|{{{author}}}}}. | }} "{{ARTICLEPAGENAME}}." ''{{{publication}}}'', {{{display date|{{{date}}}}}}, section, {{{pages|}}} edition. | * '''Turabian''': {{#if: {{{author}}} | {{InvertName|{{{author}}}}}. | }} "{{ARTICLEPAGENAME}}." ''{{{publication}}}'', {{{display date|{{{date}}}}}}, section, {{{pages|}}} edition. | ||
| − | * '''Wikipedia (this article)''': <nowiki><ref>{{</nowiki>cite news| title={{ARTICLEPAGENAME}} | | + | * '''Wikipedia (this article)''': <nowiki><ref>{{</nowiki>cite news| title={{ARTICLEPAGENAME}} | url=<nowiki>http://cuttingsarchive.org/index.php/</nowiki>{{FULLPAGENAMEE}} | work={{{publication}}} | pages={{{pages}}} | date={{{display date|{{{date}}}}}} | via=Doctor Who Cuttings Archive | accessdate={{CURRENTDAY}} {{CURRENTMONTHNAME}} {{CURRENTYEAR}} <nowiki>}}</ref></nowiki> |
| − | * '''Wikipedia (this page)''': <nowiki><ref>{{</nowiki>cite web | title={{ARTICLEPAGENAME}} | url=<nowiki>http://cuttingsarchive.org/index.php/</nowiki>{{ | + | * '''Wikipedia (this page)''': <nowiki><ref>{{</nowiki>cite web | title={{ARTICLEPAGENAME}} | url=<nowiki>http://cuttingsarchive.org/index.php/</nowiki>{{FULLPAGENAMEE}} | work=Doctor Who Cuttings Archive | accessdate={{CURRENTDAY}} {{CURRENTMONTHNAME}} {{CURRENTYEAR}}<nowiki>}}</ref></nowiki> |
{{#if: {{{moreTitles|}}} | {{#if: {{{moreTitles|}}} | ||
|= Additional versions = | |= Additional versions = | ||
| Line 56: | Line 56: | ||
{{#if: {{{categories}}} | {{#arraydefine:Cats|{{{categories}}} }} }} | {{#if: {{{categories}}} | {{#arraydefine:Cats|{{{categories}}} }} }} | ||
{{#if: {{{categories}}} | {{#arrayprint:Cats | | @@@@ |[[Category:@@@@]] }} }} | {{#if: {{{categories}}} | {{#arrayprint:Cats | | @@@@ |[[Category:@@@@]] }} }} | ||
| − | + | {{DS}}__NOTOC__ | |
| − | {{DS}} | ||
[[Category:Articles]] | [[Category:Articles]] | ||
</includeonly> | </includeonly> | ||
| Line 79: | Line 78: | ||
| text = <br /> | | text = <br /> | ||
}} | }} | ||
| − | <pre> | + | |
| + | <pre>{{Image table | ||
| + | |{{img||px|}} | ||
| + | |{{img||px|}} | ||
| + | |{{img||px|}} | ||
| + | |{{img||px|}} | ||
| + | |{{img||px|}} | ||
| + | }} | ||
| + | |||
Sub filetoCuttings() | Sub filetoCuttings() | ||
Latest revision as of 02:17, 21 December 2021
{{article
| publication =
| file =
| px =
| height =
| width =
| date =
| author =
| pages =
| language = English
| type =
| description =
| categories =
| moreTitles =
| morePublications =
| moreDates =
| text =
}}
{{Image table
|{{img||px|}}
|{{img||px|}}
|{{img||px|}}
|{{img||px|}}
|{{img||px|}}
}}
Sub filetoCuttings()
Application.DisplayAlerts = wdAlertsNone
Selection.WholeStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "File:"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Selection.WholeStory
FName = Selection
FName = Trim(FName)
ftype = Mid(FName, Len(FName) - 3, 3)
FName = Left(FName, Len(FName) - 5)
pos = InStr(FName, " ")
fdate = Left(FName, pos - 1)
FName = Mid(FName, pos + 1)
p = Right(FName, 3)
p = Trim(p)
If p Like "p#" Then
p = Right(p, 1)
FName = Left(FName, Len(FName) - 3)
ElseIf p Like "p##" Then
p = Right(p, 2)
FName = Left(FName, Len(FName) - 4)
Else
p = ""
End If
out = "{{article" & vbCrLf & "| publication = " & FName & vbCrLf
out = out & "| file = " & fdate & " " & FName & "." & ftype & vbCrLf
out = out & "| px = "
If ftype = "jpg" Then out = out & "450"
out = out & vbCrLf & "| height = " & vbCrLf
out = out & "| width = " & vbCrLf & "| date = " & fdate & vbCrLf
If Len(fdate) < 10 Then out = out & "| display date = " & vbCrLf
out = out & "| author = " & vbCrLf & "| pages = " & p & vbCrLf & "| language = English " & vbCrLf
out = out & "| type = " & vbCrLf & "| description = " & vbCrLf & "| categories = " & vbCrLf
out = out & "| moreTitles = " & vbCrLf & "| morePublications = " & vbCrLf & "| moreDates = " & vbCrLf
out = out & "| text = " & vbCrLf & "}}"
Selection.TypeText (out)
Application.DisplayAlerts = wdAlertsAll
End Sub