Introduce view_switcher, header_bar, bin UI macros

src/ui/application_header_bar.rs

@@ -1,6 +1,6 @@
 use libadwaita :: { * , ViewSwitcherPolicy :: * } ;
 
-use crate :: ui :: { collection_view_stack :: * , component :: * } ;
+use crate :: ui :: { collection_view_stack :: * , component :: * , utility :: * } ;
 
 
 
@@ -8,11 +8,9 @@ pub struct ApplicationHeaderBar { widget : HeaderBar }
 
 impl ApplicationHeaderBar {
 	pub fn new ( collection_view_stack : & CollectionViewStack ) -> Self {
-		let widget = HeaderBar :: builder ()
+		let widget = header_bar ! (
-			. title_widget ( & create_collection_view_switcher (
+			view_switcher ! ( @ policy : Wide , collection_view_stack . get_widget () ) ,
-				collection_view_stack . get_widget () ) )
+		) ;
-			. build () ;
-
 		Self { widget }
 	}
 }
@@ -20,10 +18,3 @@ impl ApplicationHeaderBar {
 impl Component <HeaderBar> for ApplicationHeaderBar {
 	fn get_widget ( & self ) -> & HeaderBar { & self . widget }
 }
-
-fn create_collection_view_switcher ( stack : & ViewStack ) -> ViewSwitcher {
-	ViewSwitcher :: builder ()
-		. policy (Wide)
-		. stack (stack)
-		. build ()
-}

src/ui/utility.rs

@@ -102,14 +102,33 @@ macro_rules ! flow_box { (
 	widget
 } } }
 
+macro_rules ! view_switcher { (
+	$ ( @ policy : $ policy : expr , ) ?
+	$ stack : expr $ (,) ?
+) => { {
+	let widget = libadwaita :: ViewSwitcher :: new () ;
+	$ ( widget . set_policy ( $ policy ) ; ) ?
+	widget . set_stack ( Some ( & $ stack ) ) ;
+	widget
+} } }
+
+macro_rules ! header_bar { ( $ title_widget : expr $ (,) ? ) => { {
+	let widget = libadwaita :: HeaderBar :: new () ;
+	widget . set_title_widget ( Some ( & $ title_widget ) ) ;
+	widget
+} } }
+
+macro_rules ! bin { ( $ ( @ vexpand : $ vexpand : expr ) ? $ (,) ? ) => { {
+	let widget = libadwaita :: Bin :: new () ;
+	$ ( widget . set_vexpand ( $ vexpand ) ; ) ?
+	widget
+} } }
+
 macro_rules ! vertically_filling { ( $ child : expr ) => {
 	g_box ! (
 		@ orientation : gtk4 :: Orientation :: Vertical ,
 		$ child ,
-		libadwaita :: Bin :: builder ()
+		bin ! ( @ vexpand : true ) ,
-			. css_name ("filler")
-			. vexpand (true)
-			. build () ,
 	)
 } }
 
@@ -125,5 +144,8 @@ pub (crate) use {
 	icon ,
 	scrolled_window ,
 	flow_box ,
+	view_switcher ,
+	header_bar ,
+	bin ,
 	vertically_filling ,
 } ;