Skip to content

Instantly share code, notes, and snippets.

View kaz-utashiro's full-sized avatar

Kazumasa Utashiro kaz-utashiro

33 followers · 18 following
View GitHub Profile
@kaz-utashiro
kaz-utashiro / 荷物札印刷.gs
Last active August 25, 2023 01:20
Google Spread Sheet から Document を自動生成するスクリプト
function onOpen() {
var spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
var menuEntries = [ {name: "印刷用ドキュメント作成", functionName: "createDoc"} ];
spreadsheet.addMenu("カスタムメニュー", menuEntries);
}
const removeFirstEmptyParagraph = (body) => {
const firstParagraph = body.getParagraphs()[0];
if (firstParagraph.getText() === '') {
firstParagraph.removeFromParent();
@kaz-utashiro
kaz-utashiro / sl.c
Last active June 4, 2023 01:14
sl.c 2023 version
#include <unistd.h>
#include <string.h>
#include <stdio.h>
#include <term.h>
void mvprintw(int y, int x, const char* fmt, const char* str) {
tputs(tparm(tgoto(cursor_address, x, y)), 1, putchar);
printf(fmt, str);
}
char *sl[] = {
" o o o o",
@kaz-utashiro
kaz-utashiro / auto-follow-mode.el
Last active May 28, 2023 03:43
ウィンドウを分割すると follow-mode にして行番号を表示する
(defun activate-follow-mode (&optional window)
(follow-mode t)
(display-line-numbers-mode t))
(advice-add 'split-window-right :after 'activate-follow-mode)
(defun deactivate-follow-mode (&optional window del-all)
(when (= 1 (length (window-list)))
(follow-mode -1)
(display-line-numbers-mode -1)))
(dolist (cmd '(delete-window
@kaz-utashiro
kaz-utashiro / miyako-shukuhaku.js
Created March 12, 2019 04:59
宮古島トライアスロン宿泊先登録用ブックマークレット
javascript: {
const info = new Map([
[ 'HNAME', 'ホテルサザンコースト宮古島' ],
[ 'HTEL', '0980-75-3335' ],
[ 'ARRDATEY', '2019' ],
[ 'ARRDATEM', '4' ],
[ 'ARRDATED', '12' ],
[ 'DPTDATEY', '2019' ],
[ 'DPTDATEM', '4' ],
[ 'DPTDATED', '16' ]
@kaz-utashiro
kaz-utashiro / .cdifrc
Last active September 16, 2020 19:14
Word や PowerPoint のファイルを grep したり diff したりする ref: https://qiita.com/kaz-utashiro/items/30594c16ed6d931324f9
option default --mecab
@kaz-utashiro
kaz-utashiro / file0.txt
Last active November 18, 2019 03:19
Perl で子プロセスが入力を読めない問題 ref: https://qiita.com/kaz-utashiro/items/80fc83e56e645f19e927
$_ = do { local $/; <> };
if (open(CHLD, '|-') == 0) {
print <>;
exit;
}
print CHLD $_;
@kaz-utashiro
kaz-utashiro / file0.txt
Last active August 29, 2015 14:07
Mavericks コマンドラインキッチンタイマー「ゴージャスラーメン」オプション ref: http://qiita.com/kaz-utashiro/items/72f9e4c089c46210dec4
tir -rGRc10
@kaz-utashiro
kaz-utashiro / file0.txt
Created April 26, 2014 08:21
Perl の @- と @+ のペナルティが高すぎる ref: http://qiita.com/kaz-utashiro/items/2facc87ea9ba25e81cd9
while (/pattern/g) {
my($s, $e) = ($-[0], $+[0]);
...
@kaz-utashiro
kaz-utashiro / cdif.el
Created April 3, 2014 08:04
Emacs のバッファに対して cdif を実行する関数。本当は、コマンドの実行にした場合のエラー処理を入れたいんだが、やり方がわからない。失敗したら undo してください。
;;; cdif.el --- cdif and ansi-color interface
;;; Code:
(autoload 'ansi-color-apply-on-region "ansi-color" nil t)
(defun cdif-buffer (&optional prefix)
"Execute cdif command on current buffer and apply ansi-color."
(interactive "P")
(if prefix
@kaz-utashiro
kaz-utashiro / very-simple-battle-monster.pl
Last active January 3, 2016 06:09
中学生の息子に、ゲームプログラムはどうやって作るんだと訊かれた。俺もやったことないからわからないから、じゃあ作ってみるかと一緒に10分程で作ってみたプログラム。最初は乱数を発生して上か下かを選ぶプログラムだったんけど、わかりにくいようだったので対戦形式にしてみた。
#!/usr/bin/perl -CSD
use strict;
use warnings;
use utf8;
my %モンスター = (
0 => "ゼクロム",
1 => "ワンリキー",
2 => "ニョロモ",