Skip to content

Instantly share code, notes, and snippets.

#include <stdio.h>
#include <stdlib.h>
int main(int argc, char *argv[]) {
if (0 < argc) {
printf("%d\n", main(-argc, argv));
return 0;
}
if (-argc - 1) {
@anekos
anekos / transset.vim
Created August 15, 2013 14:02
Linux の gVim の透過度を設定する
function! s:Transset(opacity)
call system('transset-df --id ' . v:windowid . ' ' . a:opacity)
endfunction
command! -nargs=1 Transset call <SID>Transset(<q-args>)
@anekos
anekos / arduino-kitchen-timer
Last active December 3, 2018 11:54
arduino nano のスリープ機能でキッチンタイマー
// tone.h Final Countdown melody https://forum.arduino.cc/index.php?topic=202387.0
#include "TM1637.h"
#include <avr/sleep.h>
#define BUZZER_PIN 12
#define WAKEUP_PIN 2
#define SUB_WAKEUP_PIN 3
#define NANA_SEG_CLK 10
@anekos
anekos / .gitconfig
Created November 3, 2018 08:01
Git cancel
cancel = !git commit --no-verify -a -m \"Temporary commit for cancel at `date`\" && git reset --hard HEAD~
@anekos
anekos / x-yaml-to-json.vim
Created November 2, 2018 14:26
自動で YAML に変換して書きだす Vim さん (*.x.yaml とすること)
" 自動で YAML に変換して書きだす (*.x.yaml とすること) {{{
function! s:yaml_to_json()
let l:from = expand('%')
let l:to = expand('%:r:r') . '.json'
let l:result = system('ruby -rjson -ryaml -e "puts(JSON.pretty_generate(YAML.load(ARGF.read)))" ' . shellescape(l:from) . ' > ' . shellescape(l:to))
if v:shell_error
echoerr printf("Failed to yaml_to_json: %d\n%s", v:shell_error, l:result)
endif
endfunction
@anekos
anekos / pg-teinen.rb
Created September 28, 2018 10:52
プログラマ 13619 歳定年
'35'.unpack('S')
@anekos
anekos / sketch.ino
Last active August 26, 2018 01:33
静電タッチキーボード TTP229用のコード
/**
* Original code: http://forum.hobbycomponents.com/viewtopic.php?f=73&t=1781
*
*
* This is an example of how to use the Hobby Components 16 key capacitive touch
* keypad (HCMODU0079). This example sketch will read the current state of the
* of the keypad and if a key is pressed output its key number to the serial port.
*
* The sketch assumes that the keypad is configured to 16 key active low mode
* by shorting pads P1-3 and P1-P4 together (see schematic or sport forum for more
@anekos
anekos / myGaps.hs
Created August 18, 2018 01:38
avoidStruts が上手くいかないので、強引にステータスバーの領域をあける
{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, DeriveDataTypeable, TypeSynonymInstances, PatternGuards #-}
module Anekos.Lib.MyGaps (
MyGaps(..),
myGaps
) where
import XMonad
import Graphics.X11 (Rectangle(..))
@anekos
anekos / scansnap-sound-alert.au3
Created June 22, 2013 16:15
ScanSnap ix500 で、スキャンの続きができるようになったら、音を鳴らす AutoIt スクリプト http://www.autoitscript.com/
While True
while ControlCommand("[CLASS:ScanSnap Manager GetImgClass]", "", "[CLASS:Button; INSTANCE:1]", "IsVisible") = 0
Sleep(250)
WEnd
SoundPlay(@WindowsDir & "\media\tada.wav")
; MsgBox(1, "Ready", "Ready")
@anekos
anekos / find-input-device
Created March 8, 2018 11:58
Tap (メリケンサック)キーボード用スクリプト
#!/bin/bash
set -euC
# exec 5> /tmp/xmosh/shell-script-debug.out
# BASH_XTRACEFD="5"
# PS4='$LINENO: '
# set -x
if [ "$#" -lt 1 ]