Skip to content

Instantly share code, notes, and snippets.

Avatar
🎧

KOBAYASHI Shigeru kosh04

🎧
View GitHub Profile
@kosh04
kosh04 / miss-ueno.ini
Created Jul 23, 2019
「上野さんは不器用」全12話チャプター
View miss-ueno.ini
;FFMETADATA1
title=上野さんは不器用
[CHAPTER]
TIMEBASE=1/1000
START=0
END=686200
title=第1話 実験その1「ロッカくん」/実験その2「クマタンダー2号」
[CHAPTER]
@kosh04
kosh04 / wol.lsp
Created Jul 13, 2019
Wake on LAN
View wol.lsp
#!/usr/bin/env newlisp
;; Wake-on-LAN
(define (usage)
(println "Usage: wol.lsp <IP address> <MAC address>"))
;; Convert MAC address to List format.
;; e.g."EE:EE:EE:00:00:01" to (0xEE 0xEE 0xEE 0x00 0x00 0x01)
(define (mac2list mac)
;; XX-XX-XX-XX-XX-XX
@kosh04
kosh04 / emacs.mk
Last active Mar 26, 2020
Simple makefile for build Emacs
View emacs.mk
# Build Emacs Recipe
usage = Usage: make -f $(notdir $(MAKEFILE_LIST)) [EMACS=${EMACS}] [PREFIX=${PREFIX}]
PREFIX?=${HOME}/.local
EMACS?=emacs-26.3
EMACS_ARCHIVE=${EMACS}.tar.xz
EMACS_ARCHIVE_URL=http://ftpmirror.gnu.org/emacs/${EMACS_ARCHIVE}
@kosh04
kosh04 / .gitignore
Last active Oct 30, 2020
Chrome Cookies Decrypter
@kosh04
kosh04 / rust-play.sh
Created Feb 6, 2018
Rust playground command-line tool (simple)
View rust-play.sh
#!/bin/sh
set -eu
usage="usage: $0 [execute|compile] FILENAME"
url=https://play.rust-lang.org/${1?${usage}}
code=$(cat ${2?${usage}})
send() {
curl -s -X POST -H "Content-Type: application/json" -d @- ${1}
}
@kosh04
kosh04 / build.bat
Last active Aug 2, 2016
Windows用irony-serverをビルドする
View build.bat
@echo off
setlocal
set LLVM_ROOT=C:\opt\LLVM
set PATH=%PATH%;C:\MinGW64\bin
set PATH=%PATH%;%LLVM_ROOT%\bin
set PATH=%PATH%;C:\opt\cmake\bin
set PATH=%PATH%;%HOME%\.emacs.d\bin
@kosh04
kosh04 / html5-video.asciidoc
Last active Feb 7, 2016
Markdown(gfm)で動画ファイルを再生してみたかった
View html5-video.asciidoc

audio tag

Your browser does not support the audio tag.

video tag

Your browser does not support the video tag.
@kosh04
kosh04 / listup-el.sh
Last active Nov 21, 2020
init.el読書会のリクエスト用ストック(気が向いたら追加する)
View listup-el.sh
#!/bin/sh
set -eu
# 指定したディレクトリ以下の elisp 行数を数えるスクリプト
usage="Usage: $0 DIRECTORY [IGNORE_PATTERN]"
DIR=${1?$usage}
IGNORE_PATTERN=${2-}
if [ -n "$IGNORE_PATTERN" ]; then
View dotassoc.lsp
;;; dotassoc.lsp
;; 連想リストの Key-Value 参照をドット記法で
;;; Example:
;; (let ((student '((id 1332412)
;; (name ((first "Student")
;; (last "Example"))))))
;; (with-dotassoc
You can’t perform that action at this time.