- (x-init-specifier-from-resources
- top-toolbar-height 'natnum locale
- '("topToolBarHeight" . "TopToolBarHeight"))
- (x-init-specifier-from-resources
- bottom-toolbar-height 'natnum locale
- '("bottomToolBarHeight" . "BottomToolBarHeight"))
- (x-init-specifier-from-resources
- left-toolbar-width 'natnum locale
- '("leftToolBarWidth" . "LeftToolBarWidth"))
- (x-init-specifier-from-resources
- right-toolbar-width 'natnum locale
- '("rightToolBarWidth" . "RightToolBarWidth"))
- (x-init-specifier-from-resources
- top-toolbar-border-width 'natnum locale
- '("topToolBarBorderWidth" . "TopToolBarBorderWidth"))
- (x-init-specifier-from-resources
- bottom-toolbar-border-width 'natnum locale
- '("bottomToolBarBorderWidth" . "BottomToolBarBorderWidth"))
- (x-init-specifier-from-resources
- left-toolbar-border-width 'natnum locale
- '("leftToolBarBorderWidth" . "LeftToolBarBorderWidth"))
- (x-init-specifier-from-resources
- right-toolbar-border-width 'natnum locale
- '("rightToolBarBorderWidth" . "RightToolBarBorderWidth")))
+ (loop for (specifier . resname) in
+ `(( ,top-toolbar-height . "topToolBarHeight")
+ (,bottom-toolbar-height . "bottomToolBarHeight")
+ ( ,left-toolbar-width . "leftToolBarWidth")
+ ( ,right-toolbar-width . "rightToolBarWidth")
+
+ ( ,top-toolbar-border-width . "topToolBarBorderWidth")
+ (,bottom-toolbar-border-width . "bottomToolBarBorderWidth")
+ ( ,left-toolbar-border-width . "leftToolBarBorderWidth")
+ ( ,right-toolbar-border-width . "rightToolBarBorderWidth"))
+ do
+ (x-init-specifier-from-resources
+ specifier 'natnum locale (cons resname (upcase-initials resname)))))