ryseto

worlddata = 
  Import["https://covid.ourworldindata.org/data/owid-covid-data.csv"];

font = "Helvetica Neue";
slopeangle = Pi/6;
pos0 = {0, 0};
radius = Log[10]/Pi;
slopepos[val_, h_] := 
 pos0 + {Cos[slopeangle]*val + 
    h*Sin[slopeangle], (-Sin[slopeangle])*val + h*Cos[slopeangle]}

ryseto

set terminal qt
tg_L=0
bind "L" "tg_L=tg_L+1;if(tg_L%2)set logs;replot; else unset logs;replot;"
tg_k=1
bind "k" "tg_k=tg_k+1;if(tg_k%2)set key;replot; else unset key;replot;"
tg_l=0
bind "-" "tg_l=tg_l+1;if(tg_l%2)set style data lp;replot; else set style data p;replot;"
bind "O" "set term post eps color enhanced 18;set out 'tmp_gnuplot.eps';replot;set term qt;
bind "P" "! open -a Preview tmp_gnuplot.eps;"

ryseto

;;; Tsuchiya-san's corrections (yatex ML [yatex:04810,04811])
(defun skim-forward-search ()
  (interactive)
  (process-query-on-exit-flag
   (start-process  
    "displayline"
    nil
    "/Applications/Skim.app/Contents/SharedSupport/displayline"
    (number-to-string (save-restriction
                        (widen)

ryseto

#/Applications/VPython-Py2.7/VIDLE.app/Contents/MacOS/Python
# coding=utf-8
from visual import *
import numpy
import sys

fin = open(sys.argv[1])

scene = display(title='Simple Shear',
                width=1100, height=800,

ryseto

(defun MyTeX-open-item-BibDesk ()
  "Open the bibitem in BibDesk.app"
  (interactive)
  (let* ((s (save-excursion
	      (skip-chars-backward "^{,")
	      (point)))
	 (e (save-excursion
	      (skip-chars-forward "^},")
	      (point))))
    (browse-url (concat "x-bdsk://" (buffer-substring-no-properties s e)))))

ryseto

;;; Finder でフォルダを開く
;; ショートカット: ⌘-option-shift-F
;; (ショートカットは USキーボードで確認）
(define-key global-map [?\s-Ï] 'MyTool-open-folder-in-finder)
(defun MyTool-open-folder-in-finder ()
  "open -a Finder.app CURRENT-DIRECTORY"
  (interactive)
  (process-query-on-exit-flag 
   (start-process-shell-command "open folder in Finder" nil "open .")))

ryseto

(define-key global-map (kbd "C-c w") 'MyTool-lookup-dictionary-osx)
(define-key global-map (kbd "C-c g") 'MyTool-search-google)
(define-key global-map (kbd "C-c G") 'MyTool-search-googlescholar)

(defun MyTool-search-google()
  "Search by google"
  (interactive)
  (let* ((str (string-word-or-region)))
    (browse-url
     (concat "http://google.com/search?q=\"" str "\""))))

ryseto

\documentclass[
  aip,
  author-year,
  reprint,
  onecolumn,
  tightenlines,
  12pt,
  notitlepage,
  amsmath,
  amssymb

ryseto

(defun MyTool-speech-region-Kyoko ()
  "Convert text to audible speech by /usr/bin/say of OSX."
  (interactive)
  (let ((str (concat (buffer-substring-no-properties (point) (mark)))))
    (setq str (replace-regexp-in-string "\\\\%" "percent" str))
    (setq str (replace-regexp-in-string "%\n" "" str))
    (setq str (replace-regexp-in-string "\\%[^\n]+" "" str))
    (setq str (replace-regexp-in-string "%" "" str))
    (setq str (replace-regexp-in-string "\\\\[a-zA-Z]+" " " str))
    (setq str (replace-regexp-in-string "[$_^\n()~{}|;]" " " str))

ryseto

;;; フレームのフォントを設定
(let* ((size 12) ; ASCIIフォントのサイズ [9/10/12/14/15/17/19/20/...]
       (asciifont "Menlo") ; ASCIIフォント
       (jpfont "Hiragino Maru Gothic ProN") ; 日本語フォント
       (h (* size 10))
       (fontspec (font-spec :family asciifont))
       (jp-fontspec (font-spec :family jpfont)))
  (set-face-attribute 'default nil :family asciifont :height h)
  (set-fontset-font nil 'japanese-jisx0213.2004-1 jp-fontspec)
  (set-fontset-font nil 'japanese-jisx0213-2 jp-fontspec)