SIerのTwitter事情 ２日目

○月×日

今日もExcelとにらめっこだ

つまらない。。。

先日作ったやつで、Twitterを見よう。

・・・見難い、実に醜い

せめて、交互に背景色を変えよう

色はここから選ぼう
http://www.colourlovers.com/palettes

背景色の変え方は簡単だ。

まずは色をつくる
(XSSFColor. (Color. 203 249 192))

そしたら
.setFillForegroundColorで色を当てる。

そんでもって(.setFillPattern style (CellStyle/SOLID_FOREGROUND))で塗りつぶしだ。

交互に背景色を変えるのは適当に2で割った余りが0の行を塗っておけばいいだろう。

ソースコード（変更・追加箇所）

core.clj

(defn -main []
  (def timeline (get-timeline))
  (def tweets-size (count timeline))
  (def sheet (.createSheet wb))
  (dotimes [i tweets-size]
    (def tweet (first (drop (- tweets-size (inc i)) timeline)))
    (def row (.createRow sheet i))
    (def style (.createCellStyle wb))
    (.setFillForegroundColor style (XSSFColor. (Color. 203 249 192)))
    (.setFillPattern style (CellStyle/SOLID_FOREGROUND))
    (let [cell (. row createCell 0)]
      (.setCellValue cell (str (:name tweet) "@" (:screenName tweet)))
      (if (= 0 (rem i 2))
        (.setCellStyle cell style)))
    (let [cell (. row createCell 1)]
      (.setCellValue cell (:text tweet))
      (if (= 0 (rem i 2))
        (.setCellStyle cell style))))
  (save wb))

次の予定

Excel直接書き込みによるリプライ
（予定はあくまで予定です。ぜんぜん違うことやるかも。）

リポジトリ

良ければアドバイスください。

あぁ・・・そうそう
http://01e8c979c4e57f83dd63bf3d4a.doorkeeper.jp/events/14626
というものがあるらしい。（参加します。）