Add link.journal option (#144)

zepinglee · Nov 9, 2023 · 89c45ee · 89c45ee
1 parent 5ba4dcd
commit 89c45ee
Show file tree

Hide file tree

Showing 15 changed files with 1,002 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -7,9 +7,13 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+## Added
+
+新增选项 `link.journal` 允许在期刊题名添加超链接（[#144](https://github.com/zepinglee/gbt7714-bibtex-style/issues/144)）。
+
 ## Fixed
 
-修复 `not brace-balanced` 的警告（[#113](https://github.com/zepinglee/gbt7714-bibtex-style/issues/113）。
+修复 `not brace-balanced` 的警告（[#113](https://github.com/zepinglee/gbt7714-bibtex-style/issues/113)）。
 
 ## [v2.1.5] - 2022-10-03
 

diff --git a/gbt7714-2005-author-year.bst b/gbt7714-2005-author-year.bst
@@ -39,6 +39,7 @@ INTEGERS {
   show.medium.type
   short.journal
   italic.journal
+  link.journal
   bold.journal.volume
   show.missing.address.publisher
   space.before.pages
@@ -83,6 +84,7 @@ FUNCTION {load.config}
   "slash" 'component.part.label :=
   #0 'short.journal :=
   #0 'italic.journal :=
+  #0 'link.journal :=
   #0 'bold.journal.volume :=
   #0 'show.missing.address.publisher :=
   #1 'space.before.pages :=
@@ -1080,6 +1082,10 @@ FUNCTION {format.journal}
         'emphasize
         'skip$
       if$
+      link.journal
+        'add.link
+        'skip$
+      if$
     }
     'skip$
   if$

diff --git a/gbt7714-2005-numerical.bst b/gbt7714-2005-numerical.bst
@@ -39,6 +39,7 @@ INTEGERS {
   show.medium.type
   short.journal
   italic.journal
+  link.journal
   bold.journal.volume
   show.missing.address.publisher
   space.before.pages
@@ -78,6 +79,7 @@ FUNCTION {load.config}
   "slash" 'component.part.label :=
   #0 'short.journal :=
   #0 'italic.journal :=
+  #0 'link.journal :=
   #0 'bold.journal.volume :=
   #0 'show.missing.address.publisher :=
   #1 'space.before.pages :=
@@ -1070,6 +1072,10 @@ FUNCTION {format.journal}
         'emphasize
         'skip$
       if$
+      link.journal
+        'add.link
+        'skip$
+      if$
     }
     'skip$
   if$

diff --git a/gbt7714-author-year.bst b/gbt7714-author-year.bst
@@ -39,6 +39,7 @@ INTEGERS {
   show.medium.type
   short.journal
   italic.journal
+  link.journal
   bold.journal.volume
   show.missing.address.publisher
   space.before.pages
@@ -83,6 +84,7 @@ FUNCTION {load.config}
   "slash" 'component.part.label :=
   #0 'short.journal :=
   #0 'italic.journal :=
+  #0 'link.journal :=
   #0 'bold.journal.volume :=
   #0 'show.missing.address.publisher :=
   #1 'space.before.pages :=
@@ -1080,6 +1082,10 @@ FUNCTION {format.journal}
         'emphasize
         'skip$
       if$
+      link.journal
+        'add.link
+        'skip$
+      if$
     }
     'skip$
   if$

diff --git a/gbt7714-numerical.bst b/gbt7714-numerical.bst
@@ -39,6 +39,7 @@ INTEGERS {
   show.medium.type
   short.journal
   italic.journal
+  link.journal
   bold.journal.volume
   show.missing.address.publisher
   space.before.pages
@@ -78,6 +79,7 @@ FUNCTION {load.config}
   "slash" 'component.part.label :=
   #0 'short.journal :=
   #0 'italic.journal :=
+  #0 'link.journal :=
   #0 'bold.journal.volume :=
   #0 'show.missing.address.publisher :=
   #1 'space.before.pages :=
@@ -1070,6 +1072,10 @@ FUNCTION {format.journal}
         'emphasize
         'skip$
       if$
+      link.journal
+        'add.link
+        'skip$
+      if$
     }
     'skip$
   if$

diff --git a/gbt7714.dtx b/gbt7714.dtx
@@ -334,6 +334,7 @@
 %   show.medium.type               & |#1|   & 显示载体类型标识               \\
 %   component.part.label           & |"slash"| & 表示析出文献的符号，可选：|"in"|, |"none"| \\
 %   italic.journal                 & |#0|   & 西文期刊名使用斜体             \\
+%   link.journal                   & |#0|   & 在期刊题名上添加 url 的超链接      \\
 %   show.missing.address.publisher & |#0|   & 出版项缺失时显示“出版者不详”   \\
 %   space.before.pages             & |#1|   & 页码与前面的冒号之间有空格     \\
 %   only.start.page                & |#0|   & 只显示起始页码                 \\
@@ -891,6 +892,7 @@ INTEGERS {
   show.medium.type
   short.journal
   italic.journal
+  link.journal
   bold.journal.volume
   show.missing.address.publisher
   space.before.pages
@@ -1098,6 +1100,16 @@ FUNCTION {load.config}
 %</italic-journal>
 %    \end{macrocode}
 %
+% 在期刊题名添加超链接：
+%    \begin{macrocode}
+%<*!link-journal>
+  #0 'link.journal :=
+%</!link-journal>
+%<*link-journal>
+  #1 'link.journal :=
+%</link-journal>
+%    \end{macrocode}
+%
 % 期刊的卷使用粗体：
 %    \begin{macrocode}
   #0 'bold.journal.volume :=
@@ -2617,6 +2629,10 @@ FUNCTION {format.journal}
         'emphasize
         'skip$
       if$
+      link.journal
+        'add.link
+        'skip$
+      if$
     }
     'skip$
   if$