Ujjwol

\documentclass{article}
\usepackage{fontspec}%
\setromanfont{Linux Libertine}% Better Diacritics
\setsansfont{DejaVu Sans}%
\setmonofont{DejaVu Sans Mono}%
%\newfontfamily\sa{Chandas:script=deva}% Devanagari
\newfontfamily\sa{Sanskrit 2003:script=deva}
\usepackage{xunicode}
\usepackage{xltxtra}
\begin{document}
This is an roman text.
{\sa
सम्पलतेक्स्त\\
\huge{कार्त्स्न्या}\\
Testing IAST \huge{Rāma}
\makeatletter
\newcommand*\devanagari[1]{\expandafter\@devanagari\csname c@#1\endcsname}
\newcommand*\@devanagari[1]{%
  \ifcase#1\or १\or २\or ३\or ४\or ५\or ६\or ७\or ८\or ९\fi}
\begin{enumerate}
\item नेपाल
\item नेपाली
\end{enumerate}
\makeatletter
}
\end{document}