# Défs sympas -- Useful things
# <address@hidden>            *Lout*            <address@hidden>
# vim:ft=lout:


# Unbreakable `French quotes' (guillemets)

def "<<" right word { { @Char guillemotleft  }" "{ word } }
def ">>" left  word { { word }" "{ @Char guillemotright } }


# Double punctuation spacing

def ":" left word
{
  @CurrLang @Case
  {
    French @Yield { { word }" :" }
    else   @Yield { { word }":"  }
  }
}

def ";" left word
{
  @CurrLang @Case
  {
    French @Yield { { word }" ;" }
    else   @Yield { { word }";"  }
  }
}

def "!" left word
{
  @CurrLang @Case
  {
    French @Yield { { word }" !" }
    else   @Yield { { word }"!"  }
  }
}

def "?" left word
{
  @CurrLang @Case
  {
    French @Yield { { word }" ?" }
    else   @Yield { { word }"?"  }
  }
}


# Miscellaneous useful characters

#macro "<<" { { @Char guillemotleft  } }
#macro ">>" { { @Char guillemotright } }
macro "``" { @Char quotedblleft   }
macro "''" { @Char quotedblright  }
macro "->" { @Sym  arrowright     }
macro "<-" { @Sym  arrowleft      }
macro @oe  { @Char oe             }
#macro "^"  { @Sup                 } # This one doesn't always work (?)


# Jolies choses :)

def   @Shaded right text
  { { lightgrey @Color { 1 1.5 } @Scale { text } } //0fo { text } }