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"))