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

Yesod で Blog Engine つくってみた

Sponsored · SiteGround - Reliable hosting with speed, security, and support you can count on. →
Avatar for Hiromi Ishii Hiromi Ishii
April 21, 2012
Technology
2
200

Yesod で Blog Engine つくってみた

Avatar for Hiromi Ishii

Hiromi Ishii

April 21, 2012
Tweet

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
JAWS DAYS 2026でAIの「もやっと」感が解消された話
Avatar for Makky12 smt7174
1
110
Physical AI on AWS リファレンスアーキテクチャ / Physical AI on AWS Reference Architecture
Avatar for shota aws_shota
1
200
【Oracle Cloud ウェビナー】データ主権はクラウドで守れるのか？NTTデータ様のOracle Alloyで実現するソブリン対応クラウドの最適解
Avatar for oracle4engineer oracle4engineer
PRO
3
120
「活動」は激変する。「ベース」は変わらない ～ 4つの軸で捉える_AI時代ソフトウェア開発マネジメント
Avatar for 辻裕士/sentokun sentokun
0
130
MCPで決済に楽にする
Avatar for mu7889yoon / Yuta Nakamura mu7889yoon
0
160
OPENLOGI Company Profile for engineer
Avatar for OPENLOGI hr01
1
61k
Tour of Agent Protocols: MCP, A2A, AG-UI, A2UI with ADK
Avatar for Mete Atamel meteatamel
0
110
俺の/私の最強アーキテクチャ決定戦開催 ― チームで新しいアーキテクチャに適合していくために / 20260322 Naoki Takahashi
Avatar for SHIFT EVOLVE shift_evolve
PRO
1
470
Sansanの認証基盤を支えるアーキテクチャとその振り返り
Avatar for SansanTech sansantech
PRO
1
120
FastMCP OAuth Proxy with Cognito
Avatar for iganin hironobuiga
3
220
なぜarray_firstとarray_lastは採用、 array_value_firstとarray_value_lastは 見送りだったか / Why array_value_first and array_value_last was declined, then why array_first and array_last was accpeted?
Avatar for 02 cocoeyes02
0
290
Oracle Cloud Infrastructure：2026年3月度サービス・アップデート
Avatar for oracle4engineer oracle4engineer
PRO
0
190

Featured

See All Featured
Cheating the UX When There Is Nothing More to Optimize - PixelPioneers
Avatar for Stéphanie Walter stephaniewalter
287
14k
The Director’s Chair: Orchestrating AI for Truly Effective Learning
Avatar for Mike Taylor tmiket
1
140
SERP Conf. Vienna - Web Accessibility: Optimizing for Inclusivity and SEO
Avatar for Sara Fernández Carmona sarafernandez
2
1.4k
BBQ
Avatar for Matthew Crist matthewcrist
89
10k
Stewardship and Sustainability of Urban and Community Forests
Avatar for Eric Wiseman pwiseman
0
160
svc-hook: hooking system calls on ARM64 by binary rewriting
Avatar for Akira Moroo retrage
2
180
The Psychology of Web Performance [Beyond Tellerrand 2023]
Avatar for Tammy Everts tammyeverts
49
3.3k
Google's AI Overviews - The New Search
Avatar for Barry Adams badams
0
950
Understanding Cognitive Biases in Performance Measurement
Avatar for Philip Tellis bluesmoon
32
2.8k
Neural Spatial Audio Processing for Sound Field Analysis and Control
Avatar for NII S. Koyama's Lab skoyamalab
0
240
ピンチをチャンスに：未来をつくるプロダクトロードマップ #pmconf2020
Avatar for Aki / @LoveIdahoBurger aki_iinuma
128
55k
WCS-LA-2024
Avatar for Leonardo Collado-Torres lcolladotor
0
500

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