Skip to content

Instantly share code, notes, and snippets.

cxxxr cxxxr

  • Japan
Block or report user

Report or block cxxxr

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
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
You can’t perform that action at this time.