Skip to content

Instantly share code, notes, and snippets.

View tsuu32's full-sized avatar
👾

Masahiro Nakamura tsuu32

👾
5 followers · 2 following
View GitHub Profile
@tsuu32
tsuu32 / scsnowman-scratch.el
Last active March 2, 2020 06:34
Display SVG-formatted scsnowman in Emacs.
(require 'svg)
(defun svg-path (svg d &rest args)
"Create a path D in SVG."
(svg--append
svg
(dom-node 'path
`((d . ,d)
,@(svg--arguments svg args)))))
@tsuu32
tsuu32 / auctex-cluttex-scratch.el
Last active February 11, 2020 14:44
ClutTeX command for Emacs AUCTeX (experimental)
(add-hook 'plain-TeX-mode-hook
(lambda () (setq TeX-command-default "ClutTeX")))
(add-hook 'LaTeX-mode-hook
(lambda () (setq TeX-command-default "ClutTeX")))
(add-to-list 'TeX-expand-list
'("%(cltxengine)"
(lambda ()
(cond
((eq major-mode 'plain-tex-mode)
@tsuu32
tsuu32 / min10_example.png
Last active February 4, 2020 11:37
ブログ用
min10_example.png
@tsuu32
tsuu32 / tokenize.c
Last active November 17, 2019 00:58
CoreFoundation の CFStringTokenizer を使って（日本語でも）tokenize するやつ
/* compile: cc tokenize.c -o tokenize -framework CoreFoundation */
/* usage: ./tokenize 今日は晴れでいい気分
/* 参考: https://stackoverflow.com/questions/6877659/how-to-get-an-array-of-sentences-using-cfstringtokenizer */
#include <stdio.h>
#include <CoreFoundation/CoreFoundation.h>
int main(int argc, char *argv[])
{
if (argc != 2) {
@tsuu32
tsuu32 / hankakukakko.tex
Last active November 5, 2019 15:33
% upLaTeX 文書
\documentclass[uplatex]{jsarticle}
\begin{document}
これは和文です(和文だよ)。
\end{document}
@tsuu32
tsuu32 / sushi-bar-mode.el
Last active September 25, 2019 02:35
https://gist.github.com/tsuu32/abbe09a7aea09bcfff397c5bb313854b をglobalなmodeにしました
(defvar sushi-bar--old-format mode-line-format)
(defvar sushi-bar--conveyor-belt "")
(defvar sushi-bar--update-timer nil)
(defun sushi-bar--sushi-is-ready-p ()
(eq (random 15) 1))
(defun sushi-bar--conveyor-update ()
@tsuu32
tsuu32 / sushi-bar-mode.el
Last active September 25, 2019 02:27 — forked from gongo/sushi-bar-mode.el
https://gist.github.com/gongo/c51ac79c1669bd71714b601b42c3be18 をちょっと直しました
(require 'cl-lib)
(defvar-local sushi-bar--conveyor-belt "")
(defvar sushi-bar--update-timer nil)
(defvar sushi-bar--buffers 0)
(defun sushi-bar--sushi-is-ready-p ()
(eq (random 15) 1))