add new utilities

addpkg

@@ -0,0 +1,5 @@
+#!/bin/sh
+
+for arg; do
+    echo $arg >> /etc/pkglst/pkgs.txt
+done

capsfix

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+setxkbmap -option caps:escape

slystart

@@ -0,0 +1,8 @@
+#!/bin/sh
+
+if [ `ls | grep *.asd` ]; then
+    sbcl --eval '(push (truename ".") asdf:*central-registry*)' \
+         --eval "(ql:quickload :$(basename `pwd`))" \
+         --eval '(ql:quickload :slynk)' \
+         --eval '(slynk:create-server)'
+fi

sync

@@ -0,0 +1,25 @@
+#!/bin/sh
+
+local_files=$(mktemp)
+remote_files=$(mktemp)
+
+ls ~/sync > $local_files
+ssh skoskapet "ls sync" > $remote_files
+
+local_files_missing=$(mktemp)
+diff $local_files $remote_files | grep "^> " | awk '{print $2}' > $local_files_missing
+
+remote_files_missing=$(mktemp)
+diff $local_files $remote_files | grep "^< " | awk '{print $2}' > $remote_files_missing
+
+while IFS='' read -r LINE || [ -n "${LINE}" ]; do
+    echo "${LINE} not found on skoskapet, uploading..."
+    scp ~/sync/"$LINE" skoskapet:~/sync
+done < $remote_files_missing
+
+while IFS='' read -r LINE || [ -n "${LINE}" ]; do
+    echo "missing file ${LINE}, downloading..."
+    scp skoskapet:~/sync/"$LINE" ~/sync
+done < $local_files_missing
+
+echo "all good!"

ttm

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+curl -Ffile=@"$1" https://ttm.sh