2010/12/06

画像のリサイズは mogrify

ImageMagick は便利。

repl へのアイコン表示用なので trivial-shell:shell-command での mogrify 呼出で十分。

これいタイムラインを眺めるにはひざの上の猫くらいのものができた。

https://github.com/quek/twitter-client

(defun %get-profile-image (image-url local-path)
(unless (probe-file local-path)
(ensure-directories-exist local-path)
(with-open-file (out local-path :direction :output :element-type '(unsigned-byte 8))
(write-sequence (drakma:http-request image-url) out))
;; ImageMagic に頼る。
(trivial-shell:shell-command #"""mogrify -resize 32x32 #,local-path""")))

0 件のコメント: