soywiki 0.0.1

data/.gitignore

@@ -0,0 +1,9 @@
+.DS_Store
+*swp
+login.yml
+gmail.yml
+*.log
+pkg/
+.rvmrc
+notes.txt
+*buffer

data/Gemfile

@@ -0,0 +1,4 @@
+source :rubygems
+gem "couchrest"
+gem "sinatra"
+gem "haml"

data/Gemfile.lock

@@ -0,0 +1,25 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    couchrest (1.0.1)
+      json (>= 1.4.6)
+      mime-types (>= 1.15)
+      rest-client (>= 1.5.1)
+    haml (3.0.25)
+    json (1.5.1)
+    mime-types (1.16)
+    rack (1.2.1)
+    rest-client (1.6.1)
+      mime-types (>= 1.16)
+    sinatra (1.1.2)
+      rack (~> 1.1)
+      tilt (~> 1.2)
+    tilt (1.2.2)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  couchrest
+  haml
+  sinatra

data/README.md

@@ -0,0 +1,3 @@
+# SoyWiki
+
+readme goes here

data/Rakefile

@@ -0,0 +1,25 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), 'lib')
+require 'couchrest'
+require 'yaml'
+require 'json'
+require 'rake'
+require 'rake/testtask'
+require 'bundler'
+# require 'soywiki'
+
+Bundler::GemHelper.install_tasks
+
+desc "Start Sinatra webapp"
+task :sinatra do
+# TODO
+end
+
+desc "Run tests"
+task :test do 
+  $:.unshift File.expand_path("test")
+  MiniTest::Unit.autorun
+end
+
+task :default => :test
+
+

data/bin/soywiki

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+begin
+  require 'soywiki'
+rescue LoadError
+  require 'rubygems'
+  require 'soywiki'
+end
+
+

data/bin/soywiki-pages-linking-in

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+
+class String
+  def is_namespaced?
+    self.split(".").size == 2
+  end
+end
+
+def inbound_links_to?(file, page_title)
+  return false unless File.file?(file)
+  return false if (file =~ /(\.swo|\.swp)$/ || file =~ /^\./)
+  body =   File.read(file)
+  body =~ /[\A\s\n\b]#{page_title}\b/
+end
+
+target_page = ARGV.first
+
+if target_page.is_namespaced?
+  namespace, page = *target_page.split(".")
+  # find all files in this name space
+  Dir.glob("#{namespace}.*").select do |file|
+    inbound_links_to?(file, target_page) || inbound_links_to?(file, ".#{page}")
+  end.each {|file| puts file}
+else
+  Dir.glob("*").select do |file|
+    inbound_links_to?(file, target_page)
+  end.each {|file| puts file}
+end

data/bin/soywiki-rename

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+oldname, newname = *ARGV
+
+class String
+  def is_namespaced?
+    self.split(".").size == 2
+  end
+end
+
+target_files = `grep -lF '#{oldname}' *`.strip.split(/\n/)
+target_files.each do |file|
+  text = File.read(file)
+  text.gsub!(/\b#{oldname}\b/, newname)
+  File.open(file, 'w') {|f| f.puts text}
+end
+
+# deal with links without namespace
+
+old_short = oldname.split(".")[1]
+new_short = newname.split(".")[1]
+
+if old_short && !new_short
+  # where going from a namespaced name to a top-level name
+  old_namespace = oldname.split(".")[0]
+  target_files = `grep -lF '\<#{old_short}\>' *`.strip.split(/\n/)
+  target_files.each do |file|
+    text = File.read(file)
+    text.gsub!(/\b#{old_short}\b/, newname)
+    File.open(file, 'w') {|f| f.puts text}
+  end
+  # change all the .Wikiwords in the newname file to fully namespaced
+  # links with namespace of newname.downcase
+  if File.exist?(newname)
+    text = File.read(newname)
+    #text.gsub!(relative_wiki_word, "#{newname.downcase}.#{$1}")
+    # ".Pear".gsub!(/\A\.([A-Z][a-z]+[A-Z]\w*)/, "TEST.#{$1}")
+    text.gsub!(/([\A\s\n\b])\.([A-Z][a-z]+[A-Z]\w*)/, '\1' + newname.downcase + '.\2')
+    File.open(newname, 'w') {|f| f.puts text}
+  end
+elsif !old_short && new_short
+  # where going from a top-level name to a namespaced one 
+  # no action needed
+elsif !old_short && !new_short
+  # no action needed
+elsif old_short && new_short
+  target_files = `grep -lF '#{old_short}' *`.strip.split(/\n/)
+  puts target_files.inspect
+  target_files.each do |file|
+    text = File.read(file)
+    text.gsub!(/\b#{old_short}\b/, new_short)
+    File.open(file, 'w') {|f| f.puts text}
+  end
+end

data/bin/soywiki-unfurl

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+
+# takes any wiki link that stands alone on a line and expands it
+#
+WIKI_LINK_PATTERN =  /^\s*(([a-z]+\.)?[A-Z][a-z]+[A-Z]\w*|\.[A-Z][a-z]+[A-Z]\w*)\s*$/
+
+PROCESSED_FILES = []
+def unfurl(file)
+  PROCESSED_FILES << file
+  lines = File.readlines(file)
+  lines.shift 2
+  lines = lines.join.strip.split("\n")
+  lines.each do |line|
+    if line =~ WIKI_LINK_PATTERN 
+      link = line.strip
+      if link =~ /^\./ # short link in namespace (relative link)
+        namespace = file.split(".")[0]
+        link = [namespace, link].join
+      end
+      if File.file?(link) && !PROCESSED_FILES.include?(link) 
+        unfurl link # recursive
+      elsif PROCESSED_FILES.include?(link) 
+        puts "#{link} [already expanded]"
+      else
+        puts "#{link} [no file found]"
+      end
+    else
+      puts line
+    end
+  end
+end
+
+ARGV.each do |file|
+  unfurl(file)
+end
+

data/lib/soywiki.rb

@@ -0,0 +1,8 @@
+
+vim = ENV['VMAIL_VIM'] || 'vim'
+
+vimscript = File.expand_path("../soywiki.vim", __FILE__)
+
+vim_command = "#{vim} -S #{vimscript}"
+
+exec vim_command

data/lib/soywiki.vim

@@ -0,0 +1,455 @@
+" Vim script that turns Vim into a personal wiki
+" Maintainer:	Daniel Choi <dhchoi@gmail.com>
+" License: MIT License (c) 2011 Daniel Choi
+
+" this matched namedspaced WikiWords, top-level WikiWords, and relative .WikiWords in a
+" namespace
+let s:wiki_link_pattern =  '\C\<\([a-z]\+\.\)\?[A-Z][a-z]\+[A-Z]\w*\>\|\.[A-Z][a-z]\+[A-Z]\w*\>'
+
+let s:rename_links_command = 'soywiki-rename '
+let s:find_pages_linking_in_command = 'soywiki-pages-linking-in '
+let s:search_for_link = ""
+
+
+func! s:trimString(string)
+  let string = substitute(a:string, '\s\+$', '', '')
+  return substitute(string, '^\s\+', '', '')
+endfunc
+
+func! s:page_title()
+  let title_line = getline(1)
+  return s:trimString(title_line) 
+endfunc
+
+func! s:page_namespace()
+  let segments = split(s:page_title(), '\.')
+  return get(segments, 0)
+endfunc
+
+func! s:title_without_namespace(page_title)
+  if len(split(a:page_title, '\.')) == 2
+    return "." . get(split(a:page_title, '\.'), 1)
+  else
+    return a:page_title
+  endif
+endfunc
+
+func! s:is_wiki_page()
+  let title_line = getline(1)
+  return (match(title_line, s:wiki_link_pattern) == 0)
+endfunc
+func! s:save_page()
+"  write
+endfunc
+
+func! s:list_pages()
+  let s:search_for_link = ""
+  call s:get_page_list()
+  call s:page_list_window("CompletePageInSelectionWindow", "Select page: ")
+endfunc
+
+func! s:link_under_cursor()
+  let link = expand("<cWORD>") 
+  let link = substitute(link, '[^[:alnum:]]*$', '', '')
+  " see if he have a namespaced link
+  if (match(link, '^\.')) == 0
+    " find the namespace from the page title
+    let link = s:page_namespace() . link
+  endif
+
+  let link = substitute(link, '^[^\.[:alnum:]]', '', '') " link may begin with period
+  return link
+endfunc
+
+" follows a camel case link to a new page 
+func! s:follow_link(split)
+  let link = s:link_under_cursor()
+  if match(link, s:wiki_link_pattern) == -1
+    let link = s:find_next_wiki_link(0)
+  endif
+  call s:load_page(link, a:split)  
+endfunc
+
+func! s:follow_link_under_cursor(split)
+  let link = s:link_under_cursor()
+  if match(link, s:wiki_link_pattern) == -1
+    echom "Not a wiki link"
+    return
+  endif
+  call s:load_page(link, a:split)
+endfunc
+
+func! s:find_next_wiki_link(backward)
+  let n = 0
+  let result = search(s:wiki_link_pattern, 'w' . (a:backward == 1 ? 'b' : ''))
+  if (result == 0) 
+    return
+  end
+  return s:link_under_cursor()
+endfunc
+
+func! s:load_page(page, split)
+  let page = a:page
+  if (s:is_wiki_page())
+    write
+  endif
+  if (!filereadable(page)) 
+    " create the file
+    call writefile([a:page, '', ''], page) 
+  endif
+  if (a:split == 2) 
+    exec "vsplit ". page
+  else
+    exec "split ". page
+  endif
+  if (a:split == 0) 
+    wincmd p 
+    close
+  endif
+endfunc
+
+func! s:delete_page()
+  let file = bufname('%')
+  let bufnr = bufnr('%')
+  call delete(file)
+  call system("git commit " . bufname('%') . " -m 'deletion'")
+  " go to most recently saved
+  " call feedkeys("\<C-o>")
+  let target = s:trimString(system("ls -t | head -1"))
+  exec "e " . target
+  exec "bdelete " . bufnr
+  redraw
+  echom  "Deleted " . file
+endfunc
+
+func! s:prompt_for_wiki_word(prompt, default)
+  let input = s:trimString(input(a:prompt, a:default))
+  while match(input, s:wiki_link_pattern) == -1
+    let input = s:trimString(input("Must be a WikiWord! Press CTRL-c to cancel. " . a:prompt , a:default))
+  endwhile
+  return input 
+endfunc
+
+func! s:rename_page()
+  let file = bufname('%')
+  let newname = s:prompt_for_wiki_word("Rename file: ", l:file)
+  if (filereadable(newname)) 
+    exe "echom '" . newname . " already exists!'"
+    return
+  endif
+  call system("git mv " . l:file . " " .  newname)
+  exec "e ". newname
+  " replace all existing inbound links  
+  " TODO replace this with a ruby script
+  call system(s:rename_links_command . file . " " . newname)
+  call system("git commit -am 'rename wiki page'")
+  e!
+endfunc
+
+func! s:create_page()
+  let newname = s:prompt_for_wiki_word("New page title: ", "")
+  if (filereadable(newname)) 
+    exe "echom '" . newname . " already exists!'"
+    return
+  endif
+  call writefile([newname, '', ''], newname)
+  exec "e ". newname
+endfunc
+
+func! s:save_revision()
+  call system("git add " . bufname('%'))
+  call system("git commit " . bufname('%') . " -m 'edit'")
+endfunc
+
+func! s:show_revision_history(stat)
+  " maybe later allow --stat
+  if (a:stat)
+    exec ":!git log --stat " . bufname('%')
+  else
+    exec ":!git log --color-words -p " . bufname('%')
+  end
+endfunc
+
+func! s:show_blame()
+  exec ":!git blame " . bufname('%')
+endfunc
+
+
+" -------------------------------------------------------------------------------
+" select Page
+
+func! s:get_page_list()
+  if len(bufname('%')) == 0
+    let s:page_list = split(system("ls -t"), "\n")
+  else
+    let s:page_list = split(system("ls -t | grep -vF '" . bufname('%') . "'" ), "\n")
+  endif
+endfunction
+
+func! s:pages_in_this_namespace(pages)
+  let namespace = s:page_namespace()
+  let pages = filter( a:pages,  'v:val =~ "^' . namespace . '"')
+  " strip leading namespace
+  let pages = map( pages, "substitute(v:val, '^" . namespace . "\.', '', '') " )
+  return pages
+endfunc
+
+func! s:reduce_matches()
+  if (!exists("s:matching_pages"))
+    return
+  endif
+  let fragment = expand("<cWORD>")
+  let reduced_pages = filter( s:matching_pages,  'v:val =~ "^' . fragment . '"')
+  " find the first namespace in the list
+  let namespaced_matches = filter( s:matching_pages,  'v:val =~ "^' . fragment . '\."')
+  if (len(namespaced_matches) == 0)
+    return
+  elseif match(fragment, '^[A-Z]') == -1 && match(fragment, '\.' == -1)   
+    " we're beginning to type a namespace
+    let namespace = get(split(get(namespaced_matches, 0), '\.'), 0) 
+    let namespace .= "."
+    call feedkeys( "BcW". namespace. "\<C-x>\<C-u>\<C-p>" , "t")
+  else
+    " we're tabbing to auto complete the term, not find a namespace
+    return
+  endif
+endfunc
+
+function! s:page_list_window(complete_function, prompt)
+  topleft split page-list-buffer
+  setlocal buftype=nofile
+  setlocal noswapfile
+  setlocal modifiable
+  resize 1
+  inoremap <silent> <buffer> <cr> <Esc>:call <SID>select_page()<CR> 
+  inoremap <buffer> <Tab> <Esc>:call <SID>reduce_matches()<cr>
+  noremap <buffer> q <Esc>:close<cr>
+  exec "setlocal completefunc=" . a:complete_function
+  " c-p clears the line
+  call setline(1, a:prompt)
+  normal $
+  call feedkeys("a\<c-x>\<c-u>\<c-p>", 't')
+  " call feedkeys("a", 't')
+endfunction
+
+function! CompletePage(findstart, base)
+  let s:matching_pages = s:page_list[:]
+  let possible_period =  getline('.')[col('.') - 2]
+  if (possible_period == '.') 
+    " filter to pages in this namespace
+    let s:matching_pages = s:pages_in_this_namespace(s:matching_pages)
+  endif
+  if a:findstart
+    " locate the start of the word
+    let line = getline('.')
+    let start = col('.') - 1
+    while start > 0 && line[start - 1] =~ '[[:alnum:]]'
+      let start -= 1
+    endwhile
+    return start
+  else
+    let base = s:trimString(a:base)
+    if (base == '')
+      return s:matching_pages
+    else
+      let res = []
+      for m in s:matching_pages
+        if m =~ '\c' . base 
+          call add(res, m)
+        endif
+      endfor
+      return res
+    endif
+  endif
+endfun
+
+function! CompletePageInSelectionWindow(findstart, base)
+  let s:matching_pages = s:page_list[:]
+  if a:findstart
+    " locate the start of the word
+    let line = getline('.')
+    let start = col('.') - 1
+    while start > 0 && line[start - 1] =~ '[[:alnum:]\.]'
+      let start -= 1
+    endwhile
+    return start
+  else
+    let base = s:trimString(a:base)
+    if (base == '')
+      return s:matching_pages
+    else
+      let res = []
+      for m in s:matching_pages
+        if m =~ '\c' . base 
+          call add(res, m)
+        endif
+      endfor
+      return res
+    endif
+  endif
+endfun
+
+function! s:select_page()
+  let page = s:trimString( get(split(getline(line('.')), ": "), 1) )
+  close
+  if (page == '0' || page == '') " no selection
+    return
+  end
+  let match = ""
+	for item in s:matching_pages
+	  if (item == page)
+      call s:load_page(page, 0)
+
+      break
+    end
+	endfor
+  echo s:search_for_link 
+  if len(s:search_for_link) > 0 
+    call search('\<' . s:search_for_link . '\>')
+  endif
+endfunction
+
+"------------------------------------------------------------------------
+" PAGES LINKING IN 
+"
+" this logic could be more precise, in cases where pages have same name
+" in different namespaces
+
+func! s:list_pages_linking_in()
+  let s:pages_linking_in  = split(system(s:find_pages_linking_in_command . s:page_title()), "\n")
+  let s:search_for_link = s:title_without_namespace( s:page_title())
+  if len(s:pages_linking_in) == 1
+    let file =  get(s:pages_linking_in, 0)
+    write
+    exec "e " . file
+    " not perfectly targeted but OK for now
+    call search(s:search_for_link)
+  elseif len(s:pages_linking_in) == 0
+    echom "No pages link to " . s:page_title() . "!"
+  else
+    call s:page_list_window("CompletePagesLinkingIn_InSelectionWindow", "Pages that link to " . s:page_title() . ": ")
+  endif
+endfunc
+
+function! CompletePagesLinkingIn_InSelectionWindow(findstart, base)
+  " todo, this must be smarter, deal with different namespaces
+  let s:matching_pages = s:pages_linking_in[:]
+  if a:findstart
+    " locate the start of the word
+    let line = getline('.')
+    let start = col('.') - 1
+    while start > 0 && line[start - 1] =~ '[[:alnum:]\.]'
+      let start -= 1
+    endwhile
+    return start
+  else
+    let base = s:trimString(a:base)
+    if (base == '')
+      return s:matching_pages
+    else
+      let res = []
+      for m in s:matching_pages
+        if m =~ '\c' . base 
+          call add(res, m)
+        endif
+      endfor
+      return res
+    endif
+  endif
+endfun
+
+"------------------------------------------------------------------------
+" This opens a new buffer with all the lines with just WikiLinks on them
+" expanded (recursively). This is not a wiki buffer but a text buffer
+
+func! s:unfurl()
+  let res = system("soywiki-unfurl " . bufname('%'))
+  vertical botright new 
+  setlocal buftype=nofile "scratch buffer for viewing; user can write
+  put =res
+  1delete
+  normal 1G
+endfunc
+
+"------------------------------------------------------------------------
+
+func! s:open_href()
+  let pattern = 'https\?:[^ >)\]]\+'
+  let line = search(pattern, 'cw')
+  let href = matchstr(getline(line('.')), pattern)
+  let command = g:SoyWiki#browser_command . " '" . href . "' "
+  call system(command)
+  echom command 
+endfunc
+
+"------------------------------------------------------------------------
+
+func! s:global_mappings()
+  noremap <leader>m :call <SID>list_pages()<CR>
+  noremap  <leader>M :call <SID>list_pages_linking_in()<CR>
+  noremap <silent> <leader>o :call <SID>open_href()<cr> 
+endfunc 
+
+" this checks if the buffer is a SoyWiki file (from firstline)
+" and then turns on syntax coloring and mappings as necessary
+func! s:prep_buffer()
+  if (s:is_wiki_page())
+    set textwidth=72
+    nnoremap <buffer> <cr> :call <SID>follow_link_under_cursor(0)<cr> 
+    nnoremap <buffer> - :call <SID>follow_link_under_cursor(1)<cr> 
+    nnoremap <buffer> \| :call <SID>follow_link_under_cursor(2)<cr> 
+    noremap <buffer> <leader>f :call <SID>follow_link(0)<CR>
+    noremap <buffer> <leader>n :call <SID>find_next_wiki_link(0)<CR>
+    noremap <buffer> <leader>p :call <SID>find_next_wiki_link(1)<CR>
+    noremap  <leader>c :call <SID>create_page()<CR>
+    command! -buffer SWDelete :call s:delete_page()
+    command! -buffer SWRename :call s:rename_page()
+    command! -buffer SWLog :call s:show_revision_history(0)
+    noremap <buffer> <leader>l :call <SID>show_revision_history(0)<CR>
+    command! -buffer SWLogStat :call s:show_revision_history(1)
+    command! -buffer SWBlame :call s:show_blame()
+    noremap <buffer> <leader>x :call <SID>unfurl()<CR>
+    set nu
+    setlocal completefunc=CompletePage
+    augroup <buffer>
+      au!
+      autocmd BufWritePost <buffer> call s:save_revision() 
+    augroup END
+  endif
+endfunc
+
+func! s:highlight_wikiwords()
+  if (s:is_wiki_page())
+    exe "match Comment /". s:wiki_link_pattern. "/"
+  else
+    match none " not sure if this works 
+  endif
+endfunc
+
+call s:global_mappings()
+
+autocmd  WinEnter * call s:highlight_wikiwords() 
+autocmd  BufEnter * call s:prep_buffer() 
+
+" load most recent page
+let pages = split(system("ls -t" ), "\n")
+let start_page = len(pages) > 0 ? get(pages, 0) : "HomePage" 
+call s:load_page(start_page, 0)
+
+if (!isdirectory(".git"))
+  call system("git init")
+  echom "Created .git repository to store revisions"
+endif
+
+if !exists("g:SoyWiki#browser_command")
+  for cmd in ["gnome-open", "open"] 
+    if executable(cmd)
+      let g:SoyWiki#browser_command = cmd
+      break
+    endif
+  endfor
+  if !exists("g:SoyWiki#browser_command")
+    echom "Can't find the to open your web browser."
+  endif
+endif
+

data/soywiki.gemspec

@@ -0,0 +1,22 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+
+Gem::Specification.new do |s|
+  s.name        = "soywiki"
+  s.version     = "0.0.1"
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["Daniel Choi"]
+  s.email       = ["dhchoi@gmail.com"]
+  s.homepage    = "http://danielchoi.com/software/soywiki.html"
+  s.summary     = %q{Wiki with Vim interface and Git repo}
+  s.description = %q{A personal and collaborative wiki for Vim users}
+
+  s.rubyforge_project = "soywiki"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  s.add_dependency 'couchrest'
+end

metadata

@@ -0,0 +1,91 @@
+--- !ruby/object:Gem::Specification 
+name: soywiki
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Daniel Choi
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-02-07 00:00:00 -05:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: couchrest
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+description: A personal and collaborative wiki for Vim users
+email: 
+- dhchoi@gmail.com
+executables: 
+- soywiki
+- soywiki-pages-linking-in
+- soywiki-rename
+- soywiki-unfurl
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- Gemfile
+- Gemfile.lock
+- README.md
+- Rakefile
+- bin/soywiki
+- bin/soywiki-pages-linking-in
+- bin/soywiki-rename
+- bin/soywiki-unfurl
+- lib/soywiki.rb
+- lib/soywiki.vim
+- soywiki.gemspec
+has_rdoc: true
+homepage: http://danielchoi.com/software/soywiki.html
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: soywiki
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Wiki with Vim interface and Git repo
+test_files: []
+