feat: add initial version of WikiPageRefile

refer: #58

Author: lervag

autoload/wiki/buffer.vim

@@ -88,6 +88,7 @@ function! s:init_buffer_commands() abort " {{{1
   command! -buffer WikiLinkReturn         call wiki#nav#return()
   command! -buffer WikiLinkTransform      call wiki#link#transform_current()
   command! -buffer WikiPageDelete         call wiki#page#delete()
+  command! -buffer WikiPageRefile         call wiki#page#refile()
   command! -buffer WikiPageRename         call wiki#page#rename()
   command! -buffer WikiPageRenameSection  call wiki#page#rename_section()
   command! -buffer WikiTocGenerate        call wiki#toc#create(0)
@@ -139,6 +140,7 @@ function! s:init_buffer_mappings() abort " {{{1
   nnoremap <silent><buffer> <plug>(wiki-link-return)          :WikiLinkReturn<cr>
   nnoremap <silent><buffer> <plug>(wiki-link-transform)       :WikiLinkTransform<cr>
   nnoremap <silent><buffer> <plug>(wiki-page-delete)          :WikiPageDelete<cr>
+  nnoremap <silent><buffer> <plug>(wiki-page-refile)          :WikiPageRefile<cr>
   nnoremap <silent><buffer> <plug>(wiki-page-rename)          :WikiPageRename<cr>
   nnoremap <silent><buffer> <plug>(wiki-page-rename-section)  :WikiPageRenameSection<cr>
   nnoremap <silent><buffer> <plug>(wiki-toc-generate)         :WikiTocGenerate<cr>
@@ -197,6 +199,7 @@ function! s:init_buffer_mappings() abort " {{{1
           \ '<plug>(wiki-link-transform)': '<leader>wf',
           \ '<plug>(wiki-link-transform-operator)': 'gl',
           \ '<plug>(wiki-page-delete)': '<leader>wd',
+          \ '<plug>(wiki-page-refile)' : '<leader>wq',
           \ '<plug>(wiki-page-rename)': '<leader>wr',
           \ '<plug>(wiki-page-rename-section)': '<f2>',
           \ '<plug>(wiki-toc-generate)': '<leader>wt',

autoload/wiki/page.vim

@@ -173,6 +173,79 @@ function! wiki#page#rename_section(...) abort "{{{1
   call wiki#log#info(printf('Updated %d links in %d files', l:n, l:m))
 endfunction
 
+" }}}1
+function! wiki#page#refile(...) abort "{{{1
+  let l:opts = extend(#{
+        \ target_page: '',
+        \ target_lnum: 0,
+        \}, a:0 > 0 ? a:1 : {})
+
+  let l:source = {}
+  let l:source.path = expand('%:p')
+  let l:source.section = wiki#toc#get_section()
+  if empty(l:source.section)
+    return wiki#log#error('No source section recognized!')
+  endif
+  let l:source.anchor = l:source.section.anchor
+
+  let l:target = {}
+  let l:target.path = wiki#u#eval_filename(l:opts.target_page)
+  let l:target.node = wiki#paths#to_node(l:target.path)
+  let l:target.section = wiki#toc#get_section(#{
+        \ path: l:target.path,
+        \ at_lnum: l:opts.target_lnum
+        \})
+
+  " Calculate target anchor
+  let l:depth = len(l:source.section.anchors)
+  let l:target.anchors = (l:depth > 1
+        \ ? get(l:target.section, 'anchors', [])[:l:depth - 2]
+        \ : []) + [l:source.section.anchors[-1]]
+  let l:target.anchor = '#' . join(l:target.anchors, '#')
+
+
+  call wiki#log#info(
+        \ printf('Refiling section "%s" to page "%s"',
+        \ l:source.section.header, l:target.node))
+
+  " Move the lines
+  if l:target.path ==# l:source.path
+    let l:target.url = ''
+    call execute(printf('%d,%dm %d',
+          \ l:source.section.lnum,
+          \ l:source.section.lnum_end,
+          \ l:opts.target_lnum))
+    silent update
+  else
+    let l:lines = getline(l:source.section.lnum, l:source.section.lnum_end)
+    call deletebufline('', l:source.section.lnum, l:source.section.lnum_end)
+
+    " Append lines to target page
+    let l:buf_exists = bufexists(l:target.path)
+    call bufload(l:target.path)
+    let l:bufnr = bufnr(l:target.path)
+    call appendbufline(l:bufnr, l:opts.target_lnum, l:lines)
+    " TODO
+
+    let l:target.url
+          \ = wiki#paths#to_wiki_url(l:target.path, wiki#get_root())
+  endif
+
+  " Update local links
+  let l:pos = getcurpos()
+  keepjumps execute printf(
+        \ '%%s/\V%s/%s/e%s',
+        \ l:source.anchor,
+        \ l:target.url . l:target.anchor,
+        \ &gdefault ? '' : 'g')
+  call cursor(l:pos[1:])
+  silent update
+
+  " Update remote links
+  let [l:n, l:m] = s:update_links(l:source, l:target)
+  call wiki#log#info(printf('Updated %d links in %d files', l:n, l:m))
+endfunction
+
 " }}}1
 function! wiki#page#export(line1, line2, ...) abort " {{{1
   let l:cfg = deepcopy(g:wiki_export)