peccu

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(ql:quickload :lem)
(defun main (&rest argv)
  (declare (ignorable argv))
  (if (car argv)
      (lem:lem (car argv))

peccu

Tasks

Task A

Sub Task A-1

Sub Task A-2

Task B

Sub Task B-1

peccu

(defun resume-helm-or-anything (arg)
  (interactive "p")
  (case arg
    (4 (call-interactively 'anything-resume))
    (t (call-interactively 'helm-resume))))
(global-set-key (kbd "C-.") 'resume-helm-or-anything)

peccu

元記事へ飛ぶブックマークレット

READMEにaタグ書けなかったので，ブログ記事のリンクか，下記のhtmlをどこかに置いてご利用ください．

• ブログ記事

自動で「元記事をよむ」ブックマークレットかブラウザ拡張がほしい → 作った - @peccul is peccu

対応したサイト

• fashionsnap.com
• Gunosy

peccu

#!/bin/bash

function collect-docset(){
    local query delimiter sql docPath awkscript

    # query keyword
    query=$1

    # delimiter
    delimiter=' <<===>> '

peccu

(require 'helm-dash)
(setq helm-dash-browser-func 'eww)

;; 適応させたいモードとdocsetを記入
(defun my-set-doctype-for-helm-dash ()
  (setq-local helm-dash-docsets
              (case major-mode
                (js2-mode '("JavaScript" "AngularJS" "NodeJS" "jQuery" "UnderscoreJS"))
                (php-mode '("PHP" "CakePHP"))
                (web-mode '("HTML" "Emmet" "AngularJS"))

peccu

> This is a Quix Command File
>
> For the syntax of this file, please refer to http://quixapp.com/syntax/
>

@Basic commands
@These are the most basic commands Quix offers, but possibly also the most powerful ones.
a       http://www.amazon.com/s/?field-keywords=%s							Amazon Search
d       http://www.google.com/search?q=define:%s							Google Define a word
dict	http://www.google.com/dictionary?langpair=en%7Cen&q=%s&hl=en&aq=f	Google Dictionary for a word

peccu

;;====================================
;;; 折り返し表示ON/OFF
;;====================================

(defun toggle-truncate-lines ()
  "折り返し表示をトグル動作します."
  (interactive)
  (if truncate-lines
      (progn ; 折り返さない
        (setq truncate-lines nil)

peccu

;; 以下のファイルに，自分なりの解釈をコメントしてみた by peccu
;; http://www.unixuser.org/~ysjj/emacs/lisp/keybind-config.el
;;; keybind-config --- keybind file

;; Copyright (C) 1999-2001 YAMASHITA Junji

;; Author: YAMASHITA Junji <ysjj@unixuser.org>
;; Keywords: config, keybind
;; Version: $Id: keybind-config.el,v 1.21 2002/02/04 08:18:42 ysjj Exp $

peccu

;; cf.http://d.hatena.ne.jp/grandVin/20080912/1221245359
;; どうもこれでできてるらしいけど，自分のためにも自作してみた

;; だいたい下のような設定になっていれば
;; `bm-repository'にbookmarkのリストが入っている
;; これをanythingで選択して，jumpできるようにする
;; (setq-default bm-buffer-persistence t)
;; (add-hook' after-init-hook 'bm-repository-load)
;; (add-hook 'find-file-hooks 'bm-buffer-restore)
;; (add-hook 'kill-buffer-hook 'bm-buffer-save)