[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r315: Delete AUCTeX style files with un
|
From: |
Tassilo Horn |
|
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r315: Delete AUCTeX style files with unclear copyright status. |
|
Date: |
Tue, 04 Dec 2012 08:24:27 +0100 |
|
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 315
committer: Tassilo Horn <address@hidden>
branch nick: elpa
timestamp: Tue 2012-12-04 08:24:27 +0100
message:
Delete AUCTeX style files with unclear copyright status.
removed:
packages/auctex/style/dinbrief.el
packages/auctex/style/epsf.el
packages/auctex/style/latexinfo.el
packages/auctex/style/prosper.el
packages/auctex/style/psfig.el
=== removed file 'packages/auctex/style/dinbrief.el'
--- a/packages/auctex/style/dinbrief.el 2012-12-02 18:32:15 +0000
+++ b/packages/auctex/style/dinbrief.el 1970-01-01 00:00:00 +0000
@@ -1,163 +0,0 @@
-;;; dinbrief.el - Special code for LaTeX-Style dinbrief.
-
-;; Contributed by Werner Fink <address@hidden>
-;; Please direct comments to him.
-
-;;; Commentary:
-
-;; LaTeX-Style: dinbrief.sty
-;; Server: rusinfo.rus.uni-stuttgart.de
-;; Directory: /pub/soft/tex/macros/latex/contrib/letters
-
-;;; Code:
-
-(TeX-add-style-hook "dinbrief"
- (function
- (lambda ()
- (LaTeX-add-environments
- '("letter" LaTeX-recipient-hook))
- (TeX-add-symbols
- '("Absender" "Absender: ")
- '("Postvermerk" "Postvermerk: ")
- '("Datum" "Datum: ")
- '("Betreff" "Betreff: ")
- '("Behandlungsvermerk" "Behandlungsvermerk: ")
- '("Verteiler" "Verteiler: ")
- "makelabel" "Retourlabel"
- '("Anlagen" "Anlagen: ")
- '("Fenster" "Fenster \(ja/nein\): ")
- '("Retouradresse" "Retouradresse: ")
- '("signature" "Unterschrift: ")
- '("opening" "Anrede: ")
- '("closing" "Schlu\"s: ")))))
-
-(defun LaTeX-recipient-hook (environment)
- "Insert ENVIRONMENT and prompt for recipient and address."
- (let ((sender (read-string "Absender: " (user-full-name)))
- (recipient (read-string "Empf\"anger: "))
- (address (read-string "Anschrift: "))
- (postvermerk (read-string "Postvermerk: "))
- (date (read-string "Datum: " (LaTeX-today)))
- (betreff (read-string "Betreff: "))
- (vermerk (read-string "Behandlungsvermerk: "))
- (verteil (read-string "Verteiler: "))
- (anlage (read-string "Anlagen: "))
- (opening (read-string "Anrede: "))
- (closing (read-string "Schlu\"s: "))
- (fenster (read-string "Fenster \(ja/nein\): "))
- (signature (read-string "Unterschrift: "))
- )
-
- (if (not (zerop (length sender)))
- (progn
- (insert TeX-esc "Absender" TeX-grop sender TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length postvermerk)))
- (progn
- (insert TeX-esc "Postvermerk" TeX-grop postvermerk TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length betreff)))
- (progn
- (insert TeX-esc "Betreff" TeX-grop betreff TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length vermerk)))
- (progn
- (insert TeX-esc "Behandlungsvermerk" TeX-grop vermerk TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length verteil)))
- (progn
- (insert TeX-esc "Verteiler" TeX-grop verteil TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length anlage)))
- (progn
- (insert TeX-esc "Anlagen" TeX-grop anlage TeX-grcl)
- (newline-and-indent)))
- (if (string= fenster "ja")
- (progn
- (insert TeX-esc "Fenster")
- (let ((retouradr (read-string "Retouradresse: " (user-full-name))))
- (newline-and-indent)
- (if (not (zerop (length retouradr)))
- (progn
- (insert TeX-esc "Retouradresse" TeX-grop retouradr TeX-grcl)
- (newline-and-indent))))))
- (if (not (zerop (length signature)))
- (progn
- (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
- (newline-and-indent)))
- (if (not (zerop (length date)))
- (progn
- (insert TeX-esc "Datum" TeX-grop date TeX-grcl)
- (newline-and-indent)))
- (newline-and-indent)
-
- (let ((indentation (current-column)))
- (LaTeX-insert-environment
- environment
- (concat TeX-grop recipient
- (if (not (zerop (length address)))
- (concat
- (if (not (zerop (length recipient)))
- (concat " " TeX-esc TeX-esc " "))
- address))
- TeX-grcl))
- (save-excursion ; Fix indentation of address
- (if (search-backward TeX-grcl nil 'move)
- (let ((addr-end (point-marker)))
- (if (search-backward TeX-grop nil 'move)
- (let ((addr-column (current-column)))
- (while (search-forward
- (concat TeX-esc TeX-esc)
- (marker-position addr-end) 'move)
- (progn
- (newline)
- (indent-to addr-column))))))))
- (insert "\n")
- (indent-to indentation))
- (insert TeX-esc "opening"
- TeX-grop
- (if (zerop (length opening))
- (concat TeX-esc " ")
- opening)
- TeX-grcl "\n")
-
- (indent-relative-maybe)
- (save-excursion
- (insert "\n" TeX-esc "closing"
- TeX-grop
- (if (zerop (length closing))
- (concat TeX-esc " ")
- closing)
- TeX-grcl "\n")
- (indent-relative-maybe))))
-
-(defun LaTeX-today nil
- "Return a string representing todays date according to flavor."
- (interactive)
- (let ((ctime-string (current-time-string))
- (month-alist '(("Jan" . "Januar")
- ("Feb" . "Februar")
- ("Mar" . "M\\\"arz")
- ("Apr" . "April")
- ("May" . "Mai")
- ("Jun" . "Juni")
- ("Jul" . "Juli")
- ("Aug" . "August")
- ("Sep" . "September")
- ("Oct" . "Oktober")
- ("Nov" . "November")
- ("Dec" . "Dezember"))))
- (string-match
- "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
- ctime-string)
- (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
- (month (substring ctime-string (match-beginning 1) (match-end 1)))
- (day (substring ctime-string (match-beginning 2) (match-end 2))))
- (if (assoc month month-alist)
- (progn
- (setq month (cdr (assoc month month-alist)))
- (if (> 2 (length day))
- (setq day (concat "0" day)))))
- (format "Stuttgart, den %s. %s %s" day month year))))
-
-;;; dinbrief.el ends here
=== removed file 'packages/auctex/style/epsf.el'
--- a/packages/auctex/style/epsf.el 2012-12-02 18:32:15 +0000
+++ b/packages/auctex/style/epsf.el 1970-01-01 00:00:00 +0000
@@ -1,35 +0,0 @@
-;;; epsf.el - Support for the epsf style option.
-
-;; Contributed by Marc Gemis <address@hidden>
-
-;;; Code:
-
-(TeX-add-style-hook
- "epsf"
- (lambda ()
- (TeX-add-symbols
- '("epsfsize" TeX-arg-epsfsize)
- '("epsffile" TeX-arg-file)
- '("epsfbox" TeX-arg-file)
- "epsflly" "epsfury" "testit" "epsfgetlitbb"
- "epsfnormal" "epsfgetbb" "other" "epsfsetgraph"
- "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab"
- "epsfllx" "epsflly" "epsfury" "epsfverbosetrue")))
-
-(defun TeX-arg-epsfsize (optional &optional prompt definition)
- "Create a line that print epsf figures at a certain percentage"
- (interactive)
- (let ((scale (read-string "Scale in percent (default 75): ")))
- (setq scale (if (zerop (length scale)) "75" scale))
- (save-excursion
- ; append #1#{scale#1}
- (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl)
- ; insert \def before \epsfsize
- (beginning-of-line 1)
- (newline)
- (insert TeX-esc "def")
- (forward-line -1)
- (insert "% From now on print figures at " scale "% of original size"))
- (end-of-line)))
-
-;;; epsf.el ends here
=== removed file 'packages/auctex/style/latexinfo.el'
--- a/packages/auctex/style/latexinfo.el 2012-12-02 18:32:15 +0000
+++ b/packages/auctex/style/latexinfo.el 1970-01-01 00:00:00 +0000
@@ -1,181 +0,0 @@
-;;; latexinfo.el - Support for LaTeXinfo files.
-
-;; Copyright (C) 1993 Marc Gemis <address@hidden>
-
-;; Author: Marc Gemis <address@hidden>
-;; Version: $Id: latexinfo.el,v 1.7 2008/02/03 14:53:30 angeli Exp $
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, write to the Free Software
-;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Code:
-
-;;; LaTeXinfo mode
-
-(defvar TeX-latexinfo-node-regexp
- '("\\\\node[ \t]+\\([^,\n\r%]+\\)" 1 TeX-auto-label)
- "Matches LaTeXinfo \\node commands, only current node will be found.
-We ignore next, previous and up fields.")
-
-(defvar LaTeXinfo-mode nil
- "Non-nil means LaTeXinfo minor mode is active.")
- (make-variable-buffer-local 'LaTeXinfo-mode)
-
-(defvar LaTeXinfo-mode-map nil
- "Keymap containing LaTeXinfo commands.")
-
-(if LaTeXinfo-mode-map
- ()
- (setq LaTeXinfo-mode-map (make-sparse-keymap))
- (define-key LaTeXinfo-mode-map "\C-c\C-u\C-b" 'latexinfo-format-buffer)
- (define-key LaTeXinfo-mode-map "\C-c\C-u\C-r" 'latexinfo-format-region)
- (define-key LaTeXinfo-mode-map "\C-c\C-u\C-s" 'latexinfo-show-structure)
- (define-key LaTeXinfo-mode-map "\C-c\C-ud" 'makke:latexinfo-delete-structure)
- (define-key LaTeXinfo-mode-map "\C-c\C-ug" 'latexinfo-goto-node)
- (define-key LaTeXinfo-mode-map "\C-c\C-ui" 'makke:latexinfo-structure))
-
-(or (assq 'LaTeXinfo-mode minor-mode-map-alist)
- (setq minor-mode-map-alist
- (cons (cons 'LaTeXinfo-mode LaTeXinfo-mode-map)
- minor-mode-map-alist)))
-
-(defun TeX-arg-latexinfo-index (optional &optional prompt)
- "Prompt for a LaTeXinfo index type with completion."
- (TeX-argument-insert
- (completing-read (TeX-argument-prompt optional prompt "Index")
- '(("cp") ("vr") ("fn") ("tp") ("pg") ("ky"))
- nil t)
- optional))
-
-(defun LaTeX-item-latexinfo-menu ()
- "Insert a new menu item"
- (insert "* ::")
- (backward-char 2))
-
-(defun latexinfo-goto-node () ; temporarily here, later in latexinfo-upd.el ??
- "Place pointer on the node given by the user, read node with completion
-This fails when the user types in the label of something else"
- (interactive)
- (let ((node-name (completing-read "Goto Node: " (LaTeX-label-list))))
- (goto-char (point-min))
- (if (re-search-forward
- (concat
- TeX-esc "node[ \\t]+" node-name ","
- "\\|"
- TeX-esc "label{" LaTeX-section-label node-name
- "\\|"
- TeX-esc "label{" node-name
- )
- (point-max) t)
- (beginning-of-line 1)
- (error "No such node"))))
-
-;;; Hook
-
-(TeX-add-style-hook "latexinfo"
- (function
- (lambda ()
- (require 'latexinfo)
- (require 'latexinfo-structure)
-
- (require 'min-map)
- (setq LaTeXinfo-mode t)
-
- (TeX-auto-add-regexp TeX-latexinfo-node-regexp)
-
- (TeX-add-symbols
- '("node"
- (TeX-arg-literal " ")
- (TeX-arg-free TeX-arg-define-label "Node name")
- (TeX-arg-literal ", ")
- (TeX-arg-free TeX-arg-label "Next node")
- (TeX-arg-literal ", ")
- (TeX-arg-free TeX-arg-label "Previous node")
- (TeX-arg-literal ", ")
- (TeX-arg-free TeX-arg-label "Up node"))
- '("setfilename" TeX-arg-file)
-
- '("var" t)
- '("dfn" t)
- '("emph" t)
- '("kbd" t)
- '("code" t)
- '("samp" t)
- '("key" t)
- '("ctrl" t)
- '("file" t)
-
- '("comment"
- (TeX-arg-literal " ")
- (TeX-arg-free "Comment"))
- '("c"
- (TeX-arg-literal " ")
- (TeX-arg-free "Comment"))
-
- '("cindex" t)
- '("cpsubindex" 2)
- '("cpindexbold" t)
-
- '("newindex" TeX-arg-latexinfo-index)
-
- '("br" nil)
- '("w" "Text")
- '("dots" nil)
- '("refill" nil)
- '("bullet" nil)
- '("copyright" nil)
- '("sp" nil)
-
- '("xref" TeX-arg-label)
- '("pxref" TeX-arg-label)
- '("inforef"
- (TeX-arg-literal "{")
- (TeX-arg-free "Name of node")
- (TeX-arg-literal ", ")
- (TeX-arg-free "Name for note")
- (TeX-arg-literal ", ")
- (TeX-arg-free TeX-arg-file "Info file")
- (TeX-arg-literal "}")))
-
- (LaTeX-add-environments "menu" "tex" "ignore" "ifinfo" "iftex"
- "example" "same" "display" "format")
-
- ; Menu's have a special kind of items
- (make-local-variable 'LaTeX-item-list)
- (setq LaTeX-item-list (cons '("menu" . LaTeX-item-latexinfo-menu)
- LaTeX-item-list))
-
- (make-local-variable 'TeX-font-list)
- (setq TeX-font-list
- (list (list ?\C-b (concat TeX-esc "b{") "}")
- (list ?\C-c (concat TeX-esc "sc{") "}")
- (list ?\C-e (concat TeX-esc "emph{") "}")
- (list ?\C-i (concat TeX-esc "i{") "}")
- (list ?\C-r (concat TeX-esc "r{") "}")
- (list ?\C-s (concat TeX-esc "samp{") "}")
- (list ?\C-t (concat TeX-esc "t{") "}")
- (list ?s (concat TeX-esc "strong{") "}")
- (list ?\C-f (concat TeX-esc "file{") "}")
- (list ?\C-d (concat TeX-esc "dfn{") "}")
- (list ?\C-v (concat TeX-esc "var{") "}")
- (list ?k (concat TeX-esc "key{") "}")
- (list ?\C-k (concat TeX-esc "kbd{") "}")
- (list ?c (concat TeX-esc "code{") "}")
- (list ?C (concat TeX-esc "cite{") "}")))
-
- ;; need the following stuff to let xref and pxref work
- (make-local-variable 'LaTeX-section-label)
- (setq LaTeX-section-label ""))))
-
-;;; latexinfo.el ends here
=== removed file 'packages/auctex/style/prosper.el'
--- a/packages/auctex/style/prosper.el 2012-12-02 18:32:15 +0000
+++ b/packages/auctex/style/prosper.el 1970-01-01 00:00:00 +0000
@@ -1,192 +0,0 @@
-;;; prosper.el --- Prosper style file for AUCTeX
-
-;; Copyright (C) 2001, 2002 by Philip Lord, Nevin Kapur
-
-;; Authors: Phillip Lord<address@hidden>
-;; Nevin Kapur <address@hidden>
-;; Keywords: tex, wp, prosper
-;; Version: 0.6
-;; URL: http://www.mts.jhu.edu/~kapur/emacs/prosper.el
-
-;; This is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;;; Commentary:
-
-;; This is a propser (http://prosper.sourceforge.net/) style file for
-;; AUCTeX.
-
-;;; Installation:
-;;
-;; For this file to work you need to have a working installation of
-;; AucTeX. After that installtion is simple. Put this file into one of
-;; the directories specified in `TeX-style-path', with the name
-;; "style" rather than "auto" as it might get over written in the
-;; latter.
-;;
-;; Then stick the current for into your .emacs
-;; (eval-after-load "latex"
-;; '(add-to-list 'LaTeX-style-list '("prosper")))
-;;
-;;
-;; And that should be it. You check whether it's worked or not by
-;; opening a prosper document, and trying `LaTeX-environment'. "slide"
-;; should be available by tab completion and it should ask you about
-;; overlays.
-;;
-;; The environment "prosper" should be inserted immediately after the
-;; document environment. It will prompt you for options available
-;; under prosper and create a skeleton document.
-
-;;; Bugs:
-;;
-;; Currently the documentclass expansion doesn't work, unless you
-;; enter a documentclass line to let auctex know which style files to
-;; load. Then delete this and do it again. Not good. I know no way
-;; around this.
-
-;;; Code:
-
-;; Constants:
-
-
-;;;; This is partly working now, and it a little neater than it
-;;;; was. The main problem is that the redefinition of "documentclass"
-;;;; does not happen until its all too late, so that stuff never
-;;;; happens correctly. This is easy enough to fix by fiddling with
-;;;; auctex. I shall have to download the latest version, and see if
-;;;; its already been fixed.
-
-
-
-(defconst LaTeX-prosper-version
- "$Id: prosper.el,v 1.5 2008/05/25 06:50:33 angeli Exp $"
- "prosper.el version.")
-
-(defconst LaTeX-prosper-transition-styles '("Split"
- "Blinds"
- "Box"
- "Wipe"
- "Dissolve"
- "Glitter"
- "Replace")
- "List of transition styles provided by prosper.")
-
-(defconst LaTeX-prosper-slide-styles
- '("alienglow" "autumn" "azure"
- "contemporain" "darkblue" "default" "frames"
- "lignesbleues" "nuancegris" "troispoints"
- "alcatel" "gyom" "pascal" "rico"
- ))
-
-(defun LaTeX-prosper-insert-title (optional)
- (newline)
- (mapc (lambda(f)
- (TeX-insert-macro f)
- (newline))
- '("title" "subtitle" "author" "email" "institution" "slideCaption"
- "Logo" "DefaultTransition"))
- (LaTeX-insert-environment "document")
- (TeX-insert-macro "maketitle"))
-
-
-;; Utility functions
-(defun LaTeX-prosper-arg-pdftransition (environment)
- (let ((default
- (if (boundp 'LaTeX-prosper-transition-history)
- (car LaTeX-prosper-transition-history)
- "Replace")))
- (TeX-argument-insert
- (completing-read
- (TeX-argument-prompt nil
- (format "Transition (Default %s) " default)
- t)
- (mapcar 'list LaTeX-prosper-transition-styles)
- nil
- t
- nil
- 'LaTeX-prosper-transition-history
- default)
- nil)))
-
-(defun LaTeX-prosper-slide-style-prompt()
- (completing-read
- "Slide Style?"
- (mapcar 'list LaTeX-prosper-slide-styles)
- nil nil nil nil "default" ))
-
-
-(defun LaTeX-prosper-insert-options(environment)
- (insert "[" )
- (insert (LaTeX-prosper-slide-style-prompt) " ")
- (mapc (lambda(f)
- (if (y-or-n-p (car f))
- (insert (car (cdr f)) " ")))
- '(("Draft?" "draft")
- ("Color Slides?" "slideColor")
- ("Disable running total on each slide?" "nototal")
- ("Is the final version going to be PDF?" "pdf")
- ("Are you going to use Adobe Distiller" "distiller")))
- (delete-char -1)
- (insert "]"))
-
-(defun LaTeX-prosper-insert-slide (environment)
- (if (y-or-n-p "Surround with overlay ?")
- (progn (TeX-insert-macro "overlays")
- (if (search-backward "{" 0 t)
- (progn
- (goto-char (+ 1 (point)))
- (insert "%\n")))))
- (let ((title (read-string "Title: ")))
- (LaTeX-insert-environment "slide" (concat TeX-grop title TeX-grcl))))
-
-
-
-;; AUCTeX configuration
-(TeX-add-style-hook "prosper"
- (function
- (lambda ()
- (LaTeX-add-environments
- '("slide" LaTeX-prosper-insert-slide)
- '("itemstep" LaTeX-env-item)
- '("Itemize" LaTeX-env-item))
- (TeX-add-symbols
- '("documentclass"
- LaTeX-prosper-insert-options
- LaTeX-prosper-insert-title)
- '("title" "Title of the presentation")
- '("subtitle" "Subtitle of the presentation")
- '("author" "Author name")
- '("email" "Author email")
- '("institution" "Author institution")
- '("slideCaption" "Caption for slide")
- '("Logo" "Logo")
- '("displayVersion" TeX-arg-free)
- '("DefaultTransition"
- LaTeX-prosper-arg-pdftransition)
- '("NoFrenchBabelItemize" TeX-arg-free)
- '("part" LaTeX-prosper-arg-part)
- '("overlays" "Number of overlays" t)
- '("FontTitle" "Color slides" "Black & White Slides")
- '("FontText" "Color slides" "Black & White Slides")
- '("fontTitle" "Text")
- '("fontText" "Text")
- '("ColorFoot" "Color")
- '("PDFtransition" LaTeX-prosper-arg-pdftransition)
- '("myitem" "Level" "Definition")
- '("fromSlide" "Number" t)
- '("fromSlide*" "Number" t)
- '("onlySlide" "Number" t)
- '("onlySlide*" "Number" t)
- '("OnlySlide" "Number")
- '("UntilSlide" "Number")
- '("untilSlide*" "Number")
- '("PDForPS" TeX-arg-conditional)
- '("onlyInPS" t)
- '("onlyInPDF" t)
- '("FromSlide" "Number")))))
-
-
-;;; prosper.el ends here
=== removed file 'packages/auctex/style/psfig.el'
--- a/packages/auctex/style/psfig.el 2012-12-02 18:32:15 +0000
+++ b/packages/auctex/style/psfig.el 1970-01-01 00:00:00 +0000
@@ -1,79 +0,0 @@
-;;; psfig.el - Support for the psfig style option.
-
-;; Contributed by Marc Gemis <address@hidden>
-;; Please direct comments to him.
-
-;;; Code:
-
-(TeX-add-style-hook "psfig"
- (function
- (lambda ()
- ;; probable some of the following symbols may be removed
- (TeX-add-symbols "protect" "figurepath" "fbox"
- "other" "letter" "other" "then" "Sine" "Cosine"
- "psdraft" "psfull" "psscalefirst" "psrotatefirst"
- "psnodraftbox" "psdraftbox" "pssilent" "psnoisy"
- "minmaxtest"
- '("psfig" TeX-arg-psfig)
- '("psfigurepath" t)
- )
- (LaTeX-add-environments
- '("psfigure" LaTeX-env-psfigure)
- )
- )))
-
-(defun TeX-arg-psfig (optional)
- "Ask for file, width and length. Insert psfig macro"
- (let ((psfile (read-file-name "PS-file: " "" "" nil))
- (figwidth (read-string "Figure width: "))
- (figheight (read-string "Figure height: "))
- )
-
- (insert TeX-grop "figure=" psfile)
- (if (not (zerop (length figwidth)))
- (insert ",width=" figwidth))
- (if (not (zerop (length figheight)))
- (insert ",height=" figheight))
- (insert TeX-grcl)
- )
- )
-
-
-(defun LaTeX-env-psfigure (environment)
- "Create with \\label and \\caption and \\psfig commands."
- (let ((float (read-string "Float to: " LaTeX-float))
- (caption (read-string "Caption: "))
- (label (read-string "Label: " LaTeX-figure-label))
- ; gf: ask if this should be centered
- (psfile (read-file-name "PS-file: " "" "" nil))
- (figwidth (read-string "Figure width: "))
- (figheight (read-string "Figure height: "))
- )
-
- (setq LaTeX-float (if (zerop (length float))
- LaTeX-float
- float))
-
- (LaTeX-insert-environment "figure"
- (concat LaTeX-optop LaTeX-float LaTeX-optcl))
-
- (insert TeX-esc "centerline" TeX-grop TeX-esc "psfig" TeX-grop
- "figure=" psfile)
- (if (not (zerop (length figwidth)))
- (insert ",width=" figwidth))
- (if (not (zerop (length figheight)))
- (insert ",height=" figheight))
- (insert TeX-grcl TeX-grcl)
- (if (zerop (length caption))
- ()
- (newline-and-indent)
- (insert TeX-esc "caption" TeX-grop caption TeX-grcl))
- (if (or (zerop (length label))
- (equal LaTeX-figure-label label))
- ()
- (newline-and-indent)
- (insert TeX-esc "label" TeX-grop label TeX-grcl))
-
- (forward-line 2)))
-
-;;; psfig.el ends here
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r315: Delete AUCTeX style files with unclear copyright status.,
Tassilo Horn <=