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

  2. ࢲ͸୭ʁ blue (@blue_1617) https://blue0513.github.io/show_room/ 2 ࠓظͷΞχϝϦετ ‣ ߥͿΔقઅͷԵঁͲ΋Αɻ ‣ ͔ͭͯਆ्ͩͬͨͨͪ΁

    ‣ Dr. STONE ‣ ൴ํͷΞετϥ ‣ μϯ·ͪ ‣ μϯϕϧԿΩϩ࣋ͯΔʁ ‣ ίοϓΫϥϑτ ‣ ॴଐ: M3, IncʢΫϥ΢υిࢠΧϧς։ൃʣ ‣ JavaScript, Ruby, Scala, Terraform etc
  3. ࠷ۙ HHKB ͷಉ྅͕૿͑·ͯ͠ 3 λΧλΧλΧ .....λʔϯοʂʂ ͍͍Իͯ͠Δͥ.....

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

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

  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 ͰҾֻ͚͍ͬͯΔ ΩʔʹΑͬͯԻΛมߋ͍ͯ͠Δ
  7. Emacs ʹ SE Λ͚ͭͯΈͨʢDEMOʣ 7 DEMO

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

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

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

  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 ͕ೝࣝͨ͠จࣈྻΛऔಘ จࣈྻʹԠͯ͡ΞΫγϣϯΛ࣮ߦ
  12. Emacs ΛԻ੠ૢ࡞ͯ͠ΈͨʢDEMOʣ 12 DEMO

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

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

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

    DJ ͢Δ
  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"
  17. Emacs Ͱ DJ ͯ͠ΈͨʢDEMOʣ 17 DEMO

  18. ·ͱΊ 18 ‣ Emacs ʹ SE Λ͚ͭͯΈͨ ‣ Emacs ΛԻ੠ૢ࡞ͯ͠Έͨ

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