@@ -181,6 +181,26 @@ With a prefix ARG invalidates the cache first."

 (use-package cl-generic

   :ensure t)

+(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))

+

 (cl-defgeneric fwoar--pl-selector ()

   (:method ()

            (slime-selector))

@@ -28,6 +28,7 @@

 (add-hook 'lisp-mode-hook 'setup-lisp-mode) 

 (add-hook 'emacs-lisp-mode-hook 'setup-lisp-mode) 

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

 (modify-syntax-entry ?- "w" lisp-mode-syntax-table)

 (modify-syntax-entry ?* "w" lisp-mode-syntax-table)

@@ -65,7 +66,8 @@

          slime-selector-methods

          :key #'car)

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

+(cl-defgeneric fwoar--find-system ())

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

   (let ((systems (directory-files

                   (locate-dominating-file default-directory

                                           (lambda (n)

@@ -75,7 +77,7 @@

                    (helm-comp-read "system:" systems)

                  (car systems)))))

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

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

          slime-selector-methods

          :key #'car)

@@ -1,7 +1,7 @@

 #!/usr/bin/osascript

 on run argv

   set currentApp to my getCurrentApp()

-  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) & "'"

   do shell script "open '/Volumes/" & currentApp & "'"

 end run

@@ -1,4 +1,7 @@

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

+" vim: foldmethod=marker foldlevel=2 :

+"dein Scripts----------------------------- {{{1

+"dein init {{{3

+

 if &compatible

   set nocompatible               " Be iMproved

 endif

@@ -15,6 +18,8 @@ if dein#load_state(vim_config_directory)

   " Required:

   call dein#add(vim_config_directory.'/repos/github.com/Shougo/dein.vim')

+"}}}3

+" plugins {{{2

   call dein#add('LnL7/vim-nix')

   call dein#add('Shougo/vimproc', {'build': 'make'})

   call dein#add('Shougo/unite-outline')

@@ -43,8 +48,9 @@ if dein#load_state(vim_config_directory)

   call dein#add('vim-scripts/matchit.zip')

   call dein#add('vim-voom/VOoM')

   call dein#add('jnurmine/zenburn')

-

-

+  call dein#add('jremmen/vim-ripgrep')

+"}}}2

+"{{{3

   " Required:

   call dein#end()

   call dein#save_state()

@@ -53,29 +59,19 @@ endif

 " Required:

 filetype plugin indent on

 syntax enable

-

 " If you want to install not installed plugins on startup.

 if dein#check_install()

   call dein#install()

 endif

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

+

+"}}}3

+"End dein Scripts }}}1

 let g:airline_theme="murmur"

 let maplocalleader=','

 filetype indent on

-"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

-

 set ignorecase

 set smartcase

 set nu

@@ -104,7 +100,7 @@ set modelines=1      " CVE-2007-2438

 set backspace=2      " more powerful backspacing

 syntax enable

-colorscheme zenburn

+"colorscheme zenburn

 function! Checkft()

   if &filetype==""

@@ -129,27 +125,12 @@ if filereadable(".vim.custom")

     so .vim.custom

 endif

-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')

 if executable('ag')

   let g:unite_source_file_async_command = ['ag', '--follow', '--nocolor', '--nogroup', '--hidden', '-g', '""', '--ignore', '''.sass-cache''']

@@ -176,10 +157,29 @@ elseif executable('ack')

   let g:unite_source_grep_default_opts = '--exclude ''\.(git|svn|hg|bzr)'''

   let g:unite_source_grep_recursive_opt = ''

 endif

+"}}}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

 nnoremap [unite] <Nop>

 nmap <space> [unite]

@@ -190,17 +190,20 @@ nmap                 [unite]F :<C-u>Unite file -start-insert<C-m>

 nmap                 [unite]g :<C-u>Unite file_rec/git -start-insert<C-m>

 nmap                 [unite]j :<C-u>Unite buffer -start-insert<C-m>

 nmap                 [unite]k :<C-u>Unite tab:no-current<C-m>

-

-nmap                 [unite]t :NERDTreeToggle<CR>

-nmap                 [unite]u :GundoToggle<CR>

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

+"}}}2

+"}}}1

+"space-prefixed commands {{{1

 nmap                 [unite]h :set hlsearch!<CR>

 nmap                 [unite]l :set list!<CR>

-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 :s/<C-r><C-w>/<C-r>=input('replacement? ').'/g'<CR>

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

 nmap                 [unite]R :%s/<C-r><C-w>/<C-r>=input('replacement? ').'/g'<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

 nmap                 <C-x>o <C-w><C-w>

@@ -208,6 +211,18 @@ autocmd BufRead,BufNewFile *.css,*.scss,*.less setlocal foldmethod=marker foldma

 command -nargs=+ Gadd Git add <q-args>

+"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

+

 if &term =~ '^\(xterm\)\|\(screen\)'

   " solid underscore

   let &t_SI .= "\<Esc>[3 q"

@@ -220,5 +235,12 @@ if &term =~ '^\(xterm\)\|\(screen\)'

   " 6 -> solid vertical bar

 endif

 set timeoutlen=1000 ttimeoutlen=0

+"}}}1

 command FwoarSc ':let g:syntastic_sh_shellcheck_tail = " -x"'

+

+

+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

@@ -1,4 +1,5 @@

 #:depends-on:git-get

+autoload -U regexp-replace

 GIT_DEBUG=0

 git-update-repos() {

@@ -93,6 +94,24 @@ for line in sys.stdin:

       print("%s\n\t%s" % (":".join(line[2:]), ":".join(line[:2])))'

 }

+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

+  ) )

+}

+

 alias git-msg=git-messages

 alias git-cj="git-get cj"

 alias git-hub="git-get github"