S3にスライドを保存することにした

S3ʹεϥΠυΛอଘ͢Δ͜ͱʹͨ͠ 2014-05-03 LTۦಈ։ൃ03

ࣗݾ঺հ ͻΉΒ ͱ΋ͻ͜ Tw: eielh, GH: eiel ! http://eiel.info/ ͍͢͝޿ౡ
LTۦಈ։ൃ Hiroshima.rb CSS Nite in HIROSHIMA

4݄ͷ͓͢͢ΊπΠʔτ

࠷ۙͷ೰Έ

֎ʹग़͞ͳ͚Ε͹…

.keyϑΝΠϧ… Slide Share ͱ͔ Speaker Deck ʹ͸ PDF ͍͔ͭ࢖͍·ΘͤΔΑ͏ʹ ൃදͨ͠Βมߋ͢Δ͜ͱ͕ͳ͍

S3 ͱ૬ੑ͕ྑͦ͞͏

ં֯ͳͷͰɺ୭Ͱ΋DLՄೳ http://keynotes.eiel.info/

γϣϘΠͱ͔͍͏ͳ

S3 ͱ͸ʁ Amazon Web Service ͷετϨʔδαʔϏε 1GB͋ͨΓ 0.03$ ੩తϖʔδͷϗεςΟϯά͕Ͱ͖Δ ೖΕ෺ʹ༰ྔ੍ݶ͕ͳ͍
ແݶʹೖΔ֎෇͚HDDͷΑ͏ʹ࢖͑Δ

GitHub͡Όμϝͳͷʁ ΍Γ͗ͯ͢εύϜ൑ఆ͞Εͨ͜ͱ͕…

index.html ͷੜ੒

https://github.com/eiel/keynotes-eiel

ར༻ݴޠ Haskell

ࠓճࢼͨ͠ϥΠϒϥϦ aws haskell Ͱ aws ͷ api Λୟ͚Δ shakespeare Yesod
Ͱར༻͞ΕͯΔςϯϓϨʔτΤϯδϯ

aws cfg <- Aws.baseConfiguration let s3cfg = Aws.defServiceConfig :: S3.S3Configuration
Aws.NormalQuery ! withManager $ \mgr -> do S3.GetBucketResponse { S3.gbrContents = objectInfo } <- Aws.pureAws cfg s3cfg mgr $ S3.getBucket bucketName

Aws.pureAws cf s3cfg mgr [apiͬΆ͍ؔ਺]

Α͘Θ͔Βͳͯ͘΋ APIͷͱ͚ͩ͜ม͑Ε͹࢖͑ͦ͏

shakespeare toHtml infos = renderHtml $ [shamlet| $doctype 5 <html>
<head> <title>keynotes.eiel.info <body> <h1>εϥΠυͷอଘ৔ॴ ͜͜͸εϥΠυͷอଘݿ <ul> $forall info <- infos ^{list info} |]

shakespeare list S3.ObjectInfo { S3.objectKey = key } = [shamlet|
<li> <a href=#{key}>#{name} |] where name = key

Haml ͱ͔Έ͍ͨʹॻ͚·͢Ͷ

ͭ·͍ͮͨ఺

MimeTypeࢦఆ͠ͳͯ͘ϋϚͬͨ ϖʔδΛදࣔ͢Δͱμ΢ϯϩʔυͯ͠͠·͏ ! ϑΝΠϧΛૹ৴͢Δ࣌ʹ text/html Λࢦఆͨ͠

String ͔Β ByteString ʹม׵ͨ͠Β จࣈԽ͚ͨ͠ String ͔Β Text Λܦ༝ͯ͠ ByteStringʹͨ͠
Β͏·͍ͬͨ͘ ! T.encodeUtf8 . T.pack :: String -> ByteString

͔͠͠ɺrenderHtml ؔ਺͕ͦ΋ͦ΋ ByteStringʹͰ͖ͨ Ͱ΋ Lazy.ByteString Ͱ ByteString ʹม͑ͳ͍ͱ͍͚ͳ ͍ɻ΍Γํ͕͋ͬͯΔͷ͔Θ͔Βͳ͍ɻ !
B.concat . B.toChunks :: Lazy.ByteString -> ByteString

Ϩίʔυ͕࢖͍͜ͳͤͯͳ͍ let object = S3.putObject bucketName "index.html" body Aws.pureAws cfg
s3cfg mgr $ object { S3.poContentType = Just "text/html" } ! let Λܦ༝ͤͣγϯϓϧʹॻ͘ํ๏͕Θ͔Βͳ͍

ࠓޙͷల๬

ελΠϧγʔτ͔͜͏ ը૾ཉ͍͠ ൚Խͯ͠ଞͷ༻్ʹ΋࢖͑ΔΑ͏ʹ ΞΫηεϩάͷऩूͱ͔ͪΌΜͱ΍Ζ͏

·ͱΊ S3͸σʔλอ؅ݿͱͯ͠ྑ͍͸ͣ APIͰૢ࡞Ͱ͖ͯૉఢ Haskell ͸࣮༻Ͱ͖·͢

͝ਗ਼ௌ͋Γ͕ͱ͏͍͟͝·ͨ͠

S3にスライドを保存することにした

S3にスライドを保存することにした

Tomohiko Himura

More Decks by Tomohiko Himura

Other Decks in Programming

Featured

Transcript

S3ʹεϥΠυΛอଘ͢Δ͜ͱʹͨ͠ 2014-05-03 LTۦಈ։ൃ03

ࣗݾ঺հ ͻΉΒ ͱ΋ͻ͜ Tw: eielh, GH: eiel ! http://eiel.info/ ͍͢͝޿ౡ

4݄ͷ͓͢͢ΊπΠʔτ

࠷ۙͷ೰Έ

֎ʹग़͞ͳ͚Ε͹…

.keyϑΝΠϧ… Slide Share ͱ͔ Speaker Deck ʹ͸ PDF ͍͔ͭ࢖͍·ΘͤΔΑ͏ʹ ൃදͨ͠Βมߋ͢Δ͜ͱ͕ͳ͍

S3 ͱ૬ੑ͕ྑͦ͞͏

ં֯ͳͷͰɺ୭Ͱ΋DLՄೳ http://keynotes.eiel.info/

γϣϘΠͱ͔͍͏ͳ

S3 ͱ͸ʁ Amazon Web Service ͷετϨʔδαʔϏε 1GB͋ͨΓ 0.03$ ੩తϖʔδͷϗεςΟϯά͕Ͱ͖Δ ೖΕ෺ʹ༰ྔ੍ݶ͕ͳ͍

GitHub͡Όμϝͳͷʁ ΍Γ͗ͯ͢εύϜ൑ఆ͞Εͨ͜ͱ͕…

index.html ͷੜ੒

https://github.com/eiel/keynotes-eiel

ར༻ݴޠ Haskell

ࠓճࢼͨ͠ϥΠϒϥϦ aws haskell Ͱ aws ͷ api Λୟ͚Δ shakespeare Yesod

aws cfg <- Aws.baseConfiguration let s3cfg = Aws.defServiceConfig :: S3.S3Configuration

Aws.pureAws cf s3cfg mgr [apiͬΆ͍ؔ਺]

Α͘Θ͔Βͳͯ͘΋ APIͷͱ͚ͩ͜ม͑Ε͹࢖͑ͦ͏

shakespeare toHtml infos = renderHtml $ [shamlet| $doctype 5 <html>

shakespeare list S3.ObjectInfo { S3.objectKey = key } = [shamlet|

Haml ͱ͔Έ͍ͨʹॻ͚·͢Ͷ

ͭ·͍ͮͨ఺

MimeTypeࢦఆ͠ͳͯ͘ϋϚͬͨ ϖʔδΛදࣔ͢Δͱμ΢ϯϩʔυͯ͠͠·͏ ! ϑΝΠϧΛૹ৴͢Δ࣌ʹ text/html Λࢦఆͨ͠

String ͔Β ByteString ʹม׵ͨ͠Β จࣈԽ͚ͨ͠ String ͔Β Text Λܦ༝ͯ͠ ByteStringʹͨ͠

͔͠͠ɺrenderHtml ؔ਺͕ͦ΋ͦ΋ ByteStringʹͰ͖ͨ Ͱ΋ Lazy.ByteString Ͱ ByteString ʹม͑ͳ͍ͱ͍͚ͳ ͍ɻ΍Γํ͕͋ͬͯΔͷ͔Θ͔Βͳ͍ɻ !

Ϩίʔυ͕࢖͍͜ͳͤͯͳ͍ let object = S3.putObject bucketName "index.html" body Aws.pureAws cfg

ࠓޙͷల๬

ελΠϧγʔτ͔͜͏ ը૾ཉ͍͠ ൚Խͯ͠ଞͷ༻్ʹ΋࢖͑ΔΑ͏ʹ ΞΫηεϩάͷऩूͱ͔ͪΌΜͱ΍Ζ͏

·ͱΊ S3͸σʔλอ؅ݿͱͯ͠ྑ͍͸ͣ APIͰૢ࡞Ͱ͖ͯૉఢ Haskell ͸࣮༻Ͱ͖·͢

͝ਗ਼ௌ͋Γ͕ͱ͏͍͟͝·ͨ͠