meta-command : read & write wheel in prompt subcommand

Author: chimay

autoload/wheel/diadem.vim

@@ -33,8 +33,6 @@ let s:command_meta_actions = [
 			\ [ 'alternate-other-torus' , "wheel#caduceus#alternate('other_torus')"                           ] ,
 			\ [ 'alternate-other-circle' , "wheel#caduceus#alternate('other_circle')"                         ] ,
 			\ [ 'alternate-same-torus-other-circle' , "wheel#caduceus#alternate('same_torus_other_circle')"   ] ,
-			\ [ 'read'                  , 'wheel#disc#read_wheel'                                             ] ,
-			\ [ 'write'                 , 'wheel#disc#write_wheel'                                            ] ,
 			\ [ 'mkdir'                 , 'wheel#disc#mkdir'                                                  ] ,
 			\ [ 'rename'                , 'wheel#disc#rename'                                                 ] ,
 			\ [ 'copy'                  , 'wheel#disc#copy'                                                   ] ,
@@ -62,6 +60,8 @@ let s:command_meta_prompt_actions = [
 			\ [ 'index-circles'           , 'wheel#vortex#grid'                         ] ,
 			\ [ 'history'                 , 'wheel#waterclock#history'                  ] ,
 			\ [ 'frecency'                , 'wheel#waterclock#frecency'                 ] ,
+			\ [ 'read-wheel'              , 'wheel#disc#read_wheel'                     ] ,
+			\ [ 'write-wheel'             , 'wheel#disc#write_wheel'                    ] ,
 			\ [ 'read-session'            , 'wheel#disc#read_session'                   ] ,
 			\ [ 'write-session'           , 'wheel#disc#write_session'                  ] ,
 			\ [ 'buffer'                  , 'wheel#sailing#buffer'                      ] ,

autoload/wheel/disc.vim

@@ -510,7 +510,11 @@ fun! wheel#disc#write_wheel (...)
 	" ---- wheel file path
 	let wheel_file = wheel_folder .. wheel_name
 	" ---- write wheel
-	return wheel#disc#write_wheel_file(wheel_file)
+	let success = wheel#disc#write_wheel_file(wheel_file)
+	" ---- update current wheel in shelve
+	if success
+		let g:wheel_shelve.current.wheel = wheel_name
+	endif
 endfun
 
 fun! wheel#disc#read_wheel (...)
@@ -711,7 +715,11 @@ fun! wheel#disc#write_session (...)
 	" ---- session file path
 	let session_file = session_folder .. session_name
 	" ---- write session
-	return wheel#disc#write_session_file(session_file)
+	let success = wheel#disc#write_session_file(session_file)
+	" ---- update current session in shelve
+	if success
+		let g:wheel_shelve.current.session = session_name
+	endif
 endfun
 
 fun! wheel#disc#read_session (...)

doc/wheel.txt

@@ -2124,8 +2124,8 @@ COMMANDS					*wheel-commands*
 Meta command				|wheel-commands-meta|
 Wheel status				|wheel-commands-status|
 Straight navigation			|wheel-commands-straight-navigation|
-Read and write				|wheel-commands-read-and-write|
 Prompt					|wheel-commands-prompt|
+Read and write				|wheel-commands-read-and-write|
 Dedicated buffers			|wheel-commands-dedicated-buffers|
 Batch					|wheel-commands-batch|
 Autogroup				|wheel-commands-autogroup|
@@ -2241,21 +2241,6 @@ Alternate~
 	Alternate two last locations in the same torus, but not in the same
 	circle
 
-------------------------------------------------------------------------------
-READ AND WRITE					*wheel-commands-read-and-write*
-
-:Wheel read						*:Wheel-read*
-	Load wheel from file
-
-:Wheel write						*:Wheel-write*
-	Save wheel in file
-
-:Wheel read-session					*:Wheel-read-session*
-	Load session from file
-
-:Wheel write-session					*:Wheel-write-session*
-	Save session in file
-
 ------------------------------------------------------------------------------
 PROMPT							*wheel-commands-prompt*
 
@@ -2268,6 +2253,21 @@ Examples : >
     :Wheel prompt history
 >
 
+------------------------------------------------------------------------------
+READ AND WRITE					*wheel-commands-read-and-write*
+
+:Wheel prompt read-wheel					*:Wheel-read*
+	Load wheel from file
+
+:Wheel prompt write-wheel					*:Wheel-write*
+	Save wheel in file
+
+:Wheel prompt read-session				*:Wheel-read-session*
+	Load session from file
+
+:Wheel prompt write-session				*:Wheel-write-session*
+	Save session in file
+
 ------------------------------------------------------------------------------
 DEDICATED BUFFERS				*wheel-commands-dedicated-buffers*