yatex
changeset 528:523f54775325 dev
Add completion for bibliographystyle
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Wed, 16 May 2018 22:42:48 +0900 |
parents | af4601ee3c6a |
children | b742adfa30e2 |
files | yatex.el yatexadd.el |
diffstat | 2 files changed, 21 insertions(+), 3 deletions(-) [+] |
line diff
1.1 --- a/yatex.el Sat Feb 24 16:45:09 2018 +0900 1.2 +++ b/yatex.el Wed May 16 22:42:48 2018 +0900 1.3 @@ -1,6 +1,6 @@ 1.4 ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*- 1.5 ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org] 1.6 -;;; Last modified Tue Jan 23 12:55:49 2018 on firestorm 1.7 +;;; Last modified Wed May 16 13:41:39 2018 on firestorm 1.8 ;;; $Id$ 1.9 ;;; The latest version of this software is always available at; 1.10 ;;; https://www.yatex.org/ 1.11 @@ -303,7 +303,8 @@ 1.12 ("author") ("thanks") ("documentstyle") ("pagestyle") ("thispagestyle") 1.13 ("title") ("underline") ("label") ("makebox") 1.14 ("footnote") ("footnotetext") ("index") 1.15 - ("hspace*") ("vspace*") ("bibliography") ("bibitem") ("cite") 1.16 + ("hspace*") ("vspace*") 1.17 + ("bibliography") ("bibliographystyle") ("bibitem") ("cite") 1.18 ("input") ("include") ("includeonly") ("mbox") ("hbox") ("caption") 1.19 ("arabic") ("centering") ("uline") 1.20 ("newcounter")
2.1 --- a/yatexadd.el Sat Feb 24 16:45:09 2018 +0900 2.2 +++ b/yatexadd.el Wed May 16 22:42:48 2018 +0900 2.3 @@ -1,6 +1,6 @@ 2.4 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- 2.5 ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org] 2.6 -;;; Last modified Wed Jan 3 23:57:48 2018 on firestorm 2.7 +;;; Last modified Wed May 16 22:41:56 2018 on firestorm 2.8 ;;; $Id$ 2.9 2.10 ;;; Code: 2.11 @@ -1519,6 +1519,23 @@ 2.12 2.13 (t nil))) 2.14 2.15 +(defvar YaTeX::bibliographystyle-alist-default 2.16 + '(("unsrt")("junsrt")("plain")("jplain")("alpha")("jalpha") 2.17 + ("abbrv")("jabbrv")("jipsj")("jname")("tieice")("tipsj") 2.18 + ("apalike")("ieeetr")("siam"))) 2.19 +(defvar YaTeX::bibliographystyle-alist-private 2.20 + nil 2.21 + "*Completion table for bibliographystyle") 2.22 + 2.23 +(defun YaTeX::bibliographystyle(argp) 2.24 + (cond 2.25 + ((= argp 1) 2.26 + (YaTeX-completing-read-or-skip 2.27 + "BibStyle: " 2.28 + (append YaTeX::bibliographystyle-alist-private 2.29 + YaTeX::bibliographystyle-alist-default) 2.30 + nil)))) 2.31 + 2.32 (defun YaTeX::bibitem (argp) 2.33 "Add-in function to insert argument of \\bibitem." 2.34 (YaTeX::label argp "label" "cite"))