ʓʓΛࢧ͍ٕ͑ͨज़ 
!NBTVUBLB 

ɹɹΛࢧ͍ٕ͑ͨज़ 
!NBTVUBLB ˜
FTB
--$ 

˜
FTB
--$ 

͍Α͍Α2JJUB5FBN͔ΒͷΠϯϙʔτ͕ ׬ྃ͠ɺFTBͷຊ֨Քಇ͕࢝·Γ·ͨ͠Ͷ 

ͦ͏͍͑͹ઌ݄͜ΜͳπʔϧΛ
࡞Γ·ͨ͠ 

IUUQTNBTVUBLBOFUDIBMPXIUNM 

σϞ 

ػೳ w ʮ೚ҙͷΫΤϦͰFTBͷهࣄΛݕࡧ͠ɺΩϟο γϡϑΝΠϧʹॻ͖ग़ؔ͢਺ʯΛఆظతʹ࣮ߦ ͢Δ
w FNBDTIFMN
JOUFSGBDFܦ༝Ͱݕࡧ݁ՌΛߜΓࠐ Έͭͭɺϒϥ΢βͰૉૣ͘هࣄΛ։͘͜ͱ͕ग़ དྷΔ 

ݕࡧΫΤϦͷઃఆྫ (setq helm-esa-search-query (concat "watched:true kind:stock" " -in:Archived" " -category:Templates" " -in:\"esa ࿅श৔\"" " -in:\"(unsorted)\"")) 

helm-esa-http-request request.el request--curl-callback request--curl-command async ~/.emacs/helm-esa success & finish? Emacs timer (default: Once an hour) next page? 

(defun helm-esa-http-request (&optional url) "Make a new HTTP request for create `helm-esa-file'. Use `helm-esa-get-url' if URL is nil." (unless url ;; 1st page (if (get-buffer helm-esa-work-buffer-name) (kill-buffer helm-esa-work-buffer-name)) (get-buffer-create helm-esa-work-buffer-name)) (helm-esa-http-debug-start) (request (if url url (helm-esa-get-url)) :headers `(("Authorization" . ,(concat "Bearer " helm-esa-access-token))) :parser 'json-read :success (cl-function (lambda (&key data response &allow-other-keys) (helm-esa-http-debug-finish-success (request-response-url response)) (let ((next-url)) (with-current-buffer (get-buffer helm-esa-work-buffer-name) (goto-char (point-max)) (helm-esa-insert-articles data) (setq next-url (helm-esa-next-url data)) (if next-url (helm-esa-http-request next-url) (write-region (point-min) (point-max) helm-esa-file)))))) :error (cl-function (lambda (&key error-thrown response &allow-other-keys) (helm-esa-http-debug-finish-error (request-response-url response) error- thrown))))) IUUQTHJUIVCDPNNBTVUBLBFNBDTIFMNFTB 

No content

IUUQTXXXBNB[PODPKQEQ#1'1( 

ωλΛܾΊ͔Ͷ͍ͯͨࠓ݄಄ʹͳ͔ͥ
ʰجૅ͔ΒΘ͔Δ&MNʱΛखʹऔΓ·ͨ͠ 

&MN w ڧྗͳ੩తܕγεςϜΛ࣋ͭؔ਺ܕݴޠ
w +BWB4DSJQUʹίϯύΠϧ͢Δ͜ͱʹΑͬͯϒϥ΢ β্Ͱಈ࡞͢Δ
w ॳ৺ऀֶ͕श͠΍͍͢͜ͱΛॏࢹ͓ͯ͠Γɺͱ ͯ΋γϯϓϧͳݴޠʹͳ͍ͬͯΔ ʰجૅ͔ΒΘ͔Δ&MNʱ1ΑΓൈਮ 

TZOUBYʢߏจʣ͕FNBDTMJTQ FMJTQ ͱࣅ͍ͯΔؾ͕ 


ؔ਺ݺͼग़͠ (max 1 2) => 2 elisp -- ΧϯϚ ͸ෆཁ max 1 2 => 2 -- ΧοίͰׅΕΔ⭐ (max 1 2) => 2 Elm 


தஔԋࢉࢠ (1 + 2) => Invalid function: 1 (+ 1 2) => 3 elisp 1 + 2 => 3 -- ؔ਺ͱͯ͠΋࢖͑Δ (+) 1 2 => 3 -- ઈରݟ΍͍͢⭐ ((+) 1 2) => 3 Elm 


MFUࣜ (let ((a 1) (b 2)) (max a b)) => 2 elisp -- ׬શʹҰக⭐ let a = 1 b = 2 in max a b => 2 Elm 


-JTUʢԋࢉࢠʣ (cons 3 '(2 1)) => (3 2 1) elisp -- ͜Ε·ͨಉ͡⭐ 3 :: [2, 1] => [3,2,1] Elm 


λϓϧ (cons 1 "a") => (1 . "a") elisp -- ಉͩ͡⭐ (1, "a") => (1,"a") Elm 

FNBDTIFMNFTB 

FNBDTIFMNFTB 

ͳΔ΄Ͳʁ 

IFMNFTBFMͱಉ͜͡ͱ͕&MNͰ
࣮૷ग़དྷͨΓ͢Δʁ 

ͱΓ͋͑ͣࢼͯ͠Έͨ 

σϞ 

IUUQTHJUIVCDPNNBTVUBLBTBOECPYFMNFTB ݟӫ͑Λྑ͘͢ΔͨΊʹhtmlͱcssΛഈआ͠·ͨ͠ɻ esaͷօ͞Μ͝ΊΜͳ͍͞ 

ग़དྷΔ͜ͱ w ݕࡧ͕Ͱ͖Δ
w (&5
WUFBNTUFBN@OBNFQPTUT
w IFMNFTBFMͱಉ͡
w લ΍࣍ͷϖʔδʹਐΊΔ
w ͦΕ͚ͩ 

੍ݶࣄ߲ w 0"VUI
ͷ*NQMJDJU
'MPXΛ࣮૷͍ͯ͠ͳ͍ͨ Ίɺ"DDFTT
5PLFOϕλॻ͖ 

ίʔυΛಡΉ https://github.com/masutaka/sandbox-elm-esa/blob/ master/src/Main.elm 

·ͱΊ w ͦ΋ͦ΋&NBDTͷॲཧܥΛFMJTQ͔Β&MNʹมߋ ͢Δ͜ͱ͸ग़དྷͳ͍
w ؔ਺ܕݴޠͱࣅ͍ͯΔFMJTQͷ࣍ʹɺ&MNΛֶͿ ͱֶश͕௙Δ 

͓ΘΓ