Merge pull request #138 from lambdalisue/new-path-action

Add "new-path" action

Author: lambdalisue

autoload/fern/scheme/file/mapping.vim

@@ -2,6 +2,7 @@ let s:Promise = vital#fern#import('Async.Promise')
 let s:Prompt = vital#fern#import('Prompt')
 
 function! fern#scheme#file#mapping#init(disable_default_mappings) abort
+  nnoremap <buffer><silent> <Plug>(fern-action-new-path) :<C-u>call <SID>call('new_path')<CR>
   nnoremap <buffer><silent> <Plug>(fern-action-new-file) :<C-u>call <SID>call('new_file')<CR>
   nnoremap <buffer><silent> <Plug>(fern-action-new-dir)  :<C-u>call <SID>call('new_dir')<CR>
   nnoremap <buffer><silent> <Plug>(fern-action-copy)     :<C-u>call <SID>call('copy')<CR>
@@ -48,44 +49,34 @@ function! s:map_open_system(helper) abort
         \.finally({ -> Done() })
 endfunction
 
+function! s:map_new_path(helper) abort
+  let name = input(
+        \ "(Hint: Ends with '/' create a directory instead of a file)\nNew path: ",
+        \ '',
+        \ 'file',
+        \)
+  if empty(name)
+    return s:Promise.reject('Cancelled')
+  endif
+  return name[-1:] ==# '/'
+        \ ? s:new_dir(a:helper, name)
+        \ : s:new_file(a:helper, name)
+endfunction
+
 function! s:map_new_file(helper) abort
   let name = input('New file: ', '', 'file')
   if empty(name)
     return s:Promise.reject('Cancelled')
   endif
-  let node = a:helper.sync.get_cursor_node()
-  let node = node.status isnot# a:helper.STATUS_EXPANDED ? node.__owner : node
-  let path = fern#internal#filepath#to_slash(node._path)
-  let path = join([path, name], '/')
-  let path = fern#internal#filepath#from_slash(path)
-  let key = node.__key + [name]
-  let token = a:helper.fern.source.token
-  let previous = a:helper.sync.get_cursor_node()
-  return fern#scheme#file#shutil#mkfile(path, token)
-        \.then({ -> a:helper.async.reload_node(node.__key) })
-        \.then({ -> a:helper.async.reveal_node(key) })
-        \.then({ -> a:helper.async.redraw() })
-        \.then({ -> a:helper.sync.focus_node(key, { 'previous': previous }) })
+  return s:new_file(a:helper, name)
 endfunction
 
 function! s:map_new_dir(helper) abort
   let name = input('New directory: ', '', 'dir')
   if empty(name)
     return s:Promise.reject('Cancelled')
   endif
-  let node = a:helper.sync.get_cursor_node()
-  let node = node.status isnot# a:helper.STATUS_EXPANDED ? node.__owner : node
-  let path = fern#internal#filepath#to_slash(node._path)
-  let path = join([path, name], '/')
-  let path = fern#internal#filepath#from_slash(path)
-  let key = node.__key + [name]
-  let token = a:helper.fern.source.token
-  let previous = a:helper.sync.get_cursor_node()
-  return fern#scheme#file#shutil#mkdir(path, token)
-        \.then({ -> a:helper.async.reload_node(node.__key) })
-        \.then({ -> a:helper.async.reveal_node(key) })
-        \.then({ -> a:helper.async.redraw() })
-        \.then({ -> a:helper.sync.focus_node(key, { 'previous': previous }) })
+  return s:new_dir(a:helper, name)
 endfunction
 
 function! s:map_copy(helper) abort
@@ -192,6 +183,38 @@ function! s:map_remove(helper) abort
         \.then({ -> a:helper.sync.echo(printf('%d items are removed', len(ps))) })
 endfunction
 
+function! s:new_file(helper, name) abort
+  let node = a:helper.sync.get_cursor_node()
+  let node = node.status isnot# a:helper.STATUS_EXPANDED ? node.__owner : node
+  let path = fern#internal#filepath#to_slash(node._path)
+  let path = join([path, a:name], '/')
+  let path = fern#internal#filepath#from_slash(path)
+  let key = node.__key + [a:name]
+  let token = a:helper.fern.source.token
+  let previous = a:helper.sync.get_cursor_node()
+  return fern#scheme#file#shutil#mkfile(path, token)
+        \.then({ -> a:helper.async.reload_node(node.__key) })
+        \.then({ -> a:helper.async.reveal_node(key) })
+        \.then({ -> a:helper.async.redraw() })
+        \.then({ -> a:helper.sync.focus_node(key, { 'previous': previous }) })
+endfunction
+
+function! s:new_dir(helper, name) abort
+  let node = a:helper.sync.get_cursor_node()
+  let node = node.status isnot# a:helper.STATUS_EXPANDED ? node.__owner : node
+  let path = fern#internal#filepath#to_slash(node._path)
+  let path = join([path, a:name], '/')
+  let path = fern#internal#filepath#from_slash(path)
+  let key = node.__key + [a:name]
+  let token = a:helper.fern.source.token
+  let previous = a:helper.sync.get_cursor_node()
+  return fern#scheme#file#shutil#mkdir(path, token)
+        \.then({ -> a:helper.async.reload_node(node.__key) })
+        \.then({ -> a:helper.async.reveal_node(key) })
+        \.then({ -> a:helper.async.redraw() })
+        \.then({ -> a:helper.sync.focus_node(key, { 'previous': previous }) })
+endfunction
+
 let g:fern#scheme#file#mapping#mappings = get(g:, 'fern#scheme#file#mapping#mappings', [
       \ 'cd',
       \ 'clipboard',

doc/fern.txt

@@ -794,6 +794,13 @@ FILE							*fern-mapping-file*
 
 The following mappings/actions are only available on file:// scheme.
 
+*<Plug>(fern-action-new-path)*
+	Open a prompt to ask a path and create a file/directory of the input
+	path from the path of a cursor node.
+	Any intermediate directories of the destination will be created.
+	If the path ends with "/", it creates a directory. Otherwise it
+	creates a file.
+
 *<Plug>(fern-action-new-file)*
 	Open a prompt to ask a path and create a file of the input path from
 	the path of a cursor node.