mkamotsu

## .sumpwmrc
(in-package stumpwm)

(defcommand itsumono () ()
  "Start itumono with layout"
  (restore-from-file "~/.stumpwmrc.d/logbook.layout")
  (restore-window-placement-rules "~/.stumpwmrc.d/logbook.rule")
  (run-shell-command "firefox-bin")
  (run-shell-command "logbook")
  (run-shell-command "mikutter"))

## .stumpwmrc
;; -*-lisp-*-

(in-package :stumpwm)

(defmacro define-ror (name command class)
  `(defcommand ,name () ()
     ,(concatenate 'string
		   "Start " command
		   " unless it is already running, in which case focus it.")
     (run-or-raise ,command '(:class ,class))))

## init.el
(custom-set-variables
 '(inhibit-startup-screen t)
 '(initial-scratch-message nil))
(custom-set-faces)

(show-paren-mode t)

(load (expand-file-name "~/.quicklisp/slime-helper.el"))
(setq inferior-lisp-program "ccl")
(setq slime-net-coding-system 'utf-8-unix)

## init.el
(custom-set-variables
 '(custom-enabled-themes (quote (tsdh-dark)))
 '(inhibit-startup-screen t)
 '(initial-scratch-message nil))
(custom-set-faces)
(set-frame-font "VL Gothic-10")
(setq skk-kutouten-type 'en)
(setq-default tab-width 4
	      indent-tabs-mode nil)
(setq browse-url-browser-function 'browse-url-firefox)

## hello.c
#include <stdio.h>

int main(void) {
  printf("hello, world\n");
  return 0;
}

## init.el
;; 対応する括弧の強調表示
(show-paren-mode t)

;; Emacs24標準のパッケージマネージャ
;; 必要なパッケージをインストール
(require 'package)
(add-to-list 'package-archives
             '("melpa" . "http://melpa.milkbox.net/packages/") t)
(package-initialize)
(when (not package-archive-contents)

## argstring.cpp
#include <iostream>
#include <functional>
#include <sstream>

namespace my {
  std::string argstring(int argc, char *argv[]) {
    std::ostringstream oss;
    for (int i=1; i<argc; ++i)
      oss << argv[i] << ' ';
    return std::move(oss.str());

## hello.cgi
#!/bin/sh

echo "content-type: text/html"
echo ""
echo "<html>"
echo "<head>"
echo "<title>テスト</title>"
echo "</head>"
echo "<body>"
uname -a

## bdb.clj
(ns bdb.core
  (:require [clojure.java.io :as io])
  (:import (com.sleepycat.db DatabaseException
                             DatabaseConfig
                             DatabaseType
                             DatabaseEntry
                             Database
                             OperationStatus)
           (java.io FileNotFoundException
                    IOException))

## FizzBuzz.pl
use strict;
use warnings;

my $r;
my @s;

$r = 1;
LOOP:
    goto EXIT if ($r > 100);
    push @s, $r;
	(in-package stumpwm)

	(defcommand itsumono () ()
	"Start itumono with layout"
	(restore-from-file "~/.stumpwmrc.d/logbook.layout")
	(restore-window-placement-rules "~/.stumpwmrc.d/logbook.rule")
	(run-shell-command "firefox-bin")
	(run-shell-command "logbook")
	(run-shell-command "mikutter"))
	;; --lisp--

	(in-package :stumpwm)

	(defmacro define-ror (name command class)
	`(defcommand ,name () ()
	,(concatenate 'string
	"Start " command
	" unless it is already running, in which case focus it.")
	(run-or-raise ,command '(:class ,class))))
	(custom-set-variables
	'(inhibit-startup-screen t)
	'(initial-scratch-message nil))
	(custom-set-faces)

	(show-paren-mode t)

	(load (expand-file-name "~/.quicklisp/slime-helper.el"))
	(setq inferior-lisp-program "ccl")
	(setq slime-net-coding-system 'utf-8-unix)
	(custom-set-variables
	'(custom-enabled-themes (quote (tsdh-dark)))
	'(inhibit-startup-screen t)
	'(initial-scratch-message nil))
	(custom-set-faces)
	(set-frame-font "VL Gothic-10")
	(setq skk-kutouten-type 'en)
	(setq-default tab-width 4
	indent-tabs-mode nil)
	(setq browse-url-browser-function 'browse-url-firefox)
	#include <stdio.h>

	int main(void) {
	printf("hello, world\n");
	return 0;
	}
	;; 対応する括弧の強調表示
	(show-paren-mode t)

	;; Emacs24標準のパッケージマネージャ
	;; 必要なパッケージをインストール
	(require 'package)
	(add-to-list 'package-archives
	'("melpa" . "http://melpa.milkbox.net/packages/") t)
	(package-initialize)
	(when (not package-archive-contents)
	#include <iostream>
	#include <functional>
	#include <sstream>

	namespace my {
	std::string argstring(int argc, char *argv[]) {
	std::ostringstream oss;
	for (int i=1; i<argc; ++i)
	oss << argv[i] << ' ';
	return std::move(oss.str());
	#!/bin/sh

	echo "content-type: text/html"
	echo ""
	echo "<html>"
	echo "<head>"
	echo "<title>テスト</title>"
	echo "</head>"
	echo "<body>"
	uname -a
	(ns bdb.core
	(:require [clojure.java.io :as io])
	(:import (com.sleepycat.db DatabaseException
	DatabaseConfig
	DatabaseType
	DatabaseEntry
	Database
	OperationStatus)
	(java.io FileNotFoundException
	IOException))
	use strict;
	use warnings;

	my $r;
	my @s;

	$r = 1;
	LOOP:
	goto EXIT if ($r > 100);
	push @s, $r;