dia ← {{⍉⍵⍪1↓⊖⍵}⍣2⌽s⍴⍵,'-'⍴⍨s←2⍴≢⍵}

   dia 'ABCD'
---A---
--B-B--
-C---C-
D-----D
-C---C-
--B-B--
---A---