2009-08 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

2009-08-16 (日)

「twitter でつぶやく」ボタンを付けました。 [chalow][Twitter]

このブログの各記事にtwittertubuyakuボタンを付けました。Twitter ユーザは、簡
単にこのブログに関するつぶやきを投稿することが出来ます。どうぞご利
用下さい。

今回も chalow 本体を修正しました。chalow ユーザ向けに、オリジナ
ル(chalow-1.0.tar.gz)の cl.conf と chalow へのパッチを貼り付けてお
きますね。


--- cl.conf.org	2007-10-19 21:38:22.000000000 +0900
+++ cl.conf	2009-08-16 15:26:20.000000000 +0900
@@ -315,7 +315,7 @@
 $item_template = << "EACHITEM"
 <!-- start:<TMPL_VAR name=ymdi> -->
 <div class="section">
-<h3 class="subtitle"><TMPL_VAR name=header> <TMPL_VAR name=cat></h3>
+<h3 class="subtitle"><TMPL_VAR name=header> <TMPL_VAR name=cat> <TMPL_VAR name=retweet></h3>
 <p><TMPL_VAR name=content></p>
 <TMPL_IF name=readmore>
 <p>《<a href="<TMPL_VAR name=url>">続きを読む</a>》</p>



--- chalow.org	2007-10-19 23:15:01.000000000 +0900
+++ chalow	2009-08-16 15:29:44.000000000 +0900
@@ -573,6 +573,9 @@
     my $item_ymdi = $ymd."-".$i;
     (my $item_id = $ymd.$i) =~ s/-//g; # Ex. "200309241"

+    ### ReTweet
+    my $retweet = make_retweet_link_html($e->{$i}{cat}, $e->{$i}{h}, $item_url);
+
     ### item の組み上げ
     my $t = HTML::Template->new(scalarref => \$item_template,
 				die_on_bad_params => 0);
@@ -586,6 +589,7 @@
     $t->param(content => $ccc);
     $t->param(header => $ih);
     $t->param(cat => $catstr);
+    $t->param(retweet => $retweet);
     $t->param(author => $e->{$i}{a});
     $t->param(referrer => join(" ", @inside_refs));
     $t->param(id => $item_id);
@@ -754,6 +758,9 @@
 		$ymdi_after = $day_a."-1";
 	    }

+	    ### ReTweet
+	    my $retweet = make_retweet_link_html($ent->{$i}{cat}, $item->{h}, $item_url);
+
 	    ### ページの組み上げ
 	    my $t = HTML::Template->new(scalarref => \$item_page_template,
 					loop_context_vars => 1,
@@ -778,6 +785,7 @@
 	    $t->param(header_text => $item->{ho});
 	    $t->param(header => $item->{h});
 	    $t->param(cat => $catstr);
+	    $t->param(retweet => $retweet);
 	    $t->param(author => $item->{a});
 	    $t->param(referrer => join(" ", @inside_refs));
 	    $t->param(id => $item_id); # 200101011
@@ -1401,6 +1409,29 @@
 }


+### ReTweet 用のリンクを作る。
+sub make_retweet_link_html {
+    my ($catp, $ih, $item_url) = @_;
+
+    my $catstr = join("", map {"[$_] "} @$catp);
+
+#   my $statusstr = $catstr . $ih;
+    my $statusstr = $ih;
+    to_utf8_cl(\$statusstr);
+    $statusstr =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
+    $statusstr =~ s/\s$//;
+    $statusstr =~ s/\s/%20/g;
+
+    $item_url = $clog_url . $item_url;
+
+    my $link_html = qq(<a href="http://twitter.com/home?status=%22$statusstr%22%20$item_url%20%23masutaka%20">).
+	qq(<img src="image/twittertubuyaku.png" alt="twitter" border="0" style="border:none">).
+	qq(</a>);
+
+    return $link_html;
+}
+
+
 ### 指定されたファイルへ文字列を出力
 sub output_to_file {
     my ($fname, $contp) = @_;



- カテゴリも含めたい場合は、$catstr を使って下さい。
- %23masutaka は、適当な文字列に置き換えて下さい。
- twittertubuyakuは image ディレクトリに置いて下さい。

正直、ベタな修正になってしまったと思います。他にボタンを付けること
があれば、拡張性のある修正を考えます。

たつをさんのページを大いに参考にさせていただきました。
[を] このブログに「twitter でつぶやく」ボタンをつけた

やろうと思ったきっかけは、たつをさんのこのつぶやきです。



追記(2009-08-19):
この記事を書いてから幾日も経っていませんが、さっそく「拡張性のある
修正」に置き換えました。上のパッチではなく [2009-08-19-1] のパッチ
を参考にすることをオススメします。

この記事に言及しているこのブログ内の記事

2009-08 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

検索


最近の話題
- 2021-01-22
  pushover orb のメンテナーになった
- 2021-01-16
  tfupdate orb の circleci/orb-tools を v8.27.5 から v10.0.3 にアップデートした
- 2021-01-05
  思考を寝かせて、優先順位を決めるための「やるかもしれないリスト」がとてもうまくワークしている
- 2020-12-20
  『データマネジメントが30分でわかる本』を読んだ
- 2020-12-03
  優先度より優先順位のほうが偉い
- 2020-11-10
  『理論から学ぶデータベース実践入門』を読んだ
- 2020-10-30
  CircleCI の旧 UI で設定した Slack Integration の設定を確認も変更も削除もできない件への対応方法
最近追記された記事
- 2014-11-02-2 (308日前)
- 2020-01-22-1 (314日前)
- 2019-02-11-1 (488日前)
- 2019-02-03-1 (488日前)
- 2019-01-28-1 (488日前)
- 2019-02-03-1 (530日前)
- 2018-11-28-1 (544日前)
- 2019-05-07-1 (624日前)
- 2018-04-30-1 (639日前)
- 2018-01-28-1 (651日前)
カテゴリ
- Android (2)
- Anthy (3)
- Apache (11)
- Apple (1)
- ATOK (4)
- au (3)
- AWS (24)
- Bazaar (1)
- Berkshelf (2)
- BigQuery (1)
- BitBar (4)
- Book (111)
- Boxen (2)
- Bugsnag (1)
- capistrano (4)
- chalow (57)
- ChatWork (1)
- Chef (17)
- Chrome (3)
- Chromecast (1)
- CircleCI (15)
- clang (26)
- Comics (2)
- Cooking (10)
- cvs (15)
- cygwin (12)
- D3.js (1)
- Debian (55)
- Docker (5)
- E-mail (9)
- elasticsearch (4)
- Emacs (225)
- Emacs講座 (10)
- English (4)
- feedforce (7)
- fetchmail (3)
- Firefox (20)
- Fluentd (4)
- ftp (2)
- Game (21)
- GCP (1)
- Gem (5)
- Git (9)
- GitHub (23)
- golang (11)
- Google (1)
- gpg (4)
- GrowthForecast (7)
- Health (7)
- Heroku (21)
- Homebrew (10)
- HTML (6)
- iBook (1)
- iOS (1)
- iPad (1)
- iPhone (17)
- IRC (1)
- Jenkins (8)
- JS (1)
- Karabiner (1)
- KeySnail (3)
- Kibana (1)
- Kindle (1)
- Kubernetes (2)
- Langrich (7)
- LDAP (6)
- Life (24)
- Linux (7)
- Mackerel (1)
- macOS (1)
- Mew (18)
- MongoDB (1)
- Mozilla (19)
- Music (1)
- MySQL (1)
- NAS (4)
- nginx (6)
- NHK (1)
- Node (1)
- ntp (4)
- OOP (2)
- OpenID (2)
- openssl (1)
- Opera (2)
- OSX (41)
- Perl (14)
- PHP (19)
- PostgreSQL (1)
- procmail (4)
- Programing (3)
- Puppet (1)
- Python (2)
- Rails (13)
- Rake (2)
- RaspberryPi (2)
- Redash (1)
- RedHat (29)
- Redmine (3)
- RSpec (2)
- Ruby (54)
- samba (3)
- screen (7)
- sed (5)
- serverspec (6)
- sh (8)
- Slack (4)
- Solaris9 (22)
- Spring (2)
- ssh (4)
- StatusNet (21)
- svn (12)
- Swift (1)
- Tablet (1)
- tdiary (3)
- Terraform (3)
- Twitter (15)
- Twmode (6)
- Ubuntu (5)
- UNIX (102)
- vagrant (8)
- Video (21)
- vim (1)
- Wercker (9)
- Windows (29)
- Wine (3)
- XML (11)
- XP (1)
- zsh (26)
- インストールメモ (33)
- クイックシェイプ (12)
- ネタ (15)
- 勉強会 (19)
- 携帯 (6)
- 正規表現 (4)
過去ログ
2021 : 01 02 03 04 05 06 07 08 09 10 11 12
2020 : 01 02 03 04 05 06 07 08 09 10 11 12
2019 : 01 02 03 04 05 06 07 08 09 10 11 12
2018 : 01 02 03 04 05 06 07 08 09 10 11 12
2017 : 01 02 03 04 05 06 07 08 09 10 11 12
2016 : 01 02 03 04 05 06 07 08 09 10 11 12
2015 : 01 02 03 04 05 06 07 08 09 10 11 12
2014 : 01 02 03 04 05 06 07 08 09 10 11 12
2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12
2002 : 01 02 03 04 05 06 07 08 09 10 11 12
2001 : 01 02 03 04 05 06 07 08 09 10 11 12