Skip to content

Instantly share code, notes, and snippets.

🐻
Cute!!

Kazuki Maeda kmaed

Block or report user

Report or block kmaed

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@kmaed
kmaed / ocaml-4.06.0.ebuild
Created Dec 24, 2018
Ebuild for OCaml 4.06.0
View ocaml-4.06.0.ebuild
# A modified version of ocaml-4.05.0-r1.ebuild by Kazuki Maeda <kmaeda@kmaeda.net>
# I only bumped the version number and removed a patch.
# The original copyright information is shown below.
# Copyright 1999-2017 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
EAPI=7
inherit flag-o-matic eutils multilib toolchain-funcs
@kmaed
kmaed / satysfi-9999.ebuild
Last active Feb 22, 2019
Ebuild for SATySFi
View satysfi-9999.ebuild
# Copyright 2018-2019 Kazuki Maeda <kmaeda@kmaeda.net>
# Distributed under the terms of the GNU General Public License v2
EAPI=7
inherit git-r3
DESCRIPTION="A statically-typed, functional typesetting system"
HOMEPAGE="https://github.com/gfngfn/SATySFi"
LICENSE="LGPL-3"
@kmaed
kmaed / opam-9999.ebuild
Last active Feb 22, 2019
Ebuild for the latest opam
View opam-9999.ebuild
# A modified version of opam-1.3.1-r1.ebuild by Kazuki Maeda <kmaeda@kmaeda.net>
# The original copyright information is shown below.
# Copyright 1999-2017 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
EAPI=7
inherit git-r3
@kmaed
kmaed / asir-9999.ebuild
Last active Dec 25, 2018
Ebuild for Risa/Asir
View asir-9999.ebuild
# Copyright 2017-2018 Kazuki Maeda <kmaeda@kmaeda.net>
# Distributed under the terms of the Simplified BSD License
EAPI=6
inherit multilib
DESCRIPTION="Risa/Asir is an open source general computer algebra system."
HOMEPAGE="http://www.math.kobe-u.ac.jp/Asir/"
MY_P="openxm-head.tar.gz"
SRC_URI="http://air.s.kanazawa-u.ac.jp/ohara/openxm/${MY_P}"
@kmaed
kmaed / test-scantokens.tex
Created Jan 6, 2016
\scantokens の使い方
View test-scantokens.tex
%% 眠れないので書いた.etoolbox.sty を読むと勉強になるなあ(つらい).
%% まずは基本形で準備運動.
%% 一度保存された,パラメータ文字を含むトークン列を定義とする,
%% パラメータをとるマクロを定義したいとする.
\def\a{##2##1} % カテゴリコードが6である限り,# は二重にせざるをえない.
\expandafter\def\expandafter\b\expandafter#\expandafter1\expandafter#\expandafter2\expandafter{\a}
\show\b % #1#2->#2#1
%% これはひどい.\edef 使いましょうよ.
\edef\b{%
@kmaed
kmaed / etoolbox-mypatchcmd-test.tex
Created Jan 4, 2016
etoolbox のパッチ関係コマンドを自作のマクロ内に入れると……
View etoolbox-mypatchcmd-test.tex
\documentclass{minimal}
\usepackage[T1]{fontenc}
\usepackage{etoolbox}
\makeatletter
% パッチを当てて,失敗したときだけ定型のエラーメッセージを出したいとする.
% いちいち面倒なのでマクロ化する.
\newrobustcmd*{\mypatchcmdi}[3]{% 一見良さそうだが,実はダメ.
\patchcmd{#1}{#2}{#3}{}{\message{^^JError!: \string#1, #2, #3^^J}}}
@kmaed
kmaed / utf-tool-23-cjk.patch
Created Feb 24, 2013
Patch to utf-tool.el for >= emacs-23. Replace only CJK characters.
View utf-tool-23-cjk.patch
--- utf-tool.el.orig 2013-02-24 15:24:54.914062345 +0900
+++ utf-tool.el 2013-02-24 15:23:21.947814237 +0900
@@ -58,11 +58,13 @@
;; (charset-description charset)
;; (split (split-char char))
(pos (point))
- (unicode nil))
+ (unicode nil)
+ (cjk (string-match "CJK" (get-char-code-property char 'name))))
(unless
@kmaed
kmaed / utf-tool-23.patch
Last active Dec 13, 2015
Patch to utf-tool.el for >= emacs-23.
View utf-tool-23.patch
--- utf-tool.el.orig 2013-02-20 08:17:48.933065400 +0900
+++ utf-tool.el 2013-02-20 08:09:10.473884298 +0900
@@ -62,7 +62,7 @@
(unless
(memq charset '(ascii japanese-jisx0208 katakana-jisx0201))
(if (or (< char 256)
- (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos)))
+ (memq 'utf-8 (find-coding-systems-region pos (1+ pos)))
(get-char-property pos 'untranslated-utf-8))
(setq unicode (or (get-char-property pos 'untranslated-utf-8)
@kmaed
kmaed / shijo.pdf
Created Dec 16, 2012
TikZ で道路の通称名 (119-B),街路の名称 (107-B)
View shijo.pdf
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@kmaed
kmaed / letargswapped.tex
Created Oct 13, 2012
2012/10/13 の解答
View letargswapped.tex
\catcode`\@=11
\def\letargswapped#1#2{%
\edef\def@macroB{\def\noexpand#1####1####2{\expandafter\unexpanded\expandafter{#2{##2}{##1}}}}%
\def@macroB}
\catcode`\@=12
\def\Frac#1#2{{#1\over#2}}
\letargswapped\RFrac\Frac
$$\RFrac{13}{42}$$ %==>分数「13分の42」が出力される
\edef\hogeA#1#2{#1\string~#2\noexpand~}
\letargswapped\hogeB\hogeA
You can’t perform that action at this time.