Skip to content

Instantly share code, notes, and snippets.

Avatar

cxxxr cxxxr

  • Japan
View GitHub Profile
View fmt.ros
#!/bin/sh
#|-*- mode:lisp -*-|#
#| <Put a one-line description here>
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp (ql:quickload '(:lem-base :lem-lisp-syntax) :silent t)
)
View ts2cl.ros
#!/bin/sh
#|-*- mode:lisp -*-|#
#| <Put a one-line description here>
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp (ql:quickload '(:alexandria
:trivial-types
:cl-ppcre)
View lem-colors.lisp
(in-package :lem-user)
(define-command list-colors-display () ()
(let* ((buffer (get-buffer-create "*colors*"))
(p (buffer-point buffer)))
(switch-to-buffer buffer)
(erase-buffer buffer)
(dolist (color (reverse lem.term::*colors*))
(let ((attribute (make-attribute (lem.term::color-name color) nil)))
(with-point ((s p))
View download-slideshare.ros
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(defpackage :ros.script.download-slideshare.lisp.3663837159
(:use :cl))
(in-package :ros.script.download-slideshare.lisp.3663837159)
(ql:quickload :drakma :silent t)
View .nethackrc
OPTIONS=align:lawful
OPTIONS=boulder:8
OPTIONS=autopickup,pickup_types:$
OPTIONS=race:human
OPTIONS=role:v
OPTIONS=autodig
OPTIONS=!cmdassist
OPTIONS=color
OPTIONS=hilite_pet
OPTIONS=msg_window:f
View .Xresources
xterm*termName: xterm-256color
xterm*saveLines: 10000
xterm*metaSendsEscape: true
xterm*wideChars: true
xterm*forcePackedFont: false
xterm*ximFont: -misc-fixed-medium-r-normal--14-130-75-75-c-140-jisx0208.1983-0
xterm*faceName: DejaVu Sans Mono
xterm*faceSize: 10.5
xterm*faceNameDoublesize: Migu 1m
View .Xmodmap
keycode 102 = Control_L
keycode 100 = Control_L
clear Lock
add Control = Control_L
View .stumpwmrc
;; -*- mode: lisp; package: stumpwm-user -*-
(in-package :stumpwm-user)
(ql:quickload :stumpwm-helper-battery)
(setq *input-window-gravity* :center)
(setq *message-window-gravity* :center)
(set-border-color "#777777")
(set-msg-border-width 7)
View .replrc.lisp
(require :lem)
(push #'(lambda (x)
(if x
(lem:lem x)
(lem:lem))
t)
sb-ext:*ed-functions*)
(rl:bind-keyseq "\\C-x\\C-y"
View install-jnethack.sh
#!/bin/sh
# The MIT License (MIT)
#
# Copyright (c) 2015 bpyamasinn.
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell