I hereby claim:
- I am juergenhoetzel on github.
- I am juergenhoetzel (https://keybase.io/juergenhoetzel) on keybase.
- I have a public key whose fingerprint is 355B DB97 ED47 24E6 B3A4 50E7 A3D9 562A 5898 74AB
To claim this, I am signing this object:
package main | |
import ( | |
"bytes" | |
"encoding/binary" | |
"fmt" | |
"unicode/utf16" | |
) | |
func DecodeUtf16(b []byte, order binary.ByteOrder) (string, error) { |
user=juergenhoetzel | |
while curl -s "https://api.github.com/users/$user/starred?per_page=100&page=${page:-1}" \ | |
|jq -r -e '.[].full_name' && [[ ${PIPESTATUS[1]} != 4 ]]; do | |
let page++ | |
done |
$user = "juergenhoetzel" | |
$p = 1 | |
do { | |
$full_names = Invoke-RestMethod "https://api.github.com/users/$user/starred?per_page=100&page=$p" | |
$full_names.ForEach({$_.full_name}) | |
$p++ | |
} while ($full_names.Length -gt 0) |
// Encodes Base64 | |
#include <openssl/bio.h> | |
#include <openssl/buffer.h> | |
#include <openssl/evp.h> | |
#include <stdint.h> | |
// Decodes Base64 | |
#include <assert.h> | |
#include <openssl/bio.h> | |
#include <openssl/evp.h> | |
#include <stdint.h> |
(defun go-packages-find () | |
(sort | |
(delete-dups | |
(cl-mapcan (lambda (topdir) | |
(let ((pkgdir (concat topdir "/pkg"))) | |
(mapcar (lambda (file) | |
(let ((sub (substring file 0 -2))) | |
(mapconcat #'identity (cdr (split-string sub "/")) "/"))) | |
(split-string (shell-command-to-string | |
(format "find \"%s\" -not -path \"%s/tool*\" -not -path \"%s/obj/*\" -name \"*.a\" -printf \"%%P\\n\"" |
(require 'cl) | |
(defun rotate-left (l) (append (cdr l) (list (car l)))) | |
(defun rotate-windows () | |
(let ((start-positions (rotate-left (mapcar 'window-start (window-list)))) | |
(buffers (rotate-left (mapcar 'window-buffer (window-list))))) | |
(mapcar* (lambda (window buffer pos) | |
(set-window-buffer window buffer) | |
(set-window-start window pos)) | |
(window-list) |
LocalCommand echo -ne "\033]0;"%r@%h"\007" | |
PermitLocalCommand yes |
# emojify completion -*- shell-script -*- | |
_emojify_complte(){ | |
local cur | |
_get_comp_words_by_ref -n : cur | |
COMPREPLY=( $(compgen -W "${_emojis[*]}" -- ${cur}) ) | |
__ltrim_colon_completions "$cur" | |
} | |
# sanity checks |
I hereby claim:
To claim this, I am signing this object:
(defn get-user [handle] | |
(sql/with-connection db | |
(sql/with-query-results rs ["select * from users where handle=?" handle] (first rs)))) |