if !has('ruby')

s:ErrMsg( "Error: Required vim compiled with +ruby" )

finish

function! Blog_syn_hl() " {{{2

:syntax clear

:syntax keyword wpType Post Title Date

:syntax region wpTitle start=/"/ end=/$/

:syntax region wpPostId start=/\[/ end=/\]/

:highlight wpType ctermfg=Green guifg=LightGreen

:highlight wpTitle cterm=bold ctermfg=Blue guifg=Blue guibg=LightCyan gui=bold

:highlight wpPostId ctermfg=Red guifg=Red

function! Post_syn_hl() " {{{3

:syntax clear

:runtime! syntax/html.vim " content syntax is html hl, except for headers

:syntax keyword wpType Post Title Date Author Link Permalink Allow Comments Allow Pings Categs

:syntax region wpPostId start=/\[/ end=/\]/ contained

:syntax match wpFields /: .*/hs=s+2 contains=wpPostId

:highlight wpType ctermfg=Green guifg=LightGreen gui=bold

:highlight wpPostId ctermfg=Red guifg=Red

:highlight wpFields ctermfg=Blue guifg=Blue guibg=LightCyan

:command -nargs=* Blog call Wordpress_vim(<f-args>)

function! Wordpress_vim(start, ...) " {{{1

call Blog_syn_hl() " comment if you don't wish syntax highlight activation

try

ruby <<EOF

require 'xmlrpc/client.rb'

require 'time.rb'

class Wp_vim

#######

# class initialization. Instantiates the @blog class variable to

# retain blog site information for future api calls

#

def initialize

begin

get_personal_data

@blog = XMLRPC::Client.new(@site, @xml, @port)

self.send("blog_"+VIM::evaluate("a:start"))

rescue XMLRPC::FaultException => e

xmlrpc_flt_xcptn(e)

end

end

#######

# class variables for personnal data. Please *change* them accordingly.

# CHANGE HERE:

def get_personal_data

@login = "" # insert your login here

@passwd = "" # insert your password here

@site = "" # insert your blog url here, but do not use http://

@xml = "/xmlrpc.php" # change if necessary

@port = 80 # change if necessary

@blog_id = 0

@user = 1

end

def get_post_content

post_content = {}

new_post = VIM::Buffer.current[1][0..4].upcase == "Title".upcase

post_content['new_post'] = new_post

case new_post

when true

post_content['title'] = (VIM::Buffer.current[1]).gsub(/Title *:/, '').strip

post_content['dateCreated'] = Time.parse(((VIM::Buffer.current[2]).gsub(/Date *:/, '')).strip)

post_content['mt_allow_comments'] = (VIM::Buffer.current[3]).gsub(/Comments *:/, '')

post_content['mt_allow_pings'] = (VIM::Buffer.current[4]).gsub(/Pings *:/, '')

post_content['categories'] = (VIM::Buffer.current[5]).gsub(/Categs *:/, '').split

body = [] # from line 8 to the end, grab the post body content

8.upto(VIM::Buffer.current.count) { |line| body << VIM::Buffer.current[line] }

post_content['description'] = body.join("\r")

else

post_content['post_id'] = ((VIM::Buffer.current[1]).gsub(/Post.*\[/, '')).strip.chop

post_content['title'] = (VIM::Buffer.current[2]).gsub(/Title *:/, '')

post_content['dateCreated'] = Time.parse(((VIM::Buffer.current[3]).gsub(/Date *:/, '')).strip)

post_content['mt_allow_comments'] = (VIM::Buffer.current[7]).gsub(/Comments *:/, '')

post_content['mt_allow_pings'] = (VIM::Buffer.current[8]).gsub(/Pings *:/, '')

post_content['categories'] = (VIM::Buffer.current[9]).gsub(/Categs *:/, '').split

body = [] # from line 11 to the end, grab the post body content

11.upto(VIM::Buffer.current.count) { |line| body << VIM::Buffer.current[line] }

post_content['description'] = body.join("\r")

end

post_content['mt_exceprt'] = ''

post_content['mt_text_more'] = ''

post_content['mt_tb_ping_urls'] = []

return post_content

end

#######

# publish the post. Verifies if it is new post, or an editied existing one.

#

def blog_publish

p = get_post_content

resp = blog_api("publish", p, true, p['new_post'])

if (p['new_post'] and resp['post_id'])

then

VIM::command("enew!")

VIM::command("Blog gp #{resp['post_id']}")

end

end

#######

# save post as draft. Verifies if it is new post, or an editied existing one.

#

def blog_draft

p = get_post_content

resp = blog_api("draft", p, false, p['new_post'])

if (p['new_post'] and resp['post_id'])

then

VIM::command("enew!")

VIM::command("Blog gp #{resp['post_id']}")

end

end

#######

# new post. Creates a template for a new post.

#

def blog_np

@post_date = same_dt_fmt(Time.now)

@post_author = @user

VIM::command("call Post_syn_hl()")

v = VIM::Buffer.current

v.append(v.count-1, "Title : ")

v.append(v.count-1, "Date : #{@post_date}")

v.append(v.count-1, "Comments : 1")

v.append(v.count-1, "Pings : 1")

v.append(v.count-1, "Categs : ")

v.append(v.count-1, " ")

v.append(v.count-1, " ")

v.append(v.count-1, "<type from here...> ")

end

#######

# list of categories. Is opened in a new temporary window, because may me for assistance on

# creating/editing a post.

#

def blog_cl

resp = blog_api("cl")

# create a new window with syntax highlight.

# this allows you to rapidelly close the window (:q!) and continue blogging.

VIM::command(":new")

VIM::command("call Blog_syn_hl()")

VIM::command(":set wrap")

v = VIM::Buffer.current

v.append(v.count, "CATEGORIES LIST: ")

v.append(v.count, " ")

v.append(v.count, "\"#{resp.join(' ')}\"")

end

#######

# recent [num] posts. Gets some info for the most recent [num] or 10 posts

#

def blog_rp

VIM::evaluate("a:0").to_i > 0 ? ((num = VIM::evaluate("a:1")).to_i ? num.to_i : num = 10) : num = 10

resp = blog_api("rp", num)

# create a new window with syntax highlight.

# this allows you to rapidely close the window (:q!) and get that post id.

VIM::command(":new")

VIM::command("call Blog_syn_hl()")

v = VIM::Buffer.current

v.append(v.count, "MOST RECENT #{num} POSTS: ")

v.append(v.count, " ")

resp.each { |r|

v.append(v.count, "Post : [#{r['post_id']}] Date: #{r['post_date']}")

v.append(v.count, "Title: \"#{r['post_title']}\"")

v.append(v.count, " ")

}

end

#######

# get post [id]. Fetches blog post with id [id], or the last one.

#

def blog_gp

VIM::command("call Post_syn_hl()")

VIM::evaluate("a:0").to_i > 0 ? ((id = VIM::evaluate("a:1")) ? id : id = nil) : id = nil

resp = blog_api("gp", id)

v = VIM::Buffer.current

v.append(v.count-1, "Post : [#{resp['post_id']}]")

v.append(v.count-1, "Title : #{resp['post_title']}")

v.append(v.count-1, "Date : #{resp['post_date']}")

v.append(v.count-1, "Link : #{resp['post_link']}")

v.append(v.count-1, "Permalink: #{resp['post_permaLink']}")

v.append(v.count-1, "Author : #{resp['post_author']}")

v.append(v.count-1, "Comments : #{resp['post_allow_comments']}")

v.append(v.count-1, "Pings : #{resp['post_allow_pings']}")

v.append(v.count-1, "Categs : #{resp['post_categories']}")

v.append(v.count-1, " ")

v.append(v.count-1, " ")

resp['post_body'].each_line { |l| v.append(v.count-1, l.strip)}

end

#######

# delete post with id [id]. Asks for confirmation first

#

def blog_del

VIM::evaluate("a:0").to_i > 0 ? ((id = VIM::evaluate("a:1")) ? id : id = nil) : id = nil

resp = blog_api("del", id)

resp ? VIM.command("echo \"Blog post ##{id} successfully deleted\"") : VIM.command("echo \"Deletion problem for post id ##{id}\"")

end

#######

# insert a link. Is it interesting to implement these options ?

# ** http://address.com

# ** title (hint)

# ** string

#

def blog_link

v = VIM::Buffer.current

link = {:link => '', :string => '', :title => ''}

VIM::evaluate("a:0").to_i > 0 ? ((id = VIM::evaluate("a:1")) ? id : id = nil) : id = nil

v.append(v.count-1, " a:0 --> #{VIM::evaluate("a:0")} ")

v.append(v.count-1, " a:1 --> #{VIM::evaluate("a:1")} ")

v.append(v.count-1, "<a href=\"#{link[:link]}\" title=\"#{link[:title]}\">#{link[:string]}</a>")

end

#######

# api calls. Allways returns an hash so that if api is changed, only this

# function needs to be changed. One can use between Blogger, metaWeblog or

# MovableType very easilly.

#

def blog_api(fn_api, *args)

begin

case fn_api

when "gp"

resp = @blog.call("metaWeblog.getPost", args[0], @login, @passwd)

@post_id = resp['postid']

return { 'post_id' => resp['postid'],

'post_title' => resp['title'],

'post_date' => same_dt_fmt(resp['dateCreated'].to_time),

'post_link' => resp['link'],

'post_permalink' => resp['permalink'],

'post_author' => resp['userid'],

'post_allow_comments' => resp['mt_allow_comments'],

'post_comment_status' => resp['comment_status'],

'post_allow_pings' => resp['mt_allow_pings'],

'post_ping_status' => resp['mt_ping_status'],

'post_categories' => resp['categories'].join(' '),

'post_body' => resp['description']

}

when "rp"

resp = @blog.call("mt.getRecentPostTitles", @blog_id, @login, @passwd, args[0])

arr_hash = []

resp.each { |r| arr_hash << { 'post_id' => r['postid'],

'post_title' => r['title'],

'post_date' => r['dateCreated'].to_time }

}

return arr_hash

when "cl"

resp = @blog.call("mt.getCategoryList", @blog_id, @login, @passwd)

arr_hash = []

resp.each { |r| arr_hash << r['categoryName'] }

return arr_hash

when "draft"

args[2] ? call = "metaWeblog.newPost" : call = "metaWeblog.editPost"

args[2] ? which_id = @blog_id : which_id = args[0]['post_id']

resp = @blog.call(call, which_id, @login, @passwd, args[0], args[1]) # hash content, boolean state ("publish"|"draft")

return { 'post_id' => resp }

when "publish"

args[2] ? call = "metaWeblog.newPost" : call = "metaWeblog.editPost"

args[2] ? which_id = @blog_id : which_id = args[0]['post_id']

resp = @blog.call(call, which_id, @login, @passwd, args[0], args[1]) # hash content, boolean state ("publish"|"draft")

return { 'post_id' => resp }

when "del"

resp = @blog.call("metaWeblog.deletePost", "1234567890ABCDE", args[0], @login, @passwd)

return resp

end

rescue XMLRPC::FaultException => e

xmlrpc_flt_xcptn(e)

end

end

#######

# same datetime format for dates

#

def same_dt_fmt(dt)

dt.strftime('%m/%d/%Y %H:%M:%S %Z')

end

#######

# exception handling error display message for communication problems

#

def xmlrpc_flt_xcptn(excpt)

msg = "Error code: #{excpt.faultCode} :: Error msg.:#{excpt.faultString}"

VIM::command("echo \"#{msg}\"")

end

end # class Wp_vim

Wp_vim.new

EOF

catch /del/

:echo "Usage for deleting a post:"

:echo " :Blog del id"

catch /draft/

:echo "Usage for saving a draft of a post:"

:echo " :Blog draft"

catch /publish/

:echo "Usage for Publishing a post:"

:echo " :Blog publish"

catch /gc/

:echo "Usage for getting the list of Categories <new window>:"

:echo " :Blog cl"

catch /gp/

:echo "Usage for Get Post [id]:"

:echo " :Blog gp id"

catch /np/

:echo "Usage for New Post:"

:echo " :Blog np"

catch /rp/

:echo "Usage for Recent [x] Posts (defaults to last 10): <new window>"

:echo " :Blog rp [x]"

catch //

:echo "Usage is :Blog option [arg]"

:echo " switches:"

:echo " - rp [x] => show recent [x] posts"

:echo " - gp id => get post with identification id"

:echo " - np => create a new post"

:echo " - publish => publish an edited/new post"

:echo " - draft => save edited/new post as draft"

:echo " - gc => get the list of categories"

:echo " - del id => delete post with identification id"

:echo " --- syntax helpers:"

:echo " - link ADDRESS,TITLE,STRING => insert link <a href='ADDRESS' title='TITLE'>STRING</a> link"

endtry

endfunction