Instantly share code, notes, and snippets.

🐻
Cute!!

# Kazuki Maedakmaed

🐻
Cute!!
• Sort options
Created Oct 10, 2012
2012/10/08 の解答
View numtohex.tex
 %#! luatex \catcode\@=11 \def\len@begin{\directlua{ local len_count = 0 local len_flag = true while len_flag do local t = token.get_next() if token.csname_name(t) == 'len@end' then len_flag = false print(); print()
Created Oct 11, 2012
2012/09/17 の解答
View length.tex
 \documentclass[a4paper]{article} \begin{document} \makeatletter %% \length{} % に含まれるトークンの数の * に展開される．完全展開可能． \def\length#1{\len@begin#1{\len@end}} %% \len@begin{ % { までのトークン列を取ってきて \len@count に渡す． % 残りは \len@ifend に． \def\len@begin#1#{\len@count{#1\len@count@end}\len@ifend}
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
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.
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)
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
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}}}
Last active Dec 25, 2018
Ebuild for Risa/Asir
View asir-9999.ebuild
 # Copyright 2017-2018 Kazuki Maeda # 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}"
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 # 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
Last active Feb 22, 2019
Ebuild for SATySFi
View satysfi-9999.ebuild
 # Copyright 2018-2019 Kazuki Maeda # 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"
You can’t perform that action at this time.