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 / 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))
@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 / hankakukakko.tex
Last active November 5, 2019 15:33
% upLaTeX 文書
\documentclass[uplatex]{jsarticle}
\begin{document}
これは和文です(和文だよ)。
\end{document}
@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 / min10_example.png
Last active February 4, 2020 11:37
ブログ用
min10_example.png
@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 / 0001-marked-text-face-Isearch-patch.patch
Created February 13, 2020 19:32
From dacd2d63122622ddb967ad8bca46c158bcbfb85c Mon Sep 17 00:00:00 2001
From: Masahiro Nakamura <tsuucat@icloud.com>
Date: Fri, 14 Feb 2020 04:29:34 +0900
Subject: [PATCH] marked text face & Isearch patch
---
lisp/isearch.el | 3 +--
lisp/term/ns-win.el | 43 ++++++++++++++++++++++++++++++++++---------
src/keyboard.c | 7 ++++---
src/nsterm.m | 21 +++++++++++++++++++++
@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 / install-tex.sh
Created March 31, 2020 13:33
#!/bin/bash
# Comment out to avoid an error on macOS
# set -e
DIRNAME=tl-`date +%Y_%m_%d_%H_%M_%S`
if [[ $TRAVIS_OS_NAME == 'osx' ]]; then
export PATH=$PATH:$HOME/texlive/bin/x86_64-darwin
else
@tsuu32
tsuu32 / textview_sample.m
Created May 17, 2020 18:09
// https://developer.apple.com/library/archive/documentation/Cocoa/Conceptual/TextUILayer/Tasks/CreateTextViewProg.html
// To execute it, run:
// `$ clang textview_sample.m -framework Cocoa && ./a.out`
#import <Cocoa/Cocoa.h>
int main() {
@autoreleasepool {
NSApplication* app = [NSApplication sharedApplication];