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

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

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

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

Taiju Aoki

July 24, 2019
Tweet

More Decks by Taiju Aoki

Other Decks in Programming

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