Skip to content

Instantly share code, notes, and snippets.

View gongo's full-sized avatar

Wataru MIYAGUNI gongo

174 followers · 100 following
View GitHub Profile
@gongo
gongo / gist:4735603
Last active December 12, 2015 07:18
;; M-x package-install deferred
(require 'deferred)
;;
;; 制限時間内(LIMIT) に生成した乱数が THRESHOLD を越えれば "success!",
;; タイムアウトした場合は "timeout..." と表示されます。
;;
;; 乱数生成の間隔は INTERVAL です。
;;
@gongo
gongo / airplay-video-server.el
Last active December 12, 2015 04:08
simple-httpd に Range Requests and Partial Responses をつけてみた
;; -*- coding: utf-8; lexical-binding: t -*-
;;
;; Usage:
;;
;; 1. Start streaming daemon at command line.
;;
;; $ emacs -Q --daemon=hoge -l "/path/to/simple-httpd.el" -l airplay-video-server.el
;;
;; 2. Start streaming from client emacs.
;;
@gongo
gongo / gist:4655484
Created January 28, 2013 13:27
AirPlay Protocol ? で使われてるメジャーなのかどうかわからない text/parameters を parse するの雰囲気で書いたけどもっと何かあるだろって感じになった。
(defun airplay/protocol:parse-text-parameters ()
"\
Parse string in current buffer.
Returns the text/parameters list.
eg.
(buffer-string)
;; => \"duration: 83.124794\\nposition: 14.467000\\n\"
@gongo
gongo / gist:4554676
Created January 17, 2013 08:58
browse "_airplay._tcp" service
(require 'zeroconf)
(zeroconf-init nil) ;; search at .local
(dolist (s (zeroconf-list-services "_airplay._tcp"))
(message (format "host:%s port:%s"
(zeroconf-service-address s)
(zeroconf-service-port s))))
;; => host:xxxx::xxxx:xxxx:xxxx:xxxx port:80
;; => host:xxx.xxx.xxx.xxx port:80
@gongo
gongo / find-appletv.el
Last active December 11, 2015 04:49
AppleTV の IP アドレスを検出する。LAN 内に複数 AppleTV ある時の動作はわかりません。OSX 10.8 & Emacs 24.2 、及び Ubuntu 12.04 & Emacs 23.2 で動作確認 http://gongo.hatenablog.com/entry/2013/01/17/004306
(require 'dns)
(with-temp-buffer
(let ((process (make-network-process :name "mdns"
:coding 'binary
:buffer (current-buffer)
:host "224.0.0.251"
:service 5353
:type 'datagram))
(send-text (dns-write
@gongo
gongo / gist:4543447
Last active December 11, 2015 04:09
;; ~/*.org に対して ORGMODE-Markdown を適用していく
(let ((exporter (assoc "Markdown" org-generic-alist))
bufname)
(if nil (error "ORGMODE-Markdown is not loaded.")
(flet ((read-char-exclusive () (plist-get (cdr exporter) :key-binding)))
(dolist (orgfile (directory-files "~" t "\\.org$"))
(setq bufname (find-file-noselect orgfile))
(with-current-buffer bufname
(org-export-generic nil))
(kill-buffer bufname)))))
@gongo
gongo / gist:4459812
Last active December 10, 2015 16:18
class String
#
# Convert ISBN-10 to ISBN-13
#
# http://www.infonet.co.jp/ueyama/ip/glossary/isbn.html
# http://en.wikipedia.org/wiki/Check_digit#ISBN_13
#
# @return [String] String as ISBN-13 format
#
def toISBN13
@gongo
gongo / gist:4213425
Created December 5, 2012 07:32
mu4e の headers view で region 指定の refile を行った際、最初のメールの移動先が後方のメールにまで反映されるのを防ぐ感じの修正
--- mu4e-mark.el.orig 2012-12-05 16:29:48.410403140 +0900
+++ mu4e-mark.el 2012-12-05 16:31:16.450407255 +0900
@@ -189,6 +189,8 @@
(let ((cant-go-further) (eor (region-end)))
(goto-char (region-beginning))
(while (and (<= (point) eor) (not cant-go-further))
+ (when (eq mark 'refile)
+ (setq target (mu4e~mark-get-target mark target)))
(mu4e-mark-at-point mark target)
(setq cant-go-further (not (mu4e-headers-next))))))))
@gongo
gongo / gist:4211951
Created December 5, 2012 03:34
「リングの上でプレイヤーが各種ポーズを取ったら対応するメソッドを実行する」みたいなことをやってるコードです (with JavaFX)
Ring ring = new Ring();
ring.setOnMusclePoseDetected(new EventHandler<MusleEvent>() {
@Override
protected void handler(MuscleEvent event) {
switch(event.pose) {
case: NEXT:
next();
break;
case: PREV;
prev();
@gongo
gongo / speakerdeck.cmd.js
Created December 5, 2012 02:02
OpenPNE ver2 用 cmd プラグイン
/*
* speakerdeck.com.js
*
* OpenPNE の日記に Speakerdeck の Embed を貼り付けて表示する
*
* @auther Kazuma
* @version 0.01
*
*/
function url2cmd(url) {