-
Notifications
You must be signed in to change notification settings - Fork 9
/
alignments.clj
26 lines (22 loc) · 959 Bytes
/
alignments.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(ns zero-one.fxl.alignments
(:import
[org.apache.poi.ss.usermodel HorizontalAlignment VerticalAlignment]))
(def horizontal-alignments
{:center HorizontalAlignment/CENTER
:center-selection HorizontalAlignment/CENTER_SELECTION
:distributed HorizontalAlignment/DISTRIBUTED
:fill HorizontalAlignment/FILL
:general HorizontalAlignment/GENERAL
:justify HorizontalAlignment/JUSTIFY
:left HorizontalAlignment/LEFT
:right HorizontalAlignment/RIGHT})
(def vertical-alignments
{:bottom VerticalAlignment/BOTTOM
:center VerticalAlignment/CENTER
:distributed VerticalAlignment/DISTRIBUTED
:justify VerticalAlignment/JUSTIFY
:top VerticalAlignment/TOP})
(def horizontal-alignment-lookup
(into {} (map (fn [[k v]] [v k]) horizontal-alignments)))
(def vertical-alignment-lookup
(into {} (map (fn [[k v]] [v k]) vertical-alignments)))