URL: https://linuxfr.org/users/omc/journaux/taptempo-en-emacs-lisp
Title: TapTempo en emacs lisp
Authors: omc
Date: 2018年03月12日T11:36:17+01:00
License: CC By-SA
Tags: taptempo et elisp
Score: 15
Le portage de TapTempo en emacs lisp est idéal pour se muscler les doigts ! 
Battez la mesure sous votre éditeur préféré à coup `C-c C-s` et vous aurez votre bpm dans le mini-buffer.
À rajouter d'urgence dans votre `.emacs`
```lisp
(setq t0 0)
(setq array (list))
(defun sum(list) 
 (if (null list)
 0
 (+ 
 (first list) 
 (sum (rest list))
 ) 
 ) 
 )
(defun tap ()
 "Record a tap"
 (interactive)
 (setq t1 (float-time()))
 (setq delta (- t1 t0))
 (setq freq (/ 1 delta))
 (setq bpm (* 60 freq))
 (push bpm array)
 (setq res (/ (sum array) (length array)))
 (message "BPM %S" res)
 (setq t0 t1))
(global-set-key "\C-x\C-s" 'tap)
```
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/users/omc/journaux/taptempo-en-emacs-lisp.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/users/omc/journaux/taptempo-en-emacs-lisp.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>