pool/emacs-auctex
SHA256
4
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/editors/emacs-auctex?expand=0&rev=24
This commit is contained in:
Dr. Werner Fink 2013-06-07 07:26:02 +00:00 committed by Git OBS Bridge
parent 98e5ed1198
commit bedf6700cf
2 changed files with 37 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
auctex-11.86-dinbrief.dif
View File

@ -1,5 +1,22 @@
--- style/dinbrief.el From 0d7a93744a93e155188e592aad8bcd644da02688 Mon Sep 17 00:00:00 2001
+++ style/dinbrief.el 2013-02-22 17:00:33.501443992 +0000 From: Tassilo Horn <tsdh@gnu.org>
Date: Mon, 25 Feb 2013 14:28:34 +0000
Subject: * style/dinbrief.el ("dinbrief"): Update dinbrief style.
(LaTeX-dinbrief-insert): New macro.
(LaTeX-dinbrief-style): New function.
(LaTeX-dinbrief-env-recipient): Rename from
`LaTeX-recipient-hook'.
(LaTeX-dinbrief-sender): New function.
(LaTeX-dinbrief-recipient): New function.
(LaTeX-dinbrief-today): Rename from `LaTeX-today'.
---
(limited to 'style/dinbrief.el')
diff --git a/style/dinbrief.el b/style/dinbrief.el
index 6049434..8a20519 100644
--- a/style/dinbrief.el
+++ b/style/dinbrief.el
@@ -1,93 +1,143 @@ @@ -1,93 +1,143 @@
-;;; dinbrief.el - Special code for LaTeX-Style dinbrief. -;;; dinbrief.el - Special code for LaTeX-Style dinbrief.
+;; Copyright (C) 1994, 2013 Free Software Foundation, Inc. +;; Copyright (C) 1994, 2013 Free Software Foundation, Inc.
@ -87,7 +104,8 @@
+ "Insert text ignoring active markers." + "Insert text ignoring active markers."
+ `(progn (if (TeX-mark-active) (TeX-deactivate-mark)) + `(progn (if (TeX-mark-active) (TeX-deactivate-mark))
+ (insert ,@args))) + (insert ,@args)))
+
-(defun LaTeX-recipient-hook (environment)
+(defun LaTeX-dinbrief-style () +(defun LaTeX-dinbrief-style ()
+ "Insert some useful packages for writing german letters." + "Insert some useful packages for writing german letters."
+ (save-excursion + (save-excursion
@ -109,8 +127,7 @@
+ (TeX-run-style-hooks "inputenc") + (TeX-run-style-hooks "inputenc")
+ (TeX-run-style-hooks "fontenc") + (TeX-run-style-hooks "fontenc")
+ (TeX-run-style-hooks "ngerman"))) + (TeX-run-style-hooks "ngerman")))
+
-(defun LaTeX-recipient-hook (environment)
+(defun LaTeX-dinbrief-env-recipient (environment) +(defun LaTeX-dinbrief-env-recipient (environment)
"Insert ENVIRONMENT and prompt for recipient and address." "Insert ENVIRONMENT and prompt for recipient and address."
- (let ((sender (read-string "Absender: " (user-full-name))) - (let ((sender (read-string "Absender: " (user-full-name)))
@ -245,13 +262,13 @@
TeX-grop TeX-grop
(if (zerop (length closing)) (if (zerop (length closing))
(concat TeX-esc " ") (concat TeX-esc " ")
@@ -131,7 +202,47 @@ @@ -131,7 +202,46 @@
TeX-grcl "\n") TeX-grcl "\n")
(indent-relative-maybe)))) (indent-relative-maybe))))
-(defun LaTeX-today nil -(defun LaTeX-today nil
+(defun LaTeX-dinbrief-sender nil +(defun LaTeX-dinbrief-sender ()
+ "Read and writes the senders address" + "Read and write the senders address."
+ (interactive) + (interactive)
+ (let ((name (read-string "Absender: " (user-full-name))) + (let ((name (read-string "Absender: " (user-full-name)))
+ (str (read-string "Meine Strasse: ")) + (str (read-string "Meine Strasse: "))
@ -277,8 +294,8 @@
+ (newline-and-indent) + (newline-and-indent)
+ (concat name ", " str ", " ort))))) + (concat name ", " str ", " ort)))))
+ +
+(defun LaTeX-dinbrief-recipient nil +(defun LaTeX-dinbrief-recipient ()
+ "Read and returns the recipient address" + "Read and return the recipient address."
+ (interactive) + (interactive)
+ (let ((str (read-string "Wohnhaft in Strasse: ")) + (let ((str (read-string "Wohnhaft in Strasse: "))
+ (ort (read-string "Aus der Ortschaft: "))) + (ort (read-string "Aus der Ortschaft: ")))
@ -287,14 +304,13 @@
+ (concat str " " TeX-esc TeX-esc " " ort) + (concat str " " TeX-esc TeX-esc " " ort)
+ str) + str)
+ (if (not (zerop (length ort))) + (if (not (zerop (length ort)))
+ ort)) + ort))))
+ ))
+ +
+(defun LaTeX-dinbrief-today nil +(defun LaTeX-dinbrief-today ()
"Return a string representing todays date according to flavor." "Return a string representing todays date according to flavor."
(interactive) (interactive)
(let ((ctime-string (current-time-string)) (let ((ctime-string (current-time-string))
@@ -152,12 +263,13 @@ @@ -152,12 +262,13 @@
ctime-string) ctime-string)
(let ((year (substring ctime-string (match-beginning 3) (match-end 3))) (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
(month (substring ctime-string (match-beginning 1) (match-end 1))) (month (substring ctime-string (match-beginning 1) (match-end 1)))
@ -310,3 +326,5 @@
+ (format "%s, den %s. %s %s" place day month year)))) + (format "%s, den %s. %s %s" place day month year))))
;;; dinbrief.el ends here ;;; dinbrief.el ends here
--
cgit v0.9.0.2

5
emacs-auctex.changes
View File

@ -1,3 +1,8 @@
-------------------------------------------------------------------
Fri Jun 7 07:25:10 UTC 2013 - werner@suse.de
- Use latest upstream update of dinbrief.el
------------------------------------------------------------------- -------------------------------------------------------------------
Thu Jun 6 10:50:17 UTC 2013 - werner@suse.de Thu Jun 6 10:50:17 UTC 2013 - werner@suse.de