Basic functional references with pairs.
data FRef a b = FRef
{ get :: a -> b
, set :: b -> a -> a
}
fstF :: FRef (x, y) x
fstF = FRef
Section "InputClass" | |
Identifier "Trackpoint Wheel Emulation" | |
MatchProduct "TPPS/2 IBM TrackPoint|DualPoint Stick|Synaptics Inc. Composite TouchPad / TrackPoint|ThinkPad USB Keyboard with TrackPoint|USB Trackpoint pointing device|Composite TouchPad / TrackPoint" | |
MatchDevicePath "/dev/input/event*" | |
Option "EmulateWheel" "true" | |
Option "EmulateWheelButton" "2" | |
Option "Emulate3Buttons" "false" | |
Option "XAxisMapping" "6 7" | |
Option "YAxisMapping" "4 5" | |
EndSection |
# statusbar | |
while true; do | |
xsetroot -name "$( statusbar )" | |
sleep 1m # Update time every minute | |
done & | |
# settings | |
xset -b | |
xrdb -merge ~/.XResources | |
xsetroot -solid "#002b36" |
;; Visual stuff | |
(menu-bar-mode 0) | |
(tool-bar-mode 0) | |
(scroll-bar-mode 0) | |
(setq inhibit-startup-message t) | |
(global-linum-mode t) | |
(setq linum-format " %d ") | |
(set-window-fringes nil 0 0) | |
(set-fringe-mode 0) |
(* simple lisp interpreter *) | |
type sym = string | |
datatype exp = Sym of sym | |
| List of exp list | |
| Num of int | |
| Str of string | |
| Bool of bool | |
| Lam of (sym list) * ((sym * exp) list) * exp |
Basic functional references with pairs.
data FRef a b = FRef
{ get :: a -> b
, set :: b -> a -> a
}
fstF :: FRef (x, y) x
fstF = FRef
<?xml version="1.0"?> | |
<!DOCTYPE fontconfig SYSTEM "fonts.dtd"> | |
<!-- /etc/fonts/fonts.conf file to configure system font access --> | |
<fontconfig> | |
<!-- | |
DO NOT EDIT THIS FILE. | |
IT WILL BE REPLACED WHEN FONTCONFIG IS UPDATED. | |
LOCAL CHANGES BELONG IN 'local.conf'. |
sudo apt-get install xsensor |