changeset 554:a6c72ad6445a dev

Add \ruby{}{} completion with okumacro package
author HIROSE Yuuji <yuuji@gentei.org>
date Wed, 07 Nov 2018 09:03:15 +0900
parents ae0b9fe6372a
children d3d69b669ef0
files yatex.el yatexadd.el yatexpkg.el
diffstat 3 files changed, 12 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/yatex.el	Mon Oct 22 11:49:20 2018 +0900
+++ b/yatex.el	Wed Nov 07 09:03:15 2018 +0900
@@ -1,6 +1,6 @@
 ;;; yatex.el --- Yet Another tex-mode for emacs //쒹// -*- coding: sjis -*-
 ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Mon Oct 22 11:43:30 2018 on firestorm
+;;; Last modified Wed Nov  7 08:56:44 2018 on firestorm
 ;;; $Id$
 ;;; The latest version of this software is always available at;
 ;;; https://www.yatex.org/
@@ -16,7 +16,7 @@
 
 ;;; Code:
 (require 'yatexlib)
-(defconst YaTeX-revision-number "1.80.4"
+(defconst YaTeX-revision-number "1.80.5"
   "Revision number of running yatex.el")
 
 ;---------- Local variables ----------
@@ -325,6 +325,7 @@
      ("cref") ("crefrange") ("cpageref") ("labelcref") ("labelcpageref")
      ("frametitle") ("framesubtitle") 				;; beamer
      ("subfigure")						;; subfigure
+     ("ruby" 2) ("kenten")					;; okumacro
      )
    (if YaTeX-use-LaTeX2e
        '(("documentclass") ("usepackage")
--- a/yatexadd.el	Mon Oct 22 11:49:20 2018 +0900
+++ b/yatexadd.el	Wed Nov 07 09:03:15 2018 +0900
@@ -1,6 +1,6 @@
 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
 ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Mon Oct 22 11:46:32 2018 on firestorm
+;;; Last modified Wed Nov  7 09:01:08 2018 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -2142,6 +2142,11 @@
   (setq YaTeX-section-name "includegraphics")
   nil)
 
+;; for okumacro
+(defun YaTeX::ruby (argp)
+  (cond
+   ((= argp 1) (YaTeX-read-string-or-skip "Kanji: ")) 
+   ((= argp 2) (YaTeX-read-string-or-skip "Yomi: "))))
 
 (defvar YaTeX::usepackage-alist-default
   '(("version") ("plext") ("url") ("fancybox") ("pifont") ("longtable")
@@ -2150,7 +2155,7 @@
     ("a4j") ("array") ("epsf") ("color") ("xcolor") ("epsfig") ("floatfig")
     ("landscape") ("path") ("supertabular") ("twocolumn")
     ("latexsym") ("times") ("makeidx") ("geometry") ("type1cm")
-    ("subfigure"))
+    ("subfigure") ("okumacro"))
   "Default completion table for arguments of \\usepackage")
 
 (defvar YaTeX::usepackage-alist-private nil
--- a/yatexpkg.el	Mon Oct 22 11:49:20 2018 +0900
+++ b/yatexpkg.el	Wed Nov 07 09:03:15 2018 +0900
@@ -1,7 +1,7 @@
 ;;; yatexpkg.el --- YaTeX package manager -*- coding: sjis -*-
 ;;; 
 ;;; (c)2003-2018 by HIROSE, Yuuji [yuuji@yatex.org]
-;;; Last modified Mon Oct 22 11:48:49 2018 on firestorm
+;;; Last modified Wed Nov  7 08:57:36 2018 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -58,6 +58,7 @@
     ("setspace"	(env "spacing") (section "setstretch"))
     ("cases"	(env "numcases" "subnumcases"))
     ("subfigure"	(section "subfigure"))
+    ("okumacro"	(section "ruby" "kenten"))
     )
   "Default package vs. macro list.
 Alists contains '(PACKAGENAME . MACROLIST)