autoload -U regexp-replace

git-gh-create() {
  local repo_name=${1?need a repo name}
  regexp-replace repo_name '[" ]' '-'
  local GH_TOKEN
  source "$HOME/.github-token"
 jq '{full_name, clone_url, ssh_url}' <( (
  curl -XPOST \
       -u "fiddlerwoaroof:$GH_TOKEN" \
       https://api.github.com/user/repos \
      -H 'Content-Type: application/json' \
      --data-binary @- <<-EOF
{
  "name": "${repo_name}"
}
EOF
  ) )
}

"dein Scripts-----------------------------

" vim: foldmethod=marker foldlevel=2 :
"dein Scripts----------------------------- {{{1
"dein init {{{3

"}}}3
" plugins {{{2

  call dein#add('jremmen/vim-ripgrep')
"}}}2
"{{{3

"End dein Scripts-------------------------

"}}}3
"End dein Scripts }}}1

"Enable support for Color xterm
:if has("terminfo")
:  set t_Co=8
:  set t_Sf=^[[3%p1%dm
:  set t_Sb=^[[4%p1%dm
:else
:  set  t_Co=8
:  set t_Sf=^[[3%dm
:  set t_Sb=^[[4%dm
:endif

colorscheme zenburn

"colorscheme zenburn

call unite#custom#source('file,file/new,buffer,file_rec','matchers','matcher_fuzzy')
autocmd FileType unite call s:unite_my_settings()
function! s:unite_my_settings()
  " Overwrite settings.
  let b:SuperTabDisabled=1
  imap <buffer><expr> <C-v>     unite#do_action('vsplit')
  imap <buffer><expr> <C-s>     unite#do_action('split')
  imap <buffer>  <Tab>     <Plug>(unite_complete)
  imap <buffer> <C-j>   <Plug>(unite_select_next_line)
  imap <buffer> <Down>   <Plug>(unite_select_next_line)
  imap <buffer> <C-k>   <Plug>(unite_select_previous_line)
  imap <buffer> <Up>   <Plug>(unite_select_previous_line)

  " exit with esc
  nmap <buffer> <ESC> <Plug>(unite_exit)

nmap <F2> :set nu!<CR>
imap <F2> <C-o>:set nu!<CR>

  " exit with ctrl-c
  imap <buffer> <c-c> <Plug>(unite_exit)
  nmap <buffer> <c-c> <Plug>(unite_exit)
endfunction

"unite settings {{{1
"unite variable setup {{{3
call unite#custom#source('file,file/new,buffer,file_rec','matchers','matcher_fuzzy')

"}}}3
"window keybindings {{{2
autocmd FileType unite call s:unite_my_settings()
function! s:unite_my_settings()
  " Overwrite settings.
  let b:SuperTabDisabled=1
  imap <buffer><expr> <C-v>   unite#do_action('vsplit')
  imap <buffer><expr> <C-s>   unite#do_action('split')
  imap <buffer>       <Tab>   <Plug>(unite_complete)
  imap <buffer>       <C-j>   <Plug>(unite_select_next_line)
  imap <buffer>       <Down>  <Plug>(unite_select_next_line)
  imap <buffer>       <C-k>   <Plug>(unite_select_previous_line)
  imap <buffer>       <Up>    <Plug>(unite_select_previous_line)

nmap <F2> :set nu!<CR>
imap <F2> <C-o>:set nu!<CR>

  " exit with esc
  nmap <buffer>       <ESC>   <Plug>(unite_exit)

  " exit with ctrl-c
  imap <buffer>       <c-c>   <Plug>(unite_exit)
  nmap <buffer>       <c-c>   <Plug>(unite_exit)
endfunction
"}}}2
"unite commands {{{2

nmap                 [unite]t :NERDTreeToggle<CR>
nmap                 [unite]u :GundoToggle<CR>
"nmap                 [unite]r :!vagrant rsync<CR>

"}}}2
"}}}1
"space-prefixed commands {{{1

nmap <silent> <expr> [unite]z FS_ToggleFoldAroundSearch({'context':2})
nmap          <expr> [unite]x FS_ToggleFoldAroundSearch({'context':0})
nmap                 [unite]w :let @/='\<<C-r><C-w>\>'<CR>:set hlsearch<CR>

"nmap                 [unite]r :!vagrant rsync<CR>

nmap                 [unite]t :NERDTreeToggle<CR>
nmap                 [unite]u :GundoToggle<CR>
nmap                 [unite]w :let @/='\<<C-r><C-w>\>'<CR>:set hlsearch<CR>
nmap          <expr> [unite]x FS_ToggleFoldAroundSearch({'context':0})
nmap <silent> <expr> [unite]z FS_ToggleFoldAroundSearch({'context':2})
"}}}1

"cursor setup / terminal setup {{{1
"Enable support for Color xterm
:if has("terminfo")
:  set t_Co=8
:  set t_Sf=^[[3%p1%dm
:  set t_Sb=^[[4%p1%dm
:else
:  set  t_Co=8
:  set t_Sf=^[[3%dm
:  set t_Sb=^[[4%dm
:endif

"}}}1

runtime ftplugin/man.vim
let g:ft_man_open_mode = 'vert'
let g:ft_man_folding_enable = 1
autocmd FileType man setlocal foldmethod=indent foldenable foldlevel=0

  do shell script "/usr/local/bin/emacsclient -c '" & (item 1 of argv) & "' '" & (item 2 of argv) & "'"

  do shell script "/usr/local/bin/emacsclient -c '" & (item 1 of argv) & "'"

(evil-define-key 'normal lisp-mode-map "gd" 'slime-edit-definition)

(defun fwoar--slime-find-system ()

(cl-defgeneric fwoar--find-system ())
(cl-defmethod fwoar--find-system (&context (major-mode lisp-mode))

(pushnew (list ?S "Goto System" #'fwoar--slime-find-system)

(pushnew (list ?S "Goto System" #'fwoar--find-system)

(defun intercept-print (f)
  (print f)
  f)
(cl-defmethod fwoar--find-system (&context (major-mode clojure-mode))
  (let ((systems (directory-files
                  (locate-dominating-file default-directory
                                          (lambda (n)
                                            (or (directory-files n nil "project.clj")
                                                (directory-files n nil "build.boot")
                                                (directory-files n nil "deps.edn")
                                                (directory-files n nil "shadow-cljs.edn"))))
                  t "^\\(project.clj\\|build.boot\\|deps.edn\\|shadow-cljs.edn\\)$")))
    (find-file (if (not (null (cdr systems)))
                   (helm-comp-read "system:" systems)
                 (car systems)))))

(def-cider-selector-method ?S "find clojure project file"
  (fwoar--find-system))