M-OZ BLOG

Scheme-users.jpTwitter

# 2010/01/20(Wed) : Vim からつぶやく。
Vim からつぶやく。

mztweet.scm

(define (main . args)
 (if (pair? args)
  (tweet *id* *pw* (car args))))

$VIMRUNTIME/autoload/mylib.vim

function mylib#MzTweet(...)
 let msg = getline('.')
 if a:0 > 0
  let msg = a:1
 endif
 if len(msg) > 0
  echo system("mztweet \"" . msg . "\"")
 endif
endfunction

:call mylib#MzTweet()

[TOP] [ALL]