Upgrade to Pro — share decks privately, control downloads, hide ads and more …
Sign up for free

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.2k
The Great Power of newtypes
Avatar for Hiromi Ishii konn
3
4k
本当はすごい newtype
Avatar for Hiromi Ishii konn
11
12k
わかったつもりになる Gröbner 基底
Avatar for Hiromi Ishii konn
5
1.2k

Other Decks in Technology

See All in Technology
Lambda MicroVMsは常駐サーバーの代わりに なるか？ Kiro Crew を動かして検証してみた / Kiro Crew on Lambda MicroVMs
Avatar for Kazuki Adachi k_adachi_01
2
150
AIに書かせて、プラットフォームで縛る ― EKSプラットフォームで実践した責任境界と権限設計
Avatar for elmo elmodev09
0
230
「どのログを見ればいい？」 から始めた サーバーレス障害解析
Avatar for y_waka1 y_waka1
1
140
リアーキテクチャ後の障害ゼロを目指したShadow Testingの取り組み
Avatar for nihonbuson nihonbuson
PRO
1
180
JSONataとAWS Step Functionsで目指すRuntimelessな世界
Avatar for mu7889yoon / Yuta Nakamura mu7889yoon
0
470
メルカリにおけるAI時代の高速プロトタイピング基盤「Arca」
Avatar for Ryota Arai ryotarai
5
3.7k
おい、エージェントを使って終わらせろ
Avatar for nwiizo nwiizo
3
900
LLMに渡さなかった仕事
Avatar for oga_aiichiro nanaism
0
1.4k
事業課題から技術的負債に向き合う
Avatar for SansanTech sansantech
PRO
2
2.3k
AIエージェントの自己改善をどう設計するか / How to Design Self-Improvement for AI Agents
Avatar for 223 22mi
26
17k
Claude Codeを「使うほど育つ」AI秘書にするノウハウ
Avatar for みのるん minorun365
PRO
33
31k
EventBridge に「合流」はない ― サーバーレスのワークフローを育てるということ / No Join in EventBridge
Avatar for Yusuke Shimizu yusukeshimizu
2
510

Featured

See All Featured
The Hidden Cost of Media on the Web [PixelPalooza 2025]
Avatar for Tammy Everts tammyeverts
2
500
Are puppies a ranking factor?
Avatar for Jono Alderson jonoalderson
2
3.9k
Improving Core Web Vitals using Speculation Rules API
Avatar for Sergey Chernyshev sergeychernyshev
21
1.6k
Design and Strategy: How to Deal with People Who Don’t "Get" Design
Avatar for Morgane Peng morganepeng
133
19k
Into the Great Unknown - MozCon
Avatar for Noah Learner thekraken
41
2.7k
Gemini Prompt Engineering: Practical Techniques for Tangible AI Outcomes
Avatar for Mfonobong Umondia mfonobong
2
550
Design of three-dimensional binary manipulators for pick-and-place task avoiding obstacles (IECON2024)
Avatar for konakalab konakalab
0
600
AI Search: Implications for SEO and How to Move Forward - #ShenzhenSEOConference
Avatar for Aleyda Solis aleyda
1
1.4k
Testing 201, or: Great Expectations
Avatar for Joseph Mastey jmmastey
46
8.3k
What the history of the web can teach us about the future of AI
Avatar for Ines Montani inesmontani
PRO
1
710
Lessons Learnt from Crawling 1000+ Websites
Avatar for Charles Meaden charlesmeaden
PRO
1
1.6k
Building a Scalable Design System with Sketch
Avatar for Laura Van Doore lauravandoore
464
34k

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೔೔༵೔