Emacs × Sound やってみた / Emacs with Sound

LT for Emacs 七夕まつり
https://tokyo-emacs.connpass.com/event/138882/

Transcript

1. Emacs ✖ Sound ΍ͬͯΈͨ
   @blue_1617
   

   View Slide

2. ࢲ͸୭ʁ
   blue (@blue_1617)
   https://blue0513.github.io/show_room/
   2
   ࠓظͷΞχϝϦετ
   ‣ ߥͿΔقઅͷԵঁͲ΋Αɻ
   ‣ ͔ͭͯਆ्ͩͬͨͨͪ΁
   ‣ Dr. STONE
   ‣ ൴ํͷΞετϥ
   ‣ μϯ·ͪ
   ‣ μϯϕϧԿΩϩ࣋ͯΔʁ
   ‣ ίοϓΫϥϑτ
   ‣ ॴଐ: M3, IncʢΫϥ΢υిࢠΧϧς։ൃʣ
   ‣ JavaScript, Ruby, Scala, Terraform etc
   

   View Slide

3. ࠷ۙ HHKB ͷಉ྅͕૿͑·ͯ͠ 3
   λΧλΧλΧ
   .....λʔϯοʂʂ
   ͍͍Իͯ͠Δͥ.....
   

   View Slide

4. ࠷ۙ HHKB ͷಉ྅͕૿͑·ͯ͠ 4
   λΧλΧλΧ
   .....λʔϯοʂʂ
   ͍͍Իͯ͠Δͥ.....
   ଧ伴Ի͸͍͍ͧ
   

   View Slide

5. Emacs ʹ SE Λ͚ͭͯΈͨ 5
   https://github.com/blue0513/emacs-se
   λΠϐϯά࣌ʹϢʔβఆٛͷ SE Λ໐Β͢͜ͱ͕Ͱ͖Δ
   

   View Slide

6. Emacs ʹ SE Λ͚ͭͯΈͨʢ࣮૷ʣ 6
   ‣ sound-wav.el : EmacsʹޮՌԻ(SE)Λ෇͚ͯ࡞ۀޮ཰Λ3ഒʹ͢Δํ๏
   ‣ http://emacs.rubikitch.com/sound-wav/
   ‣ ࢀߟ
   ‣ sound-wav.el
   ‣ https://github.com/syohex/emacs-sound-wav
   post-command-hook ͰҾֻ͚͍ͬͯΔ
   ΩʔʹΑͬͯԻΛมߋ͍ͯ͠Δ
   

   View Slide

7. Emacs ʹ SE Λ͚ͭͯΈͨʢDEMOʣ 7
   DEMO
   

   View Slide

8. ࠷ۙ SmartSpeaker Λങ͍·ͯ͠ 8
   OK, Google
   ໌೔ͷఱؾ͸ʁ
   Haha, ໌೔͸࠷ߴʹ
   Ϋʔϧͳ೔࿨ͩͥʂ
   

   View Slide

9. ࠷ۙ SmartSpeaker Λങ͍·ͯ͠ 9
   OK, Google
   ໌೔ͷఱؾ͸ʁ
   Haha, ໌೔͸࠷ߴʹ
   Ϋʔϧͳ೔࿨ͩͥʂ
   Ի੠ૢ࡞͍͢͝
   

   View Slide

10. Emacs ΛԻ੠ૢ࡞ͯ͠Έͨ 10
    https://github.com/blue0513/julius-emacs
    Ϣʔβఆٛͷϫʔυʹ൓Ԡͯ͠ɺಛఆͷΞΫγϣϯΛ࣮ߦ͢Δ
    ʮίϐʔɺషΓ෇͚ʯͷԻ੠ʹ൓Ԡ͢Δ
    

    View Slide

11. Emacs ΛԻ੠ૢ࡞ͯ͠Έͨʢ࣮૷ɾखॱʣ11
    1. Run Julius on Terminal
    2. Open eshell and Run ruby script
    3. Start observation for voice-recognition
    4. Say something
    JuliusʢԻ੠ೝࣝιϑτʣΛىಈ͢Δ
    eshell Λ։͍ͯ Julius ͷೝࣝ݁ՌΛ buffer ʹॻ͖ࠐΉ
    buffer ͷ಺༰Λ؂ࢹ͢Δ
    ఆٛͨ͠ϫʔυʹϚονͨ͠ΒɺΞΫγϣϯΛ࣮ߦ
    Julius ͕ೝࣝͨ͠จࣈྻΛऔಘ
    จࣈྻʹԠͯ͡ΞΫγϣϯΛ࣮ߦ
    

    View Slide

12. Emacs ΛԻ੠ૢ࡞ͯ͠ΈͨʢDEMOʣ 12
    DEMO
    

    View Slide

13. ଓɾ࠷ۙ SmartSpeaker Λങ͍·ͯ͠ 13
    OK, Google
    ԻָΛྲྀͯ͠
    (High ͳ Musiċ)
    ̇̇̇
    ̇̇̇
    ̇̇̇
    

    View Slide

14. ଓɾ࠷ۙ SmartSpeaker Λങ͍·ͯ͠ 14
    OK, Google
    ԻָΛྲྀͯ͠
    (High ͳ Musiċ)
    ̇̇̇
    ̇̇̇
    ̇̇̇
    զ΋DJ͍ͨ͠ʂ
    

    View Slide

15. Emacs Ͱ DJ ͯ͠Έͨ 15
    https://github.com/blue0513/tidal-emacs-sample
    Tidal ͱ Emacs Λ࿈ܞͤ͞ɺΤσΟλͰ DJ ͢Δ
    

    View Slide

16. Emacs Ͱ DJ ͯ͠Έͨʢखॱʣ 16
    1. Launch SuperCollider.app
    2. Write SuperDirt.start then Cmd+Enter
    3. M-x tidal-start-haskell
    4. M-x tidal-run-line (C-c C-c)
    SuperColliderʢγϯηαΠβʔʣΛىಈ͢Δ
    SuperCollider ಺ͰίϚϯυΛ࣮ߦ͠ɺೖྗΛ؂ࢹ͢Δ
    Emacs ্Ͱ tidal ༻ͷϓϩηεΛىಈ͢Δ
    ΧʔιϧԼͷ໋ྩΛ࣮ߦ͢Δ
    ex. d3 $ sound "drum odx bd arpy bass2 feel future"
    

    View Slide

17. Emacs Ͱ DJ ͯ͠ΈͨʢDEMOʣ 17
    DEMO
    

    View Slide

18. ·ͱΊ 18
    ‣ Emacs ʹ SE Λ͚ͭͯΈͨ
    ‣ Emacs ΛԻ੠ૢ࡞ͯ͠Έͨ
    ‣ Emacs Ͱ DJ ͯ͠Έͨ
    λΠϐϯά࣌ʹ SE Λ໐Β͢ϚΠφʔϞʔυΛ࡞ͬͯΈͨ
    Thx Δͼ͖ͪࢯ http://emacs.rubikitch.com/sound-wav/
    Julius ͱ Emacs Λ૊Έ߹ΘͤͯԻ੠ૢ࡞Λͯ͠Έͨ
    Tidal ͱ Emacs Λ૊Έ߹Θͤͯ DJ Λͯ͠Έͨ
    

    View Slide