azur256

on run
	tell application "Safari"
		if (count of document) is greater than 0 then
			tell window 1
				
				set site_titles to {}
				set site_records to {}
				
				set loop_count to 1
				

azur256

on displayErrorMessage(s)
	display dialog (s) buttons {"OK"} default button "OK" with icon caution
end displayErrorMessage

tell application "MarsEdit"
	
	try
		set currentWindow to document 1
	on error errorMessage
		displayErrorMessage("Can’t run a Google search because no posts windows are open. This script searches using the selected text of the frontmost window.") of me

azur256

require 'rubygems'
require 'mechanize'

def make_tweetbuzz_url(url)
	"<a href=\"http://tweetbuzz.jp/redirect?url=" + url + "\"><img src=\"http://tools.tweetbuzz.jp/imgcount?url=" + url + "\" /></a>"
end

def make_hatebu_url(url)
	"<a href=\"http://b.hatena.ne.jp/entry/" + url + "\"><img src=\"http://b.hatena.ne.jp/entry/image/" + url + "\" /></a>"
end

azur256

on run
	tell application "MarsEdit" to activate
	tell application "System Events"
		
		openUploadWindow() of me
		try
			set uploadWindow to getUploadWindow() of me
			click button 6 of uploadWindow
		on error
			openUploadWindow() of me

azur256

#!/usr/bin/ruby
require "rubygems"
require "date"
require 'net/http'
require 'uri'
require "twitter"

GetCount = 200                              # 取得するツィートの数
ScreenName = "azur256"                      # Twitterのスクリーン名
REGEXPKeyword = /(.*)\[SHARE\](.*)☞(.*)/i  # 正規表現で記載

azur256

.gist .gist-file .gist-meta {
      font-size: 70% ! important;
}

.gist .gist-file .gist-data {
      font-size: 75% ! important; 
}