henge 0.1.1

data/data/stories/ja.txt

@@ -0,0 +1,231 @@
+# _alty
+
+[海軍本部]で出た[犠牲者]によって、市民に[不忠誠、裏切り]の動きが広がる。
+[忠誠]、[忠実]で知られる[市長]は、
+[ペナルティ]を受け、[不動産]と[ロイヤルティ]を失う。
+[塩辛い]状況に追い込まれた市長は、[いくつかの個別の][名物料理]で挽回を図る。
+
+# p_ment
+
+[羊皮紙]に記された[国会]決議には、[舗装]についてこう述べられている。
+[三角屋根]の中に[顔料]を[置くこと]。
+[延期]したくなるような[困難な状況]でも[調達]を求められ、
+この[声明]による[罰]には[当惑]させられる。
+
+# se_nt
+
+[シーリング材]が[交差した]ために[配置転換]を命じられる。
+[澱]がたまる[感覚を持った][感情]がある。
+[軍曹]、[軍曹]殿は[蛇]となり、
+[しもべ]達の[居留地]を[六分儀]で見つけ出す。
+
+# p_per
+
+[甘やかされた][書類]で派遣された[パラシュート部隊]は、
+[貧乏人]に[和平監視者]として[コショウ]をまく。
+[笛吹き]は[ぽっちゃりした女]と[ドラッグを吸引し、スナップボタン]が弾け飛ぶ。
+[適切な]方法で[繁栄し]、[ポンプ車]が育つ。
+
+# _hop
+
+[大司教]は[パン屋]を[床屋]と間違える。
+[ボーイ]は[司教]を[たたき切るつもりで、気が変わる]。
+[台所用品店]が[飛び乗]った先には[質屋]があって、
+[劣悪な工場]で[ぶん殴る][講習会]が開かれている。
+
+# _date
+
+[収容できる][候補者]のリストを[固める]と、状況を
+[明確に]しろと[脅迫する]者が[殺到する]。
+[無効にし][精算し]た[権限]によって、
+[先行する][穏やかな]時間が[妥当だったと認める]。
+
+# _aze
+
+[激しく燃える][火炎]のような[熱狂]の後、
+[ぼう然と]、[狼狽し]ながら、[じっと見つめる]。
+[うわ薬をかけた][牧草を、だらだらと食べている]。[もや]の中で、
+[怠惰]に過ごす。[完全に破壊]された、[低俗な行為]。
+
+# _ddy
+
+[めんどり]の[相棒]は[汚らしい]。
+[渦を巻いて][目まい]がするほど[泥まみれ]だ。
+[まぬけ]にも[籾殻付きの米]で[血色がよく]なり、
+[粗雑な][ランジェリー]で[ヤシ酒]を飲む。
+
+# _appy
+
+[あいつ]は、[くだらない][幸福]を手に入れた。
+[おしめ]で[パパ]は[感傷的]になってる。
+[ぼろぼろに]なって、[浮かれ]て、[てきぱきと]、
+[不幸]な[キャンキャン吠える子犬]は、[活気]を取り戻す。
+
+# _mmy
+
+[冷たく湿った][品質の悪い][マネキン人形]が[ゴム状の]物質を吐き出す。
+[わざとらしい]ほど[幸運な]強盗が[かなてこ]で[ママ]の金庫をこじ開ける。
+[ママ]は[ミイラ]になるまで[トランプ遊び]を止めず、[くず]の
+[ダンス]で[おなか]が揺れる。二重の[災厄]が[心地よい]。
+
+# a_nd
+
+[あふれるほど][地上に生存して]いたのに[座礁した]。
+[アーモンド]の[修正]、[アンド]
+[付け加える]なら、[逮捕]の時の[喪章]。
+[登った]先で[愕然として]も、[参列する]。
+
+# mar_n
+
+[マラソン]で大[差]がついて[主流から外]された、
+[聖母マリア]の[値引き額]は、[射撃の名手]が決める。
+[マカジキ]に[置き去り]にされた[貂]、
+[火星の][ツバメ]が運んできた[マジパン]。
+
+# imm_e
+
+[ちり一つなく][未熟で][計り知れないほど広大な]土地で、
+[即座]に現れた[巨大な]船を[沈める]。
+[入植した]者達は[静止した]まま[固定されて]いる。
+[免疫がある]者が[免疫を与え]、[不変の]関係になる。
+
+# c_ny
+
+[耳障り]な[中傷]を避けるほど[抜け目ない]、
+[カーニバル]の[式典]が[植民地]で行われる。
+[劇団]は[ウサギの毛皮]を被って[陳腐に]語る。
+[宇宙の起源]は[ひび割れ]から出てきた[輩]によると。
+
+# _cus
+
+[そろばん]をはじいた結果、[党員集会]は[サーカス]と共に開催される。
+[クロッカス]は[円盤投げ]に[焦点を絞り]、
+[ハイビスカス]が[軌跡]を[半月板]で描く。
+[粘液]が[へそ]から漏れて、[内蔵]の不調を訴える。
+
+# _stry
+
+[祖先]の[技巧]は[歯科医業]に端を発する。
+[林業]より[内閣]につく[手相占い]師となり、
+[パイ皮]状の[光化学]技術で特許を[登録]した。
+[詭弁]の[つづれ織り]は、やがて[聖具室]にまで手が及ぶ。
+
+# _cope
+
+[うまく切り抜ける][内視鏡]は[地球ゴマ]の原理を応用している。
+[占星術]が[万華鏡]と[顕微鏡]を組み合わせるのと同じだ。
+[波形観測装置]で[潜望鏡]の見える[範囲]を調べ、
+[聴診器]で[失神]した後、[望遠鏡]で覗く。
+
+# _eep
+
+[眠って]いたところを、[ビーッ]、[ピヨピヨ]というアラームで起こされる。
+[這い寄って][のぞき]込むと、何かが[染み出している]。
+[羊]の道のりは[険しい]。[掃き出し]、
+[管理保全]を終えて、[副社長]は[むせび泣く]。
+
+# _itch
+
+[排水溝]に住む[不気味な][イタチ]。
+[機器の不調]はイタチが[引っかけ]た[かゆみ]からくる。
+[調子を合わせ]、[密告]すると[縫い目]がほどける。
+[ちび]で[ぴくぴくとひきつる][魔女]の力だ。
+
+# scru_
+
+[ごしごし洗う][売春婦]がいる[低木で覆われた]場所に、
+[えり首]の[汚れた]男たちが[押し寄せる]。
+[とてもうまい、すてきな]菓子を[じゃりじゃり]噛み砕き、[良心のとがめ]からか、
+[実直に][じろじろ見る][綿密な調査]が行われる。
+
+# mu_r
+
+[フランス産の柔らかいチーズ]製[えり巻き]をした[強盗]の出現が、
+[多細胞][多重送信装置]の[繁殖要因]になる。
+[殺人]は[つぶやく][筋肉]が引き起こす。
+[先込め銃兵]は[勇気をふるい起こして][ぶつぶつつぶやく]。
+
+# _iny
+
+[頭の良い]子は[海水の]中に投げ込まれる[運命]だった。
+[粒の粗い][ひき割りトウモロコシ]を食べさせられる[不名誉]な扱いを受け、
+[抵抗]は[綿密な検査]で[ぴかぴか光る]。
+[トゲだらけの][極悪非道な行い]で[ひいひいと泣く]。
+
+# _ult
+
+[強襲]に[投石機]が使えるか[相談する]。
+[カルト]的な[狂喜]が[落ち度]となって、
+[侮辱]が[超自然的な][宙返り]を起こす。
+[騒動]は[最終的に][金庫室]へとたどり着く。
+
+# dec_tion
+
+[打ち首]で[減速]した[分権化]の流れは、
+[欺瞞]に満ちた[殺戮]の[布告]をもたらす。
+[赤緯]が[植民地解放]運動を[腐敗]させ、
+[脱構築]後の[汚染除去]技術で[暗号が解読]される。
+
+# e_se
+
+[蝕]が[過ぎて][楕円]になったら、
+[ケースに][封入]することを[推奨する]。
+[支持された][消費税]の[広がり]は、
+[出費]に関する[専門知識]の欠落を[露呈]する。
+
+# r_ue
+
+[再発行]された中から[救出]した[残留物]。
+[従者][を再評価して][総収入]が増える。
+[バラエティーショー]に[わいせつ]な[ごろつき]が出演し、
+[クローケー]選手だった[放蕩者]の[悲しみ]が広がる。
+
+# mis_t
+
+[不正行為]が[悪党]から社会[不適合者]に広がる。
+[誤解]に基づく[不始末]が[女嫌い]を増長させる。
+[誤植]が[ゆがめて伝える][誤った陳述]により、
+[霧]の中で[虐待]されていた件は[信用できない]。
+
+# acc_e
+
+[しぶしぶ同意し]、胸元を[目立たせる]ための[アクセサリーで飾る]。
+[称賛]されている間に、[収容できる][共犯者]が見つかる。規則に
+[従って]、[説明責任が求められる]作戦が[徐々に増えていく]。
+[蓄積する][正確な]証拠で[告発する]。
+
+# _pine
+
+[アルプス山脈]で抽出した[アルカロイド]の点眼で[オオカミの]幻を見る。
+[意見を述べる][松の木]には[ヤマアラシ]が住んでいて、インドのヘビから
+[略奪]した[アルカロイド]を[背骨]に注射してくれる。
+[亜高山帯]でオオカミは[あおむけの][キツネ]に姿を変える。
+
+# d_ally
+
+[ぐずぐずと][有害に]振る舞う個体は[発達的]に問題があるとされた。
+[対角線上に]位置し、[正反対に][差動的に]回転する。
+[外交的に][憂鬱に]なり、[国内的に]批判を受けて、
+[劇的に][抜本的に][ダイナミックに]変化する。
+
+# _ab
+
+[口を滑らせ]た[蟹]は、[ぽんと叩かれて][退屈な茶色]に変わる。
+[すばらしい][ぜい肉]が、[おしゃべり]を[ぎゅっと掴む]。
+[ヒジャブ]の女性を[突いた]犯人を[取り押さえると][かさぶた]が見える。
+[一枚板]の[子バト]の口に、[突き刺した][綿棒で分泌物を採取する]。
+
+# _amp
+
+[馬がむしゃむしゃ食べて]いるうちに、[締め金]が壊れて[こむら返り]を起こす。
+[じめじめした][キャンプを引き払い]、[ランプ]の灯りで出発する。
+[スロープ]を[改造した]おかげで、[いたずら小僧]は寄りつかない。
+[湿地帯]を抜ける時、[物乞い]と[妖婦]が向こうからやってくる。
+
+# _bble
+
+[赤ん坊がバブバブ言い]ながら[ひょいひょい動いて][泡]を作り、[丸石]を[ばしゃばしゃさせて遊ぶ]。さっきまで
+[よだれを垂らし]ていたのに、突然[早口でまくしたて][がつがつ食べて][よたよた歩きだす]。[粗挽きにした]穀物を
+[かじり]、[小石]を[難癖をつけてきた][野次馬]に投げつけて[瓦礫]を増やす。
+[手探りで殴り書きした][落書き]を見せると、[言い争う][無精ひげ]の男達は[よろよろになる]。
+

data/exe/henge

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+require "henge"
+
+Henge::Runner.new.run

data/henge.gemspec

@@ -0,0 +1,27 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'henge/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "henge"
+  spec.version       = Henge::VERSION
+  spec.authors       = ["KOSEKI Kengo"]
+  spec.email         = ["koseki@gmail.com"]
+
+  spec.summary       = %q{English words memorization system using circular format}
+  spec.description   = %q{English words memorization system using circular format}
+  spec.homepage      = "https://github.com/koseki/henge/"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features|src)/}) }
+  spec.files        += Dir['data/circles/*.yml']
+  spec.bindir        = "exe"
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+
+  spec.add_dependency "curses"
+  spec.add_development_dependency "bundler", "~> 1.10"
+  spec.add_development_dependency "rake", "~> 10.0"
+  spec.add_development_dependency "rspec"
+end

data/lib/henge.rb

@@ -0,0 +1,6 @@
+require 'curses'
+require 'yaml'
+require 'shellwords'
+
+require 'henge/version'
+require 'henge/runner'

data/lib/henge/runner.rb

@@ -0,0 +1,266 @@
+module Henge
+
+  class Runner
+    DIRECT_KEYS = '0123456789)!@#$%^&*('.split('')
+
+    def initialize
+      @o = [40, 18]
+      @circles_dir = File.join(__dir__, '../../data/circles')
+      Curses.timeout = 200
+    end
+
+    def load_words
+      if ARGV[0]
+        @pattern = ARGV[0]
+        ARGV[0] = nil
+      else
+        Dir.chdir(@circles_dir) do
+          file = Dir.glob('*.yml').shuffle.first
+          @pattern = file[/(.+)\.yml/, 1]
+        end
+      end
+
+      file = File.join(@circles_dir, "#{@pattern}.yml")
+      @words = YAML.load(File.read(file))
+      @unit = Math::PI * 2 / @words.length
+      @square = @words.length / 4
+    end
+
+    def intro(say_word)
+      @words.each.with_index do |w, i|
+        move_cursor(i)
+        draw_word(@cursor, @cursor % @square == 0)
+        draw_center_label(@cursor, @cursor % @square == 0)
+        Curses.refresh
+        say if say_word
+      end
+      move_cursor(0)
+    end
+
+    def move_cursor(index)
+      @cursor = index
+      if @cursor < 0
+        @cursor = @words.length - 1
+      elsif @cursor >= @words.length
+        @cursor = @cursor - @words.length
+      end
+    end
+
+    def get_key_input
+      Curses.noecho()
+      c = Curses.getch
+      Curses.echo()
+      @key = nil
+
+      if c == 'q'
+        @key = :quit
+        return
+      end
+
+      if @cursor.nil?
+        # First key pressed
+        @words.length.times {|i| draw_word(i, false) }
+        @cursor = 0
+        @last_cursor = nil
+        @key = :cursor
+        return
+      end
+
+      if c == 'j'
+        @key = :cursor
+        move_cursor(@cursor + 1)
+      elsif c == 'k'
+        @key = :cursor
+        move_cursor(@cursor - 1)
+      elsif DIRECT_KEYS.include?(c)
+        @key = :cursor
+        move_cursor(DIRECT_KEYS.index(c))
+      elsif c == ' '
+        @key = :dictionary
+      elsif c == 'c'
+        @key = :erase
+      elsif c == 'p'
+        @key = :play
+      elsif c == 'a'
+        @key = :say_all
+      elsif c == 'r'
+        @key = :reload
+      elsif c == 'i'
+        @key = :image
+      end
+    end
+
+    def init
+      load_words
+
+      Curses.clear()
+      Curses.curs_set(0)
+
+      @cursor = nil
+      @key = nil
+      @screen_mode = nil
+      @last_cursor = nil
+      @visible_words = []
+
+      intro(false)
+    end
+
+    def run
+      begin
+        Curses.init_screen
+        init
+
+        loop do
+          get_key_input
+          if @key.nil?
+            next
+          elsif @key == :quit
+            break
+          elsif @key == :erase
+            erase_all_words
+            next
+          elsif @key == :play
+            erase_all_words
+            intro(true)
+          elsif @key == :dictionary
+            if @screen_mode == :dictionary
+              @screen_mode = :circle
+              redraw_words
+              say
+            else
+              @screen_mode = :dictionary
+              draw_dictionary
+              say
+            end
+          elsif @key == :cursor
+            if @screen_mode == :dictionary
+              draw_dictionary
+              @visible_words[@cursor] = true
+            else
+              draw_moved_cursor
+            end
+            say
+            @last_cursor = @cursor
+          elsif @key == :say_all
+            say_all
+          elsif @key == :reload
+            init
+          elsif @key == :image
+            open_image
+          end
+        end
+      ensure
+        Curses.close_screen
+      end
+    end
+
+    def draw_moved_cursor
+      unless @last_cursor.nil?
+        draw_word(@last_cursor, false)
+      end
+
+      draw_word(@cursor, true)
+      draw_center_label(@cursor, false)
+      Curses.refresh
+    end
+
+    def draw_dictionary
+      Curses.clear()
+      Curses.setpos(5, 0)
+      Curses.addstr(%x{osx-dictionary #{Shellwords.shellescape(@words[@cursor])}})
+      Curses.refresh
+    end
+
+    def redraw_words
+      Curses.clear()
+      @visible_words.each.with_index do |visible, i|
+        draw_word(i, @cursor == i) if visible
+      end
+      draw_center_label(@cursor.to_i, false)
+      Curses.refresh
+    end
+
+    def erase_all_words
+      @cursor = -1
+      @last_cursor = nil
+      @visible_words = []
+      Curses.clear()
+      Curses.refresh
+      draw_center_label(0, false)
+    end
+
+    def draw_word(index, marker)
+      word = @words[index]
+      rad = index * @unit - Math::PI / 2
+
+      x = 32 * Math.cos(rad) + @o[0]
+      y = 16 * Math.sin(rad) + @o[1]
+
+      if marker
+        Curses.attron(Curses::A_REVERSE)
+      else
+        Curses.attroff(Curses::A_REVERSE)
+      end
+
+      Curses.setpos(y.to_i, x.to_i)
+      Curses.addstr(word)
+      Curses.attroff(Curses::A_REVERSE)
+
+      @visible_words[index] = true
+    end
+
+    def say
+      %x{say #{Shellwords.shellescape(@words[@cursor])}}
+    end
+
+    def say_all
+      text = ''
+      unit = @words.length / 4
+      unit = 4 if unit == 2
+
+      @words.each_with_index do |w, i|
+        text += w
+
+        if i != @words.length - 1
+          if i != 0 && (i + 1) % unit == 0
+            text += ', '
+          else
+            text += ' '
+          end
+        end
+      end
+      # puts text
+
+      # text = @words.join(' ')
+      %x{say #{Shellwords.shellescape(text)}}
+    end
+
+    def open_image
+      word = Shellwords.shellescape(@words[@cursor])
+      %x{open 'https://www.google.co.jp/search?q=#{word}&tbm=isch'}
+
+      # @words.each do |word|
+      #   word = Shellwords.shellescape(word)
+      #   %x{open 'https://www.google.co.jp/search?q=#{word}&tbm=isch'}
+      #   sleep 0.5
+      # end
+    end
+
+    def draw_center_label(index, marker)
+      if marker
+        Curses.attron(Curses::A_REVERSE)
+      else
+        Curses.attroff(Curses::A_REVERSE)
+      end
+
+      Curses.setpos(@o[1], @o[0])
+
+      key = DIRECT_KEYS[index]
+
+      # Curses.addstr("#{@pattern}:#{key}")
+      Curses.addstr("#{@pattern}")
+
+      Curses.attroff(Curses::A_REVERSE)
+    end
+  end
+end