Upgrade to Pro — share decks privately, control downloads, hide ads and more …

Yesod で Blog Engine つくってみた

Avatar for Hiromi Ishii Hiromi Ishii
April 21, 2012
Technology
210
2

Yesod で Blog Engine つくってみた

Avatar for Hiromi Ishii

Hiromi Ishii

April 21, 2012

More Decks by Hiromi Ishii

See All by Hiromi Ishii
大規模数値計算を支える Haskell ── Pragmatic Haskell in Large-Scale Numerical Computation──
Avatar for Hiromi Ishii konn
3
4.1k
The Great Power of newtypes
Avatar for Hiromi Ishii konn
3
4k
本当はすごい newtype
Avatar for Hiromi Ishii konn
11
11k
わかったつもりになる Gröbner 基底
Avatar for Hiromi Ishii konn
5
1.2k

Other Decks in Technology

See All in Technology
自作お家AIエージェントｽﾀｯｸﾁｬﾝFWで困っている所紹介
Avatar for 74th(Atsushi Morimoto) 74th
0
160
水を運ぶ人としてのリーダーシップ
Avatar for izumii19 izumii19
4
1.1k
初めてのDatabricks勉強会
Avatar for Takaaki Yayoi taka_aki
2
200
toB プロダクトから見たWAF
Avatar for tokai235 tokai235
0
250
從開發到部署全都交給 AI：實作 AI 驅動的自動化流程
Avatar for Bo-Yi Wu appleboy
0
190
4人目のSREはAgent
Avatar for tanimuyk tanimuyk
0
290
テスト設計の本質を改めて考えてみる～生成AIを活用する時代だからこそ、作ったテストの説明性を高めよう～
Avatar for YAMASAKI Takashi yamasaki696
1
160
【FinOps】データドリブンな意思決定を目指して
Avatar for kaita z63d
2
500
ご挨拶「10周年を迎える共創ラボのこれまでとこれから」
Avatar for AIxIoTビジネス共創ラボ iotcomjpadmin
0
150
自分が詳しくない領域でAIを使う #プロヒス2026
Avatar for konifar konifar
20
8k
AIをフル活用してオンコール機能のプロトタイプを2日で作った話 / Building an AI-Powered On-Call Prototype in Just Two Days
Avatar for Narimichi Takamura nari_ex
0
150
起点・思考・出力で分解する 〜PM業務の自動化設計〜
Avatar for kazu_kichi_67 kazu_kichi_67
2
1.2k

Featured

See All Featured
BBQ
Avatar for Matthew Crist matthewcrist
89
10k
The Illustrated Children's Guide to Kubernetes
Avatar for Chris Short chrisshort
51
52k
Organizational Design Perspectives: An Ontology of Organizational Design Elements
Avatar for Dr. Kim W Petersen kimpetersen
PRO
1
750
Test your architecture with Archunit
Avatar for Yoan thirion
1
2.3k
Java REST API Framework Comparison - PWX 2021
Avatar for Matt Raible mraible
34
9.4k
Discover your Explorer Soul
Avatar for Emna emna__ayadi
2
1.1k
Building AI with AI
Avatar for Ines Montani inesmontani
PRO
1
1.1k
[RailsConf 2023] Rails as a piece of cake
Avatar for Vladimir Dementyev palkan
59
6.7k
What’s in a name? Adding method to the madness
Avatar for The Alliance productmarketing
PRO
24
4.1k
Art, The Web, and Tiny UX
Avatar for Lynn Fisher lynnandtonic
304
22k
Build The Right Thing And Hit Your Dates
Avatar for Maggie C. maggiecrowley
39
3.2k
The Invisible Side of Design
Avatar for Vitaly Friedman smashingmag
301
52k

Transcript

  1. Yesod Ͱ Blog Engine Λͭͬͯ͘Έͨ @mr_konn 2012೥4݄22೔೔༵೔

  2. ࣗݾ঺հ • @mr_konn • ਺ֶՊࡾ೥ • auehtnticate-oauth / yesod-auth-oauth ϝϯςφ

    • ϒϩάɿhttp://blog.konn-san.com • Powered by Yesod & Mighty • ͜Ε࡞ͬͨͱ͖ͷ࿩͠·͢ 2012೥4݄22೔೔༵೔

  3. Yablog: Yet Another Blog-engine 2012೥4݄22೔೔༵೔

  4. Yablog: Yet Another Blog-engine • ϒϩάͱͯ͠Ұ௨Γͷػೳ 2012೥4݄22೔೔༵೔

  5. Yablog: Yet Another Blog-engine • ϒϩάͱͯ͠Ұ௨Γͷػೳ • ෳ਺ਓࣥච / ίϝϯτ

    / τϥοΫόοΫ / Real Time Preview / λά / ϑΟʔυ / ίϝϯτ௨஌ 2012೥4݄22೔೔༵೔

  6. Yablog: Yet Another Blog-engine • ϒϩάͱͯ͠Ұ௨Γͷػೳ • ෳ਺ਓࣥච / ίϝϯτ

    / τϥοΫόοΫ / Real Time Preview / λά / ϑΟʔυ / ίϝϯτ௨஌ • ΢ΣϒαʔϏεͱͷ࿈ܞ 2012೥4݄22೔೔༵೔

  7. Yablog: Yet Another Blog-engine • ϒϩάͱͯ͠Ұ௨Γͷػೳ • ෳ਺ਓࣥච / ίϝϯτ

    / τϥοΫόοΫ / Real Time Preview / λά / ϑΟʔυ / ίϝϯτ௨஌ • ΢ΣϒαʔϏεͱͷ࿈ܞ • SocialɿTwitter / ͸ͯϒ / ͸ͯελ / G+ / ͍͍Ͷʂ 2012೥4݄22೔೔༵೔

  8. Yablog: Yet Another Blog-engine • ϒϩάͱͯ͠Ұ௨Γͷػೳ • ෳ਺ਓࣥච / ίϝϯτ

    / τϥοΫόοΫ / Real Time Preview / λά / ϑΟʔυ / ίϝϯτ௨஌ • ΢ΣϒαʔϏεͱͷ࿈ܞ • SocialɿTwitter / ͸ͯϒ / ͸ͯελ / G+ / ͍͍Ͷʂ • Google CSE / Google Analytics / Amazon Associates 2012೥4݄22೔೔༵೔

  9. Yablog: Yet Another Blog-engine • ϒϩάͱͯ͠Ұ௨Γͷػೳ • ෳ਺ਓࣥච / ίϝϯτ

    / τϥοΫόοΫ / Real Time Preview / λά / ϑΟʔυ / ίϝϯτ௨஌ • ΢ΣϒαʔϏεͱͷ࿈ܞ • SocialɿTwitter / ͸ͯϒ / ͸ͯελ / G+ / ͍͍Ͷʂ • Google CSE / Google Analytics / Amazon Associates • ଟ͘ͷϚʔΫΞοϓݴޠɺ Syntax Colouring Λαϙʔτ 2012೥4݄22೔೔༵೔

  10. Yablog: Yet Another Blog-engine • ϒϩάͱͯ͠Ұ௨Γͷػೳ • ෳ਺ਓࣥච / ίϝϯτ

    / τϥοΫόοΫ / Real Time Preview / λά / ϑΟʔυ / ίϝϯτ௨஌ • ΢ΣϒαʔϏεͱͷ࿈ܞ • SocialɿTwitter / ͸ͯϒ / ͸ͯελ / G+ / ͍͍Ͷʂ • Google CSE / Google Analytics / Amazon Associates • ଟ͘ͷϚʔΫΞοϓݴޠɺ Syntax Colouring Λαϙʔτ • MathJax ʹΑΔඒ͍͠਺ࣜ 2012೥4݄22೔೔༵೔

  11. ཉ͍͠ػೳ͸ɺ Ұ௨Γɻ 2012೥4݄22೔೔༵೔

  12. ཉ͍͠΋ͷ͸ ࡞Ζ͏ʂ 2012೥4݄22೔೔༵೔

  13. ࡞Δͷ͸ େม……ʁ 2012೥4݄22೔೔༵೔

  14. ͦΜͳ͜ͱ͸ͳ͍ʂ 2012೥4݄22೔೔༵೔

  15. ͔ͭͬͨ΋ͷ 2012೥4݄22೔೔༵೔

  16. ͔ͭͬͨ΋ͷ • Yesod 2012೥4݄22೔೔༵೔

  17. ͔ͭͬͨ΋ͷ • Yesod • Google Analytics ͸࠷ॳ͔Βαϙʔτ 2012೥4݄22೔೔༵೔

  18. ͔ͭͬͨ΋ͷ • Yesod • Google Analytics ͸࠷ॳ͔Βαϙʔτ • ඇಉظ൛ʹ͸ॻ͖׵͑·ͨ͠ɻ 2012೥4݄22೔೔༵೔

  19. ͔ͭͬͨ΋ͷ • Yesod • Google Analytics ͸࠷ॳ͔Βαϙʔτ • ඇಉظ൛ʹ͸ॻ͖׵͑·ͨ͠ɻ •

    Newsfeed ͷੜ੒΍ࠃࡍԽ΋ָνϯ 2012೥4݄22೔೔༵೔

  20. ͔ͭͬͨ΋ͷ • Yesod • Google Analytics ͸࠷ॳ͔Βαϙʔτ • ඇಉظ൛ʹ͸ॻ͖׵͑·ͨ͠ɻ •

    Newsfeed ͷੜ੒΍ࠃࡍԽ΋ָνϯ • ೝূػߏ΋޷͖ͳ΋ͷΛ࢖͑Δ 2012೥4݄22೔೔༵೔

  21. ͔ͭͬͨ΋ͷ • Yesod • Google Analytics ͸࠷ॳ͔Βαϙʔτ • ඇಉظ൛ʹ͸ॻ͖׵͑·ͨ͠ɻ •

    Newsfeed ͷੜ੒΍ࠃࡍԽ΋ָνϯ • ೝূػߏ΋޷͖ͳ΋ͷΛ࢖͑Δ • Yablog Ͱ͸ͦͷ·· Google ͔ BrowserId 2012೥4݄22೔೔༵೔

  22. ͔ͭͬͨ΋ͷ • Yesod • Google Analytics ͸࠷ॳ͔Βαϙʔτ • ඇಉظ൛ʹ͸ॻ͖׵͑·ͨ͠ɻ •

    Newsfeed ͷੜ੒΍ࠃࡍԽ΋ָνϯ • ೝূػߏ΋޷͖ͳ΋ͷΛ࢖͑Δ • Yablog Ͱ͸ͦͷ·· Google ͔ BrowserId • HashDB ͱ͔ͷ͕Α͔͔ͬͨͳ͊ɻ 2012೥4݄22೔೔༵೔

  23. ͔ͭͬͨ΋ͷʢଓʣ 2012೥4݄22೔೔༵೔

  24. ͔ͭͬͨ΋ͷʢଓʣ • Pandoc 2012೥4݄22೔೔༵೔

  25. ͔ͭͬͨ΋ͷʢଓʣ • Pandoc • Markdown (+lhs) / ReST / HTML

    / TeX… 2012೥4݄22೔೔༵೔

  26. ͔ͭͬͨ΋ͷʢଓʣ • Pandoc • Markdown (+lhs) / ReST / HTML

    / TeX… • ϚʔΫΞοϓͷύʔζ&HTML੔ܗʹ 2012೥4݄22೔೔༵೔

  27. ͔ͭͬͨ΋ͷʢଓʣ • Pandoc • Markdown (+lhs) / ReST / HTML

    / TeX… • ϚʔΫΞοϓͷύʔζ&HTML੔ܗʹ • HTML ͸Yesodͱڞ௨ͷ blaze Λར༻ 2012೥4݄22೔೔༵೔

  28. ͔ͭͬͨ΋ͷʢଓʣ • Pandoc • Markdown (+lhs) / ReST / HTML

    / TeX… • ϚʔΫΞοϓͷύʔζ&HTML੔ܗʹ • HTML ͸Yesodͱڞ௨ͷ blaze Λར༻ • highlighting-kate 2012೥4݄22೔೔༵೔

  29. ͔ͭͬͨ΋ͷʢଓʣ • Pandoc • Markdown (+lhs) / ReST / HTML

    / TeX… • ϚʔΫΞοϓͷύʔζ&HTML੔ܗʹ • HTML ͸Yesodͱڞ௨ͷ blaze Λར༻ • highlighting-kate • γϯλοΫεΧϥʔϦϯάɻ 2012೥4݄22೔೔༵೔

  30. ͔ͭͬͨ΋ͷʢଓʣ • Pandoc • Markdown (+lhs) / ReST / HTML

    / TeX… • ϚʔΫΞοϓͷύʔζ&HTML੔ܗʹ • HTML ͸Yesodͱڞ௨ͷ blaze Λར༻ • highlighting-kate • γϯλοΫεΧϥʔϦϯάɻ • Yablog Ͱ͸௚઀ୟ͍͍ͯ·͕͢ɺPandoc ͔Β΋ୟ͚ Δɻ 2012೥4݄22೔೔༵೔

  31. Amazon Associates • Pandoc + SYB ͷҖྗ • URL Λݟ෇͚ͨΒ

    Amazon ͔Ͳ͏͔൑ ఆɺࣗಈͰΞϑΟϦϯΫԽ 2012೥4݄22೔೔༵೔

  32. ͔ͭͬͨ΋ͷ 2012೥4݄22೔೔༵೔

  33. ͔ͭͬͨ΋ͷ • MongoDB 2012೥4݄22೔೔༵೔

  34. ͔ͭͬͨ΋ͷ • MongoDB • όοΫΤϯυɻϞμϯʂ 2012೥4݄22೔೔༵೔

  35. ͔ͭͬͨ΋ͷ • MongoDB • όοΫΤϯυɻϞμϯʂ • Day ΍ TimeOfDay Λͦͷ··Ͱ͸อ

    ଘͰ͖ͳ͍ͷͰ஫ҙʂ 2012೥4݄22೔೔༵೔

  36. ͔ͭͬͨ΋ͷ • MongoDB • όοΫΤϯυɻϞμϯʂ • Day ΍ TimeOfDay Λͦͷ··Ͱ͸อ

    ଘͰ͖ͳ͍ͷͰ஫ҙʂ • auth ͷֻ͔ͬͨDBʹΞΫηεग़དྷͳ ͍ʁ 2012೥4݄22೔೔༵೔

  37. ͔ͭͬͨ΋ͷ • Bootstrap • ͓खܰʹ Twitter ϞυΩͷWeb UI Λʂ •

    ࠷৽ͷ Yesod ͔Β͸ಉࠝ……ʁ 2012೥4݄22೔೔༵೔

  38. ͔ͭͬͨ΋ͷ 2012೥4݄22೔೔༵೔

  39. ͔ͭͬͨ΋ͷ • Mighty • @kazu_yamamoto ͞ΜͷHTTPαʔό • Reverse Proxy Λ࢖ͬͯαϒυϝΠϯ

    Ͱӡ༻͍ͯ͠Δ 2012೥4݄22೔೔༵೔

  40. ࠓޙͷ༧ఆ • τϥόඈ͹͢ػೳ • ໘౗ͳͷͰ࡞ͬͯͳ͔ͬͨʈʈʀ • ը૾ͷຒΊࠐΈ • Ͳ͜ʹͲ͏อଘ͢΂͖ʁ •

    JavaScript ॏ͍ͷΛԿͱ͔͢Δ • ద౰ʹಥͬࠐΜͩΒಡΈࠐΈ͕ੌ͘஗͍……ɻ • USTҎ֎ͷ࣌ؒଳͷαϙʔτ 2012೥4݄22೔೔༵೔

  41. ഑෍৔ॴ • ϨϙδτϦɿhttp://gitweb.konn-san.com/ repo/Yablog/tree/master • ͜ͷϨϙδτϦ΋ Yesod ΞϓϦ • ·ͩൃల్্ͳͷͰɺཁ๬͕͋Ε͹

    GitHub ͷํʹ΋Ϩϙ࡞Γ·͢ 2012೥4݄22೔೔༵೔

  42. ·ͱΊ • Haskell ʹ͸୔ࢁͷϥΠϒϥϦ͕͋Δ • ૊Έ߹Θ͍ͤͯΔͱ͍ͭͷؒʹ͔׬ ੒͍ͯ͠Δ • ཉ͍͠΋ͷΛ࡞ΕΔʂ 2012೥4݄22೔೔༵೔

  43. Any Questions? 2012೥4݄22೔೔༵೔

  44. ޚਗ਼ௌ ͋Γ͕ͱ͏͍͟͝·ͨ͠ 2012೥4݄22೔೔༵೔