takumikinjo

;; /Applications/Google\ Chrome.app/Contents/MacOS/Google\ Chrome --remote-shell-port=9999

;; telnet localhost 9999

;; ChromeDevToolsHandshake

;; Destination:
;; Tool:DevToolsService
;; Content-Length:66
;;

takumikinjo

import bpy

mesh = bpy.context.active_object.data

uv_coord_list = []

bpy.ops.object.mode_set(mode='EDIT', toggle=False)
bpy.ops.mesh.quads_convert_to_tris()
bpy.ops.object.mode_set(mode='OBJECT', toggle=False)

takumikinjo

import bpy

mesh = bpy.context.active_object.data

uv_coord_list = []

bpy.ops.object.mode_set(mode='EDIT', toggle=False)
bpy.ops.mesh.quads_convert_to_tris()
bpy.ops.object.mode_set(mode='OBJECT', toggle=False)

takumikinjo

;;;;;;;;; かきかえのやつ
(import [android.widget TextView LinearLayout])

(. de.exterm.android.swank/handler
   (post (fn []
           (let [context de.exterm.android.swank/context
                 li (new LinearLayout context)]
             (.setOrientation li LinearLayout/VERTICAL)
             (let [tv (new TextView context)]
               (.setText tv "Hello, AAA")

takumikinjo

;;; elnode-org-export-as.el --- An example using elnode.el.

;; Copyright (C) 2011  Takumi KINJO

;; Author: Takumi KINJO <[email protected]>
;; Created: 5th May 2011
;; Version: 0
;; Keywords: lisp

;; This file is NOT part of GNU Emacs.

takumikinjo

#!/usr/bin/env perl

# Usage
#
#   cat <<EOF | ./org2doku
#   * heading
#
#     - item
#       - sub item
#

takumikinjo

#!/bin/bash
# needs ruby-1.9.2.
for i in `ls *.yml`; do
    j=${i%.yml}
    cat <<EOF > $j.xml
<?xml version="1.0" encoding="utf-8" ?>
<?xml-stylesheet href="rdf.xsl" type="text/xsl"?>
<rdf:RDF xmlns="http://purl.org/rss/1.0/"
         xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
         xmlns:dc="http://purl.org/dc/elements/1.1/"

takumikinjo

README.html

takumikinjo

(defun delete-file-kill-buffer ()
  "Do delete-file function then kill-buffer function"
  (interactive)
  (let ((buf (current-buffer))
        (filepath (buffer-file-name (current-buffer))))
    (when (and
           (not (null filepath))
           (file-exists-p filepath))
      (delete-file filepath))
    (kill-buffer buf)))

takumikinjo

(defmacro errhdlr (&rest body)
  "do body in condition-case"
  (declare (indent 0) (debug t))
  (list 'condition-case 'err (cons 'progn body)
        (list 'error
              (list 'message "%s"
                    (list 'error-message-string 'err)))
        (list 'file-error
              (list 'message "%s"
                    (list 'error-message-string 'err)))))