diff --git a/lupan-wm/src/main.rs b/lupan-wm/src/main.rs
index 4506015..16268fb 100644
--- a/lupan-wm/src/main.rs
+++ b/lupan-wm/src/main.rs
@@ -63,6 +63,16 @@ fn raw_key_bindings() -> HashMap<String, Box<dyn KeyEventHandler<RustConn>>> {
 	"M-m" => modify_with(|cs| cs.focus_head()),
         "M-bracketright" => modify_with(|cs| cs.next_screen()),
         "M-bracketleft" => modify_with(|cs| cs.previous_screen()),
+        "M-S-bracketright" => modify_with(|cs| {
+	    let current_tag = cs.current_tag().to_string();
+	    cs.next_screen();
+	    cs.pull_tag_to_screen(current_tag);
+	}),
+        "M-S-bracketleft" => modify_with(|cs| {
+	    let current_tag = cs.current_tag().to_string();
+	    cs.previous_screen();
+	    cs.pull_tag_to_screen(current_tag);
+	}),
         "M-grave" => modify_with(|cs| cs.next_layout()),
         "M-S-grave" => modify_with(|cs| cs.previous_layout()),
         "M-comma" => send_layout_message(|| IncMain(1)),