電卓片手に

alias e="emacsclient -n"
# alias emacs="emacsclient -n" 
# alias vi="emacsclient -n" # これはどうなの。。。

## emacsclient をシームレスに使うための関数
## http://k-ui.jp/?p=243
function e(){
    echo "[$0] emacsclient -c -t $*";
    (emacsclient -c -t $* ||
        (echo "[$0] emacs --daemon"; emacs --daemon &&
            (echo "[$0] emacsclient -c -t $*"; emacsclient -c -t $*)) ||
        (echo "[$0] emacs $*"; emacs $*))
}
 
# ソケットの場所を環境変数に覚えてもらう
# emacs のバージョンによって少し場所が違うようなので、
# *** "/tmp" を要確認 ***
export USER_ID=`id -u`
export EMACS_TMP_DIR="/tmp/emacs$USER_ID"
export EMACS_SOCK="$EMACS_TMP_DIR/server"
 
## screen emacsclient をシームレスに使うための関数
function se(){
    if which emacsclient &&
        (echo "[$0] ls $EMACS_SOCK "; ls $EMACS_SOCK) ||
        (echo "[$0] emacs --daemon"; emacs --daemon)
    then
        echo "[$0] screen -t emacs emacsclient -t -c $*";
        screen -t emacs emacsclient -t -c $*
    elif which emacs
    then
        echo "[$0] screen emacs -t -c $*";
        screen emacs -t -c $*
    fi
 
}
 
##  $EMACS_TMP_DIR が無いとき
if ! [ -d $EMACS_TMP_DIR ]; then
 
   #（socket 使わないバージョン、毎回emacs--daemonしてる。。。）
    function se(){
        if which emacsclient
        then
            echo "[$0] emacs --daemon"
            emacs --daemon
            echo "[$0] screen -t emacs emacsclient -t -c $*"
            screen -t emacs emacsclient -t -c $*
        elif which emacs
        then
            echo "[$0] screen emacs -t -c $*";
            screen emacs -t -c $*
        fi
    }
fi

;; emacsclient でアクセスした時の文字コード設定
;; バグ: "emacsclient -c" で起動すると実行されない
(add-hook 'server-visit-hook
          (lambda ()
            (set-terminal-coding-system 'utf-8)
            (set-keyboard-coding-system 'utf-8)
            ))

(require 'weblogger nil t) ;; weblogger.el がないときロードしない
(if (featurep 'weblogger) ;; weblogger.el があるときだけ以下を実行する
    (let ()
      ;; (global-set-key "\C-cbs" 'weblogger-start-entry) ;; C-c b s で新規作成
 
      ;; C-x C-s を記事の保存だけする
      (define-key weblogger-entry-mode-map "\C-x\C-s" 'weblogger-save-entry)
 
      ;; C-c C-c で記事の保存 → 公開をする。また公開中の記事は、非公開になる。
      (define-key weblogger-entry-mode-map "\C-c\C-c" 'weblogger-publish-entry)
 
      ;; weblogger-setup-weblog で自動生成されたユーザ情報
      (custom-set-variables
       '(weblogger-config-alist
	 (quote (("default" ;; ここの "default" は、下の起動オプション用関数に使う。人に依っては別の文字で与えてるかもしれない
		  ("user" . "k-ui")
		  ("pass" . "パスワードだよ") ;; "pass" を設定することでパスワードの入力せずに起動できる
		  ("server-url" . "http://k-ui.jp/xmlrpc/")
		  ("weblog" . "1"))
		 ))))
 
      ;; コマンドからの起動オプション用関数
      (defun kui-weblogger-edit ()
	"Start weblogger-mode"
	(interactive)
	(weblogger-select-configuration "default") ;; "default" 部分は適切な文字に置き換え
	(weblogger-fetch-entries))
 
      ;; コマンドからの起動オプション用関数
      (defun kui-weblogger-create ()
	"Start weblogger-mode"
	(interactive)
	(weblogger-select-configuration "default") ;; "default" 部分は適切な文字に置き換え
	(weblogger-start-entry))))

alias wordpress="emacs -f kui-weblogger-edit"
alias wordpress="emacs -f kui-weblogger-create"

$ java -version
java version "1.6.0_18"
OpenJDK Runtime Environment (IcedTea6 1.8) (6b18-1.8-0ubuntu1)
OpenJDK Client VM (build 14.0-b16, mixed mode, sharing)
 
$ ant -version
Apache Ant version 1.8.1 compiled on April 30 2010
 
$ java org.apache.lucene.demo.IndexFiles src
Exception in thread "main" java.lang.NoClassDefFoundError: org/apache/lucene/demo/IndexFiles
Caused by: java.lang.ClassNotFoundException: org.apache.lucene.demo.IndexFiles
        at java.net.URLClassLoader$1.run(URLClassLoader.java:217)
        at java.security.AccessController.doPrivileged(Native Method)
        at java.net.URLClassLoader.findClass(URLClassLoader.java:205)
        at java.lang.ClassLoader.loadClass(ClassLoader.java:321)
        at sun.misc.Launcher$AppClassLoader.loadClass(Launcher.java:294)
        at java.lang.ClassLoader.loadClass(ClassLoader.java:266)
        at java.lang.ClassLoader.loadClassInternal(ClassLoader.java:334)
Could not find the main class: org.apache.lucene.demo.IndexFiles. Program will exit.

      <javac
        srcdir="@{srcdir}"
        destdir="@{destdir}"
        deprecation="off"
        includeAntRuntime="true" ← ここだよ！！！
        debug="on"
        source="${javac.source}"
        target="${javac.target}">
        <nested/>
      </javac>

$ java -cp /home/kui/lucene/lucene-3.0.1/lucene-core-3.0.1.jar:/home/kui/lucene/lucene-3.0.1/lucene-demos-3.0.1.jar  org.apache.lucene.demo.IndexFiles src

    [javac] /home/k-ui/lucene/lucene-3.0.1/build.xml:225: warning: 'includeantruntime' was not set, defaulting to build.sysclasspath=last; set to false for repeatable builds

$ unzip lol-1.4-fx.xpi 
Archive:  lol-1.4-fx.xpi
   creating: chrome/
  inflating: chrome/LoL.jar          
  inflating: chrome.manifest         
   creating: defaults/
   creating: defaults/preferences/
  inflating: defaults/preferences/prefs.js  
  inflating: install.rdf

$ cd chrome 
$ unzip LoL.jar 
Archive:  LoL.jar
 extracting: content/bindings.xml    
 extracting: content/settings.css    
 extracting: content/overlay.xul     
 extracting: content/preferences.xul  
 extracting: content/overlay.js      
 extracting: locale/fr-FR/hah.dtd    
 extracting: locale/it-IT/hah.dtd    
 extracting: locale/en-US/hah.dtd    
 extracting: locale/fi-FI/hah.dtd    
 extracting: locale/hu-HU/hah.dtd    
 extracting: skin/icon.png

$ emacs content/overlay.js

                                  evt.initMouseEvent('mousedown', true, true, view, 1, x+1, y+1, 0, 0,
                                                                         event.ctrlKey, event.altKey, event.shiftKey, event.metaKey, 0, null);
                                  elem.dispatchEvent(evt);
 
                                  var evt = doc.createEvent('MouseEvents');
                                  evt.initMouseEvent('click', true, true, view, 1, x+1, y+1, 0, 0,
                                                                         event.ctrlKey, event.altKey, event.shiftKey, event.metaKey, 0, null);

                                 var evt = doc.createEvent('MouseEvents');
                                  evt.initMouseEvent('mousedown', true, true, view, 1, x+1, y+1, 0, 0,
                                                                         event.ctrlKey, event.altKey, event.shiftKey, event.ctrlKey, 0, null);
 
elem.dispatchEvent(evt);                                                                                 
 
                                  var evt = doc.createEvent('MouseEvents');
                                  evt.initMouseEvent('click', true, true, view, 1, x+1, y+1, 0, 0,
                                                                         event.ctrlKey, event.altKey, event.shiftKey, event.ctrlKey, 0, null);
                                  elem.dispatchEvent(evt);

$ zip -r LoL.jar content locale skin 
  adding: content/ (stored 0%)
  adding: content/bindings.xml (deflated 78%)
  adding: content/overlay.js (deflated 75%)
  adding: content/overlay.js~ (deflated 75%)
  adding: content/overlay.xul (deflated 65%)
  adding: content/preferences.xul (deflated 74%)
  adding: content/settings.css (deflated 35%)
  adding: locale/ (stored 0%)
  adding: locale/en-US/ (stored 0%)
  adding: locale/en-US/hah.dtd (deflated 54%)
  adding: locale/fi-FI/ (stored 0%)
  adding: locale/fi-FI/hah.dtd (deflated 55%)
  adding: locale/fr-FR/ (stored 0%)
  adding: locale/fr-FR/hah.dtd (deflated 55%)
  adding: locale/hu-HU/ (stored 0%)
  adding: locale/hu-HU/hah.dtd (deflated 54%)
  adding: locale/it-IT/ (stored 0%)
  adding: locale/it-IT/hah.dtd (deflated 54%)
  adding: skin/ (stored 0%)
  adding: skin/icon.png (deflated 0%)
$ cd ..
$ zip -r mylol.xpi chrome/LoL.jar chrome.manifest defaults install.rdf
  adding: chrome/LoL.jar (deflated 23%)
  adding: chrome.manifest (deflated 63%)
  adding: defaults/ (stored 0%)
  adding: defaults/preferences/ (stored 0%)
  adding: defaults/preferences/prefs.js (deflated 60%)
  adding: install.rdf (deflated 63%)

require "net/http"
require "pipelinig_http.rb" # Net::HTTP の拡張
 
def main
 
  host = 'b.hatena.ne.jp'
  paths = ['/','/hotentry', '/news', '/entrylist?sort=hot']
 
  Net::HTTP.start(host) do |http|
 
    # リクエストの送信
    paths.each do |path|
      req = Net::HTTP::Head.new(path)
      r_print req
      http.just_request(req)
    end
 
    # レスポンスの取得
    while res = http.fetch_response
      r_print res
    end
 
  end
 
end
 
# リクエストとレスポンスのヘッダを出力する
def r_print(r)
  puts "##### #{r.class.to_s} #####"
    r.each{|k,v| puts "%15s: %s" % [k,v]}
  puts ""
end
 
main if __FILE__ == $0

class Net::HTTP
 
  def just_request(req, body=nil)
 
    @req_cue ||= []
    @req_cue << req
 
    unless started?
      start {
        req['connection'] ||= 'close'
        return request(req, body, &block)
      }
    end
    if proxy_user()
      unless use_ssl?
        req.proxy_basic_auth proxy_user(), proxy_pass()
      end
    end
 
    req.set_body_internal body
    begin_transport(req)
 
    req.exec(@socket, @curr_http_version, edit_path(req.path))
 
  end
 
  def fetch_response
 
    if @req_cue.nil? or @req_cue.empty?
      end_transport(@last_request, @last_response)
      return nil
    end
 
    @last_request = (req = @req_cue.shift)
 
    begin
      @last_response = (res = Net::HTTPResponse.read_new(@socket))
    end while res.kind_of?(Net::HTTPContinue)
 
    res.reading_body(@socket, req.response_body_permitted?) {
      yield res if block_given?
    }
 
    res
  end
 
end

##### Net::HTTP::Head #####
         accept: */*
 
##### Net::HTTP::Head #####
         accept: */*
 
##### Net::HTTP::Head #####
         accept: */*
 
##### Net::HTTP::Head #####
         accept: */*
 
##### Net::HTTPOK #####
           vary: Accept-Encoding
            via: 1.0 squid.hatena.ne.jp:3128 (squid/2.6.STABLE14)
   content-type: text/html; charset=utf-8
           date: Sat, 25 Oct 2008 20:01:48 GMT
         server: Apache/2.2.3 (CentOS)
     set-cookie: b=$1$edWQVbYY$4h0bIVtR7RvBTX3ifNcOF1; path=/; expires=Fri, 20-Oct-28 20:01:48 GMT; domain=.hatena.ne.jp
 content-length: 63501
            age: 588
    x-framework: Hatena/2.1
 
##### Net::HTTPOK #####
           vary: Accept-Encoding
            via: 1.0 squid.hatena.ne.jp:3128 (squid/2.6.STABLE14)
   content-type: text/html; charset=utf-8
           date: Sat, 25 Oct 2008 20:01:48 GMT
         server: Apache/2.2.3 (CentOS)
     set-cookie: b=$1$qYZ0MfS0$aCDFrIOKpp8HayJftFjt/1; path=/; expires=Fri, 20-Oct-28 20:01:48 GMT; domain=.hatena.ne.jp
 content-length: 103301
            age: 1163
    x-framework: Hatena/2.1
 
##### Net::HTTPOK #####
           vary: Accept-Encoding
            via: 1.0 squid.hatena.ne.jp:3128 (squid/2.6.STABLE14)
   content-type: text/html; charset=utf-8
           date: Sat, 25 Oct 2008 20:01:48 GMT
         server: Apache/2.2.3 (CentOS)
     set-cookie: b=$1$00vjav3o$InTi7h2XFjwllpcFJLnv60; path=/; expires=Fri, 20-Oct-28 20:01:48 GMT; domain=.hatena.ne.jp
 content-length: 52390
            age: 2259
    x-framework: Hatena/2.1
 
##### Net::HTTPOK #####
           vary: Accept-Encoding
            via: 1.0 squid.hatena.ne.jp:3128 (squid/2.6.STABLE14)
   content-type: text/html; charset=utf-8
           date: Sat, 25 Oct 2008 20:01:48 GMT
         server: Apache/2.2.3 (CentOS)
     set-cookie: b=$1$IZcB88yy$I2jjsa5SWRPLEBT4saLNI.; path=/; expires=Fri, 20-Oct-28 20:01:48 GMT; domain=.hatena.ne.jp
 content-length: 103620
            age: 2203
    x-framework: Hatena/2.1

$ sudo yum install mpg123

Loaded plugins: refresh-packagekit
Warning: No matches found for: mpg123
No Matches found
$ sudo yum search 123
Loaded plugins: refresh-packagekit
================================= Matched: 123 =================================
flac123.i386 : Command-line program for playing FLAC audio files
pastebin.noarch : A collaborative debugging tool
vorbisgain.i386 : Adds tags to Ogg Vorbis files to adjust the volume

$ sudo yum install arts portaudio
$ sudo rpm -i 'ftp://ftp.pbone.net/mirror/atrpms.net/f9-i386/atrpms/stable/mpg123-1.5.1-8.fc9.i386.rpm'
$ mpg123 'http://www.nullsleep.com/mp3/8bp077-01-nullsleep-her_lazer_light_eyes.mp3'

#! ruby -Ku
 
# last.fm 上でのアカウント名とパスワード
user_name = 'USER_NAME'
password = 'PASSWORD'
 
# 内部ではハンドシェイクをしている
lastfm = LastfmRadio.new(user_name, password)
 
# electoronic タグラジオに合わせる
lastfm.adjust_station('tag', 'electoronic')
 
loop do
 
  # トラック情報の取得
  # クラス Track のインスタンスの Array を返す
  tracks = lastfm.get_tracks
 
  tracks.each do |track|
 
    # トラック情報の表示
    puts "-"*75
    puts "artist: #{track.artist}"
    puts "title:  #{track.title}"
    puts "album:  #{track.album}"
    puts "length: #{track.length/1000}[sec]" 
 
    # mpg123 を使って現在のトラック再生
    `mpg123 -q #{track.location}`
  end
 
end

require "lastfmradio"
 
hash = {
  :user_name => "SOME_USER",
  :password => "PASSWORD",
  :station => ["tag","electoro"], # adjust_station の引数と同じ
  :min_num_tracks => 2,  # 2 個以上のトラックを必ず取得(optional)
  #:debug => true # デバグモード(optional)
}
 
loop do
 
  # ハンドシェイク、局の選択、トラックの取得をする
  # 二回め以降は、同じユーザ名・局の場合は、ハンドシェイク、局の選択はしない。
  tracks = LastfmRadio.get_tracks(hash)
 
  tracks.each do |track|
 
    puts "-"*25 + " " + Time.now.to_s + " " + "-"*25
    puts "artist: #{track.artist}"
    puts "title:  #{track.title}"
    puts "album:  #{track.album}"
    puts "length: #{track.length/1000}[sec]"
 
    `mpg123 -q #{track.location}`
  end
end