Newsgroup: it.comp.software.tex
Titolo: Questioni di stile

C'è un modo per sistemare questo orrendo accrocchio?
\begin{shaded}
\begin{alltt}
\noindent (require \textquotesingle{}smtpmail)
(setq mail-user-agent \textquotesingle{}message-user-agent
       smtpmail-starttls-credentials \textquotesingle{}(("
smtp.gmail.com
"
587 nil nil))
       smtpmail-auth-credentials
(expand-file-name "\mytilde{}/.authinfo\_smtp")
       smtpmail-default-smtp-server "
smtp.gmail.com
"
       message-send-mail-function \textquotesingle{}message-smtpmail-send-it
       smtpmail-smtp-server "
smtp.gmail.com
"
       smtpmail-smtp-service 587)
\end{alltt}
\ttfamily{
(setq message-signature "\textit{Nome Cognome}
$\backslash$n\textit{Indirizzo} $\backslash$n\textit{CAP Città}
$\backslash$ntel.: \textit{Numero di telefono} $\backslash$ncell.;
\textit{Numero di cellulare} $\backslash$nmail: \textit{E-mail}")
\noindent (setq message-default-mail-headers "Cc: $\backslash$nBcc:
$\backslash$nFCC:
$\backslash$nSENT $\backslash$n")}
\end{shaded}
Peraltro, nella prima riga noto un misterioso piccolo rientro
e le ultime righe sono separare da uno spazio orizzontale
che non dovrebbe risultare dalle precedenti...
Grazie
M.

 che non dovrebbe risultare dalle precedenti...
Scusa, ma perch�ｿｽ chiudere alltt e riprendere con \ttfamily? Che,
fra l'altro, non �ｿｽ un comando con argomenti.
====
\documentclass[a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage{alltt,framed,color,textcomp}
\definecolor{shadecolor}{gray}{.8}
\newcommand{\mytilde}{\string~}
\begin{document}
\begingroup
  \catcode`\'=\active
  \gdef\doquotesingle{\let'\textquotesingle}
\endgroup
\newenvironment{lisp}
  {\def\b{\textbackslash}\small
   \begin{shaded}\begin{alltt}%
   \doquotesingle \let~\textasciitilde
   \setlength{\parindent}{0pt}\ignorespaces}
  {\end{alltt}\end{shaded}}
\begin{lisp}
(require 'smtpmail)
(setq mail-user-agent 'message-user-agent
       smtpmail-starttls-credentials '(("
smtp.gmail.com
" 587 nil nil))
       smtpmail-auth-credentials
(expand-file-name "~/.authinfo_smtp")
       smtpmail-default-smtp-server "
smtp.gmail.com
"
       message-send-mail-function 'message-smtpmail-send-it
       smtpmail-smtp-server "
smtp.gmail.com
"
       smtpmail-smtp-service 587)
(setq message-signature "\textit{Nome Cognome}
\b{}n\textit{Indirizzo} \b{}n\textit{CAP Citt�ｿｽ}
\b{}ntel.: \textit{Numero di telefono} \b{}ncell.;
\textit{Numero di cellulare} \b{}nmail: \textit{E-mail}")
(setq message-default-mail-headers "Cc: \b{}nBcc:
\b{}nFCC:
\b{}nSENT \b{}n")
\end{lisp}
\end{document}
=====
Un'altra volta, per favore, manda un esempio compilabile: non �ｿｽ che
sia proprio piacevole doversi trovare tutti i pacchetti da caricare.
Ciao
Enrico

 sia proprio piacevole doversi trovare tutti i pacchetti da caricare.
Sì. d'accordo. È che il preambolo era lungo,
cmq sarà fatto. Mille grazie
M.

 \end{document}
Solo una cosa: perché se sostituisco
\newcommand{\mytilde}{\string~}
con
\newcommand{\mytilde}{\raisebox{.5ex}{\smash{\texttildelow}}}
per avere la tilde all'altezza giusta, non funziona?
Grazie
M.

 per avere la tilde all'altezza giusta, non funziona?
Perché alltt cambia la ~ in un carattere di categoria 12. :-(
Temo proprio che occorra una profonda chirurgia sulla definizione
di alltt. E a me piace di più la tilde piccola, se ti devo dire
la verità.
Ciao
Enrico

 la verità.
Ma quella che utilizzo io è piccola, cioè non è
il simbolo matematico prodotto da $\sim$.
Però vorrei che, in linea col codice,
risultasse all'altezza giusta, non in alto.
Almeno con Modern Font, perché con altri font
questo piccolo guaio non si produce
M.

 la verità.
Però un momento: con questo codice
======================================================
\begin{shaded}
\begin{alltt}
(setq user-full-name "\textit{Nome Cognome}"
      user-mail-address "\
textit{mitt...@gmail.com
}")
      send-mail-function \textquotesingle{smtpmail-send-it}
      message-send-mail-function \textquotesingle{smtpmail-send-it}
      smtpmail-starttls-credentials \textquotesingle(("
smtp.gmail.com
" 587
nil nil))
      smtpmail-auth-credentials (expand-file-name "\mytilde{}.authinfo")
      smtpmail-default-smtp-server "
smtp.gmail.com
"
      smtpmail-smtp-server "
smtp.gmail.com
"
      smtpmail-smtp-service 587)
(require \textquotesingle{smtpmail})
(starttls-use-gnutls nil)
\end{alltt}
\end{shaded}
======================================================
la ridefinizione:
\newcommand{\mytilde}{\raisebox{.5ex}{\smash{\texttildelow}}}
funziona, per cui non dev'essere tutta colpa di \alltt...
M.

 scrive:

Certo, perché scrivi \mytilde e non ~ :-)
Ciao
Enrico

 Certo, perché scrivi \mytilde e non ~ :-)
Ahhhh... Allora scriverò \mytilde
così ottengo quanto voluto...
Grazie ancora
M.