summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty')
-rw-r--r--Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty13
1 files changed, 8 insertions, 5 deletions
diff --git a/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty b/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty
index 223e7984a1f..e9891246101 100644
--- a/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty
+++ b/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty
@@ -13,7 +13,7 @@
%%
%%
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{xepersian-persiancal}[2010/07/25 v0.1 provides Persian calendar]
+\ProvidesPackage{xepersian-persiancal}[2012/07/25 v0.2 provides Persian calendar]
\newif\ifXePersian@leap \newif\ifXePersian@kabiseh
\newcount\XePersian@i \newcount\XePersian@y \newcount\XePersian@m \newcount\XePersian@d
@@ -40,7 +40,6 @@
\newcount\XePersian@sn
\newcount\XePersian@mminusone
-\def\persiantoday{%
\XePersian@y=\year \XePersian@m=\month \XePersian@d=\day
\XePersian@temp=\XePersian@y
\divide\XePersian@temp by 100\relax
@@ -169,10 +168,14 @@
\else
\XePersian@d = \XePersian@dn \advance \XePersian@d by -\XePersian@sn
\fi
-\beginL\number\XePersian@d\endL\space%
-\persianmonth{\XePersian@m}\space\beginL\number\XePersian@y\endL%
+\newcommand*{\persiantoday}{%
+\number\XePersian@d\space%
+\XePersian@persian@month{\XePersian@m}\space\number\XePersian@y%
}
-\def\persianmonth#1{\ifcase#1\or فروردین\or
+\let\persianyear\XePersian@y
+\let\persianmonth\XePersian@m
+\let\persianday\XePersian@d
+\def\XePersian@persian@month#1{\ifcase#1\or فروردین\or
اردیبهشت\or
خرداد\or تیر\or
مرداد\or