Convert ascii Latin chars to Unicode bold Fraktur

boldfrak.tex

%%% This file defines the command \boldfrak{STRING} that maps regular Latin characters to bold Fraktur. 
%%% Should work in XeLaTeX with any font that supports Frakturs; if the \mathfrak command works then this 
%%%  \boldfrak should work as well. I tested this only in math mode. 

\newcommand{\boldfraksymb}[1]{%
  \ifthenelse{\equal{#1}{a}}{𝖆}{%
  \ifthenelse{\equal{#1}{b}}{𝖇}{%
  \ifthenelse{\equal{#1}{c}}{𝖈}{%
  \ifthenelse{\equal{#1}{d}}{𝖉}{%
  \ifthenelse{\equal{#1}{e}}{𝖊}{%
  \ifthenelse{\equal{#1}{f}}{𝖋}{%
  \ifthenelse{\equal{#1}{g}}{𝖌}{%
  \ifthenelse{\equal{#1}{h}}{𝖍}{%
  \ifthenelse{\equal{#1}{i}}{𝖎}{%
  \ifthenelse{\equal{#1}{j}}{𝖏}{%
  \ifthenelse{\equal{#1}{k}}{𝖐}{%
  \ifthenelse{\equal{#1}{l}}{𝖑}{%
  \ifthenelse{\equal{#1}{m}}{𝖒}{%
  \ifthenelse{\equal{#1}{n}}{𝖓}{%
  \ifthenelse{\equal{#1}{o}}{𝖔}{%
  \ifthenelse{\equal{#1}{p}}{𝖕}{%
  \ifthenelse{\equal{#1}{q}}{𝖖}{%
  \ifthenelse{\equal{#1}{r}}{𝖗}{%
  \ifthenelse{\equal{#1}{s}}{𝖘}{%
  \ifthenelse{\equal{#1}{t}}{𝖙}{%
  \ifthenelse{\equal{#1}{u}}{𝖚}{%
  \ifthenelse{\equal{#1}{v}}{𝖛}{%
  \ifthenelse{\equal{#1}{w}}{𝖜}{%
  \ifthenelse{\equal{#1}{x}}{𝖝}{%
  \ifthenelse{\equal{#1}{y}}{𝖞}{%
  \ifthenelse{\equal{#1}{z}}{𝖟}{%
  \ifthenelse{\equal{#1}{A}}{𝕬}{%
  \ifthenelse{\equal{#1}{B}}{𝕭}{%
  \ifthenelse{\equal{#1}{C}}{𝕮}{%
  \ifthenelse{\equal{#1}{D}}{𝕯}{%
  \ifthenelse{\equal{#1}{E}}{𝕰}{%
  \ifthenelse{\equal{#1}{F}}{𝕱}{%
  \ifthenelse{\equal{#1}{G}}{𝕲}{%
  \ifthenelse{\equal{#1}{H}}{𝕳}{%
  \ifthenelse{\equal{#1}{I}}{𝕴}{%
  \ifthenelse{\equal{#1}{J}}{𝕵}{%
  \ifthenelse{\equal{#1}{K}}{𝕶}{%
  \ifthenelse{\equal{#1}{L}}{𝕷}{%
  \ifthenelse{\equal{#1}{M}}{𝕸}{%
  \ifthenelse{\equal{#1}{N}}{𝕹}{%
  \ifthenelse{\equal{#1}{O}}{𝕺}{%
  \ifthenelse{\equal{#1}{P}}{𝕻}{%
  \ifthenelse{\equal{#1}{Q}}{𝕼}{%
  \ifthenelse{\equal{#1}{R}}{𝕽}{%
  \ifthenelse{\equal{#1}{S}}{𝕾}{%
  \ifthenelse{\equal{#1}{T}}{𝕿}{%
  \ifthenelse{\equal{#1}{U}}{𝖀}{%
  \ifthenelse{\equal{#1}{V}}{𝖁}{%
  \ifthenelse{\equal{#1}{W}}{𝖂}{%
  \ifthenelse{\equal{#1}{X}}{𝖃}{%
  \ifthenelse{\equal{#1}{Y}}{𝖄}{%
  \ifthenelse{\equal{#1}{Z}}{𝖅}{%
  <unsupported>
  }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
}

\makeatletter
\newcommand{\boldfrak}[1]{%
  \@tfor\next:=#1\do{\boldfraksymb{\next}}%
}
\makeatother