fukamachi

;; -*- Mode: Lisp; Syntax: Common-Lisp -*-

;;; Package Management
(in-package :cl-user)

(defpackage :hige
  (:use :cl
        :drakma
        :cl-ppcre)
  #+ABCL (:shadow :y-or-n-p)

fukamachi

;; 第1回 Scheme コードバトン
;;
;; ■ これは何か？
;;   Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール
;;
;;   (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。

fukamachi

(let ((default-directory (expand-file-name "~/Dropbox/home/.emacs.d")))
  (add-to-list 'load-path default-directory)
  (load (expand-file-name "~/Dropbox/home/.emacs.d/subdirs.el") t t t))

(if (file-exists-p (locate-library "init"))
  (load (locate-library "init") nil t nil))

shortsightedsid

;; CL-PDF Hello World

;;
;; Use ASDF to load the CL-PDF library
;;
(asdf:operate 'asdf:load-op 'cl-pdf)

;;
;; Function to generate a Hello World pdf file.
;; On calling this function, you should see a pdf file

fukamachi

;; anything-ari.el - Show animated Ari.

;; Copyright (C) 2010  Eitarow Fukamachi <[email protected]>

;; Author: Eitarow Fukamachi <[email protected]>
;; Twitter: http://twitter.com/nitro_idiot
;; Blog: http://e-arrows.sakura.ne.jp/
;;
;; Created: Dec 9, 2010
;; Version: 0.0.1

fukamachi

(defun group-by (pred list)
  (loop
    while list
    for cur = (pop list)
    collect
    (nreverse
      (loop with acc = (list cur)
            while list
            for x = (pop list)
            if (funcall pred cur x)

xach

;;;; scratch.lisp

(defpackage #:scratch
  (:use #:cl #:vecto)
  (:import-from #:zpb-ttf
                #:xmin
                #:xmax))

(in-package #:scratch)

fukamachi

#!/bin/sh
#
# Change the definition of CCL_DEFAULT_DIRECTORY below to refer to
# your Clozure CL installation directory.	 The lisp will use this
# environment variable to set up translations for the CCL: logical
# host.

# Any definition of CCL_DEFAULT_DIRECTORY already present in the
# environment takes precedence over definition made below.

yevgenko

!-------------------------------------------------------------------------------
! Xft settings
!-------------------------------------------------------------------------------

Xft.dpi:                    96
Xft.antialias:              false
Xft.rgba:                   rgb
Xft.hinting:                true
Xft.hintstyle:              hintslight

wojdyr

#!/usr/bin/python
"""\
A command-line utility that can (re)send all messages in an mbox file
to a specific email address, with options for controlling the rate at
which they are sent, etc.
"""

# I got this script from Robin Dunn a few years ago, see
# https://github.com/wojdyr/fityk/wiki/MigrationToGoogleGroups