abicky

#!/usr/bin/env Rscript
#---------------------------------------------------------------------------
# command line tool for RUnit, which is a unit test framework for R
#
# Copyright 2012- Takeshi Arabiki
# License: MIT License (http://opensource.org/licenses/MIT)
#
# See also: http://d.hatena.ne.jp/a_bicky/20120109/1326074730 [in Japanese]
#---------------------------------------------------------------------------

abicky

#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
my (@keys, @values, $HELP, $TEST);
GetOptions('keys=i{,}' => \@keys, 'values=i{,}' => \@values, 'help' => \$HELP, 'test' => \$TEST);

sub usage {
    print STDERR <<USAGE;
usage: $0 --keys key_fields --values value_fields

abicky

--- ess-r-d.el.orig	2012-04-06 08:02:29.000000000 +0900
+++ ess-r-d.el	2012-04-14 22:20:21.000000000 +0900
@@ -511,10 +511,15 @@
   (when (and ess-current-process-name
 	     (get-process ess-current-process-name)
 	     (not (ess-process-get 'busy)))
-    (let* ((funname (or (and ess-eldoc-show-on-symbol ;; aggressive completion
-			     (ess-get-object-at-point))
-			(car (ess--funname.start))))
-	   (doc (cadr (ess-function-arguments funname))))

abicky

--- anything-R.el.orig	2012-04-15 18:44:10.000000000 +0900
+++ anything-R.el	2012-04-15 19:41:11.000000000 +0900
@@ -44,43 +44,76 @@
 (require 'anything)
 (require 'ess-site)
 
+(defvar anything-R-default-limit
+  anything-candidate-number-limit)
+
+(defvar anything-R-help-limit

abicky

;;; ~/.emacs.d/init.el
;;;---------------------------------
;;; 基本設定
;;;---------------------------------
;; 自分でダウンロードした *.el, *.elc のディレクトリ
(setq my-site-lisp (expand-file-name "~/.emacs.d/site-lisp"))
;; my-site-lisp を load-path に追加
(add-to-list 'load-path my-site-lisp)
;; 起動メッセージを表示しない
(setq inhibit-startup-message t)

abicky

diff --git auto-complete.el auto-complete.el
index 286c2d4..7a7b418 100644
--- auto-complete.el
+++ auto-complete.el
@@ -841,7 +841,8 @@ You can not use it in source definition like (prefix . `NAME')."
                           (eval prefix))))
             (if (and point
                      (integerp req)
-                     (< (- current point) req))
+                     (< (- current point)

abicky

/**
 * Copyright 2012- Takeshi Arabiki
 * License: MIT License (http://opensource.org/licenses/MIT)
 */

(function() {
    CanvasRenderingContext2D.prototype._transform = [1, 0, 0, 1, 0, 0];
    CanvasRenderingContext2D.prototype._transforms = [];

    CanvasRenderingContext2D.prototype.getTransform = function() {

abicky

(setq x-select-enable-clipboard t)
(defun copy-from-clipboard (text &optional rest)
  (let ((process-connection-type nil) proc)
    (if (eq system-type 'darwin)
        (setq proc (start-process "pbcopy" "*Messages*" "pbcopy"))
      (setq proc (start-process "xsel" "*Messages*" "xsel" "-b" "-i")))
    (process-send-string proc text)
    (process-send-eof proc)))

(defun paste-from-clipboard ()

abicky

#---------------------------------------------------------------------
# MessagePack for R (support only unpack)
#
# Copyright 2013- Takeshi Arabiki
# License: MIT License (http://opensource.org/licenses/MIT)
#
# > source("msgpack.R")
# > msgpack$unpack("\x93\x01\x02\x03")
# [1] 1 2 3
# > msgpack$unpack(c(charToRaw("\xCD\x01"), as.raw(0x00)))

abicky

import "js/web.jsx";

class History {
	function a() : void {
		History.b();
	}

	static function b() : void {
	}
}