buzztaiki

;;; elmo-alias.el --- Alias Folder Interface for ELMO.

;; Copyright (C) 2008  Taiki SUGAWARA

;; Author: Taiki SUGAWARA <[email protected]>
;; Keywords: mail, net news

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)

buzztaiki

(defun wl-highlight-message-reverse-citation ()
  "Highlight citation prefix only, and unhighlight those messages."
  (goto-char (point-min))
  (while (not (eobp))
    (goto-char (or (next-single-property-change (point) 'face) (point-max)))
    (let ((face (get-text-property (point) 'face)))
      (when (memq face wl-highlight-citation-face-list)
	(put-text-property (point) (save-excursion (forward-line) (point)) 'face nil)
	(put-text-property (line-beginning-position) (point) 'face face)
	(forward-line)))))

buzztaiki

;; htmlize.el -- Convert buffer text and decorations to HTML.

;; Copyright (C) 1997,1998,1999,2000,2001,2002,2003,2005,2006 Hrvoje Niksic

;; Author: Hrvoje Niksic <[email protected]>
;; Modified by : Taiki SUGAWARA <[email protected]>
;; Keywords: hypermedia, extensions

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

buzztaiki

;;; anything-tags.el --- Yet another etags interface with anything.

;; Copyright (C) 2009  Taiki SUGAWARA

;; Author: Taiki SUGAWARA <[email protected]>
;; Keywords: anything, etags

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or

buzztaiki

(require 'deferred)
(require 'popup)

(defvar countdown-started nil)
(defvar countdown-wait 1000)
(defstruct countdown-tip buffer tip)

(defun countdown-start ()
  "Start countdown to 2011."
  (interactive)

buzztaiki

(require 'anything-match-plugin)
(require 'cl)

(defvar amp-glob-rules
  '(;; escape
    ("\\\\\\(.\\)" . (lambda () (match-string 1)))
    ;; "[a-z]"
    ("\\[[^\\]+\\]" . (lambda () (match-string 0)))
    ;; "{txt,c,h}"
    ("{\\([^}]+\\)}" . (lambda ()

buzztaiki

import java.util.*;
import java.io.*;

import sun.jvm.hotspot.debugger.*;
import sun.jvm.hotspot.memory.*;
import sun.jvm.hotspot.oops.*;
import sun.jvm.hotspot.runtime.*;
import sun.jvm.hotspot.tools.*;
import sun.jvm.hotspot.utilities.*;

buzztaiki

;; ex. M-x atnd-list-events google

(require 'pymacs)
(defun pymacs-send (pyobj method &rest args)
  (apply (pymacs-call "getattr" pyobj method) args))

(pymacs-load "urllib" "pyurllib-")

(defun atnd-json (keyword)
  (let ((url (format "http://api.atnd.org/events/?keyword=%s&format=json" keyword)))

buzztaiki

#!/bin/bash

tmp=$(mktemp)
/usr/bin/gvfs-ls "$@" 2> $tmp

cat $tmp | grep -e '^Error' && \
  /usr/bin/gvfs-mount $(eval "echo \${$#}") && \
  /usr/bin/gvfs-ls "$@"

rm $tmp

buzztaiki

import java.lang.management.GarbageCollectorMXBean;
import java.lang.management.ManagementFactory;
import java.util.Arrays;
import java.util.List;

// for x in '' -XX:+UseConcMarkSweepGC -XX:+UseParallelGC -XX:+UseParNewGC; do echo opt:$x; java $x GCMBean; done
public class GCMBean {
    public static void main(String[] args) throws Exception {
        List<GarbageCollectorMXBean> gcbeans = ManagementFactory.getGarbageCollectorMXBeans();
        // printGCBeans(gcbeans);