myuhe

(require 'pophint-config)

(pophint:defsource
  :name "org"
  :description "Part of `font-lock-comment-face' in line"
  :source '((shown . "org")
            (limit . 100)
            (method . ((lambda ()
                         (when (not (eq (pophint:get-current-direction) 'backward))
                           (loop while (re-search-forward (concat "^\\*+ " org-todo-regexp) nil t)

myuhe

hoge <- rep(1,2000)
fuga <- rep(2,2000)
foo <- rep(3,2000)
dat <- data.frame(hoge,fuga,foo)

myuhe

--- Spawns cmd if no client can be found matching properties
-- If such a client can be found, pop to first tag where it is visible, and give it focus
-- @param cmd the command to execute
-- @param properties a table of properties to match against clients. Possible entries: any properties of the client object
function run_or_raise(cmd, properties)
   local clients = client.get()
   local focused = awful.client.next(0)
   local findex = 0
   local matched_clients = {}
   local n = 0

myuhe

diff -r 3b663537cb3a .emacs.d/vendor/hiwin.el
--- a/.emacs.d/vendor/hiwin.el	水  3月 20 16:27:33 2013 +0900
+++ b/.emacs.d/vendor/hiwin.el	水  3月 20 16:54:02 2013 +0900
@@ -82,6 +82,8 @@
 (make-face 'hiwin-face)
 (set-face-attribute 'hiwin-face nil :background "gray25")
 
+(defvar hiwin-server-flag nil)
+
 (define-minor-mode hiwin-mode

myuhe

(global-set-key (kbd "C-c s") (lambda () 
                                     (interactive)
                                     (popwin:popup-buffer-tail "*scratch*")))

myuhe

# -- THEME AUTO-WRITTEN BY gtk-theme-switch2 DO NOT EDIT
include "/usr/share/themes/Clearlooks/gtk-2.0/gtkrc"

include "/home/yuhei/.gtkrc-2.0.mine"

# -- THEME AUTO-WRITTEN BY gtk-theme-switch2 DO NOT EDIT

myuhe

hogehoge

myuhe

(setq ess-R-object-popup-alist
      '((numeric    . "summary")
        (factor     . "table")
        (integer    . "summary")
        (lm         . "summary")
        (glm        . "summary")
        (other      . "str")))

myuhe

@@ -172,14 +172,9 @@
   (lambda (buf)
     (string-match "\\*\\(Help\\|info\\|w3m\\|WoMan\\)" (buffer-name buf)))
   "Retrun non-nil, if the buffer is a document buffer.")
-(defvar e2wm:c-blank-buffer
-      (let ((buf (get-buffer-create " *e2wm:blank*")))
-        (with-current-buffer buf
-          (setq buffer-read-only nil)
-          (buffer-disable-undo buf)
-          (erase-buffer)

myuhe

<?xml version="1.0"?>
<!DOCTYPE fontconfig SYSTEM "fonts.dtd">
<fontconfig>
  <match target="font">
    <edit name="embeddedbitmap" mode="assign">
      <bool>false</bool>
    </edit>
    <edit name="antialias" mode="assign">
      <bool>true</bool>
    </edit>