letter

Sharp AQUOS sense4 SH-M15

2021-08-21T14:33:00.002+09:00

今使っている SH-M05 のバッテリーがだめになったので Sharp AQUOS sense4 SH-M15 を購入。

最近固定電話も解約したし電話もういらない気がするのだけど、２段階認証でスマホは必要だからしかたないね。バッテリーが理由で機種交換せざるを得ないのはだめだめだけど。

LastPass のアプリが LastPass Password Manager と LastPass Authenticator の２つあるのに気づかなくて２段階認証の移行につまずいたこと以外は、すんなりと機種変更できた。

新しい PC

2021-08-18T23:20:00.001+09:00

Sycom さんで新しい PC を購入した。

コンパイルすごく速くなった。

それでいてかなり静か。

満足

CPU : AMD Ryzen 9 5950X Vermeer[3.4GHz/16Core/TDP105W] 搭載モデル
CPUグリス: Arctic Silver AS-05A [高密度微粒子、高熱伝導率タイプ]
水冷UNIT : Fractal Design FD-WCU-CELSIUS-S36-BK [水冷ユニット]
MOTHER : ASRock X570 Taichi [AMD X570chipset]
MEMORY : 64GB[16GB*4枚] G.SKILL Trident Z RGB DDR4-3200 RGB内蔵ヒートスプレッダー搭載 Dual Channel
HDD/SSD : Western Digital WD Black SN850 WDS200T1X0E [M.2 PCI-E GEN4 SSD 2TB]★PCI-E4.0対応超高速次世代SSD
VGA : サイコムオリジナル水冷静音仕様 GeForce RTX3070 8GB LHR+Asetek 740GN水冷+EnermaxUCTB12+サイコムオリジナルVGAサポートステイ [HDMI*1/DisplayPort*3]
CASE : 【黒】Fractal Design Define S2 Black TG [ガラスパネル]
POWER : Fractal Design ION+ 860P (FD-PSU-IONP-860P-BK ) [860W/80PLUS Platinum]※高品質セミファンレス電源

固定電話解約した

2021-08-18T07:51:00.001+09:00

固定電話解約した

タオ

2021-01-09T16:49:00.001+09:00

タオ

ラグドールのタオが今日他界した。 9月末に心筋症・動脈血栓症で突然両後脚が動かなくなったけど、なんとかもちなおし少しずつ脚も動くようになってきていた。

今日急変してそのまま。

ねこまい

たお

python

2019-07-23T15:37:00.001+09:00

python

開発環境

プロジェクトの作成

mkdir project
cd project
git init
python3 -m venv venv
source venv/bin/activate
pip install jedi rope flake8 autopep8 yapf black

emacs

auto-virtualenvwrapper, elpy をインストール

(require 'auto-virtualenvwrapper)
(add-hook 'python-mode-hook #'auto-virtualenvwrapper-activate)
(add-hook 'projectile-after-switch-project-hook #'auto-virtualenvwrapper-activate)
(advice-add 'python-mode :before 'elpy-enable)

Makefile から PostgreSQL の全テーブルを削除する

2019-07-08T14:14:00.001+09:00

Makefile から PostgreSQL の全テーブルを削除する

https://stackoverflow.com/questions/3327312/how-can-i-drop-all-the-tables-in-a-postgresql-database https://stackoverflow.com/questions/649246/is-it-possible-to-create-a-multi-line-string-variable-in-a-makefile

define DROP_ALL_TABLES
DO $$$$ DECLARE
    r RECORD;
BEGIN
    -- if the schema you operate on is not "current", you will want to
    -- replace current_schema() in query with 'schematodeletetablesfrom'
    -- *and* update the generate 'DROP...' accordingly.
    FOR r IN (SELECT tablename FROM pg_tables WHERE schemaname = current_schema()) LOOP
        EXECUTE 'DROP TABLE IF EXISTS ' || quote_ident(r.tablename) || ' CASCADE';
    END LOOP;
END $$$$;
endef
export DROP_ALL_TABLES

drop_all_tables:
	echo "$$DROP_ALL_TABLES" | sudo -u postgres psql target_database

PureScript + Halogen + Firebase で簡単なものを作った

2019-07-05T16:22:00.003+09:00

PureScript + Halogen + Firebase で簡単なものを作った

https://github.com/quek/cocsan-purescript

version

PureScritp 0.12.5
Halogen v5.0.0-rc.4

Halogen はぜひ v5 系を使いたい。 Child component addressing (H.slot) がきれいになっている。

参考にすべきもの

build

purescript-halogen-realworld を持って来て Webpack 化した。

パッケージ管理は spago
コンパイルは webpack + purs-loader

Firebase

初期化

js でログイン処理と一緒にやっちゃう。ログインできたら PureScript の main を呼ぶ。

/__/firebase/init.json を使うコードあまり見かけないけど環境ごとの設定ファイルが不要になるので便利。

fetch('/__/firebase/init.json')
  .then(response => {
    return response.json();
  })
  .then(config => {
    firebase.initializeApp(config);

    firebase.auth().onAuthStateChanged(function(user) {
      if (user) {
        require('./Main').main();
      } else {
        const provider = new firebase.auth.GoogleAuthProvider();
        firebase.auth().signInWithRedirect(provider);
      }
    });
  });

ffi

Firestore.purs 必要最低限なものだけ。

js のクラス毎にモジュールを分けた方がいいだろうか? id, get など名前がかぶるから。

ルーティング

purescript-halogen-realworld は Hash ベースだったけど History API ベースで実装した。

purescript-halogen-realworld がやっているようにモナドを作る（?） AppM.purs

class Monad m <= Navigate m where
  navigate :: MyRoute -> m Unit

instance navigateHalogenM :: Navigate m => Navigate (H.HalogenM st act slots msg m) where
  navigate = lift <<< navigate

instance navigateAppM :: Navigate AppM where
  navigate route = do
    globalMessage <- asks _.globalMessage
    liftAff $ put (NavigateG route) globalMessage

Global Message passing inside Purescript Halogen - DEV Community 👩‍💻👨‍💻 を参考にルーティングを担当するコンポーネントでグローバルメッセージ（AVar GlobalMessage）を監視して処理する。

  handleAction :: Action -> H.HalogenM State Action ChildSlots o m Unit
  handleAction = case _ of
    Initialize -> do
      logMessage "初期化 Routing.purs"
      path <- H.liftEffect $ window >>= location >>= pathname
      updateRoute path
      void $ H.fork globalMessageLoop

  globalMessageLoop = do
    globalMessage <- asks _.globalMessage
    query <- H.liftAff $ AVar.take globalMessage
    case query of
      NavigateG route -> do
        pushState route
        H.modify_ \st -> st { route = route }
        pure unit
    globalMessageLoop

  pushState route = do
    pushStateInterface <- asks _.pushStateInterface
    H.liftEffect $ pushStateInterface.pushState (unsafeToForeign {}) $ routeToPath route

  updateRoute path = do
    case match myRoute path of
      Right newRoute -> do
        H.modify_ \st -> st { route = newRoute }
      Left e -> H.liftEffect $ log e

あと Main で PopStateEvent を監視する。

-- A producer coroutine that emits messages whenever the window emits a
-- `hashchange` event.
popStateProducer :: Coroutine.Producer HCE.PopStateEvent Aff Unit
popStateProducer = CoroutineAff.produce \emitter -> do
  listener <- eventListener (traverse_ (emit emitter) <<< HCE.fromEvent)
  liftEffect $
    window
      >>= Window.toEventTarget
      >>> addEventListener HCET.popstate listener false

-- A consumer coroutine that takes the `query` function from our component IO
-- record and sends `ChangeRoute` queries in when it receives inputs from the
-- producer.
popStateConsumer
  :: (forall a. Routing.Query a -> Aff (Maybe a))
  -> Coroutine.Consumer HCE.PopStateEvent Aff Unit
popStateConsumer query = CR.consumer \event -> do
  path <- liftEffect $ window >>= location >>= pathname
  H.liftEffect $ log path
  void $ query $ H.tell $ Routing.ChangeRoute path
  pure Nothing

main :: Effect Unit
main = HA.runHalogenAff do
  globalMessage <- AVar.empty
  pushStateInterface <- H.liftEffect $ makeInterface
  let
    environment = { globalMessage, pushStateInterface }
    component = H.hoist (runAppM environment) Routing.component
  body <- HA.awaitBody
  io <- runUI component unit body
  Coroutine.runProcess (popStateProducer Coroutine.$$ popStateConsumer io.query)

画像ファイル

file-loader が処理した画像ファイル名を使いたいのでこんなふうにした。ちょっとめんどい。もっといい方法ないかな。

Assets.js

const ASSETS = {
  '1.png': require('./assets/1.png')
};
exports.assets = function(name) {
  return ASSETS[name];
};

Assets.purs

module Assets where
foreign import assets :: String -> String

import Assets (assets)

render _ = HH.img [ HP.src $ assets "1.png" ]

Markdown で書いて Common Lisp 経由で Blogger に投稿する

2019-07-05T15:58:00.001+09:00

Markdown で書いて Common Lisp 経由で Blogger に投稿する

Emacs Muse で書いて、Common Lisp 経由で Blogger に投稿する

↑ を書き直した。

Muse -> Markdown
htmlize -> Grip

Markdown を HTML にするのに Grip を使う。そのインストールとセットアップ。

pip3 install grip
~/.local/bin/grip --version

~/.emacs

(setq markdown-command "~/.local/bin/grip --export - -")

Grip で出力される HTML の css を Blogger のテンプレに入れておく。

こんな感じ以前のように動くようになった。ドキュメントは修正してない。

https://github.com/quek/blogger

Common Lisp で css を書く時

2015-09-27T13:22:00.000+09:00

Common Lisp で css を書く時に #000 などどう書けばいいか悩んでいたけど、バックスラッシュでエスケープすればいい、という結論にたどりついた。

そんなわけでやっと書けた。 https://github.com/quek/info.read-eval-print.css

(in-package :info.read-eval-print.css)

(with-output-to-string (*css-output*)
 (css
   `((\#foo :color \#ccc
            (.bar :margin 1px 2px 0 0 :font-size 12px))
     (a\:hover :color yellow))))
;;⇒ "#foo{color:#ccc;}
;;   #foo .bar{margin:1px 2px 0 0;font-size:12px;}
;;   a:hover{color:yellow;}"

今日から二人暮らし

2015-06-20T21:30:00.001+09:00

女房に逃げられた。

今日から娘と二人暮らし。ネコもいるけど。

料理の腕をみがきたい。

デスクトップ PC 買った

2015-04-19T12:04:00.001+09:00

先日、新しいおもちゃ買った。

GALLERIA ZG Windows 8.1 モデル
Windows 8.1 Update 64bit
i7-4790K
メモリ 32GB DDR3 SDRAM(PC3-12800/8GBx4/デュアルチャネル
SSD Crucial 250GB(BX100シリーズ)
SATA3 2TB HDD (SATA6Gb/s対応)
マザーボードインテル Z97 チップセット ATXマザーボード
NVIDIA GeForce GTX980 4GB JetStreamFAN

icomplete-mode

2015-04-04T23:29:00.001+09:00

Emacs に "Package iswitchb is obsolete!" と言われたので icomplete-mode にかえた。

;; バッファの切り替え
;;(iswitchb-mode 1)
(icomplete-mode 1)
(define-key icomplete-minibuffer-map [?\C-i] 'minibuffer-force-complete)
;(define-key icomplete-minibuffer-map [?\C-m] 'minibuffer-force-complete-and-exit)
(define-key icomplete-minibuffer-map [?\C-s]  'icomplete-forward-completions)
(define-key icomplete-minibuffer-map [?\C-r]  'icomplete-backward-completions)

この設定であまり違和感なく使えるようになった。

Slime みたいにもって適当に入力しても補完してくれるといいんだけどね。

Stumpwm の contrib がなくなっと思ったら

2014-09-28T03:02:00.001+09:00

Stumpwm の contrib がなくなっと思ったら、別リポジトリになってたのね。

quicklisp には入ってないようなので、自分で git clone する。

cd ~/quicklisp/local-projects
git clone https://github.com/stumpwm/stumpwm-contrib.git

~/.stumpwmrm に次を追加。

(setf stumpwm::*contrib-dir* (pathname "~/quicklisp/local-projects/stumpwm-contrib/"))
(init-load-path stumpwm::*contrib-dir*)

AngularJS のコントラーロを CoffeeScript の class で書く

2014-09-23T15:12:00.001+09:00

Angular.js CoffeeScript Controller Base Class - Devign に書いてあるとおり。

inject や initialize のとこをちょこっと変えて、こんな感じになった。

AuthedCtrl を継承していれば $scope にログインユーザが自動的にセットされる。本番は mixin 自にやりたいけどそれはまた今度で。

class @BaseCtrl
  @register: (name) ->
    name ?= @name || @toString().match(/function\s*(.*?)\(/)?[1]
    angular.module('ngappApp').controller name, @

  @inject: (args...) ->
    @$inject ?= ['$scope']
    @$inject = @$inject.concat args

  constructor: (@scope, args...) ->
    for key, index in @constructor.$inject[1..]
      @[key] = args[index]

    for key, fn of @constructor.prototype
      continue unless typeof fn is 'function'
      continue if key in ['constructor', 'initialize'] or key[0] is '_'
      @scope[key] = fn.bind?(@) || _.bind(fn, @)

    @initialize()

  initialize: ->

class @AuthedCtrl extends BaseCtrl
  @inject 'AuthService'

  initialize: =>
    super()
    @AuthService.user (user) =>
      @currentUser = user
      @scope.currentUser = user

class VacationsCtrl extends AuthedCtrl
  @register()
  @inject 'Vacation'

  initialize: =>
    super()
    @scope.vacations = @Vacation.query()
    @scope.vacation = new @Vacation

  create: =>
    console.debug(@scope.vacation)
    @scope.vacation.$save (v) =>
      console.debug(v)
      @scope.vacations.push(v)
      @scope.vacation = new @Vacation

いまさらながら AngularJS をさわってみたけど、 C と VB で書いてたむかしながらサーバクライアントアプリみたいで、ちょっと楽しい。

あるいは継続を使った web フレームワークのサーバ処理がごっそりクライアントサイドに移った感じ。

Using SSL for Erlang Distribution

2014-07-27T15:37:00.001+09:00

http://www.erlang.org/doc/apps/ssl/ssl_distribution.html に書かれているとおり。

/usr/lib/erlang/releases/17 にあるファイルをネタに次のファイルを作成。

start_ssl.rel

{release, {"Erlang/OTP","17"}, {erts, "6.1"},
 [{kernel,"3.0.1"},
  {stdlib,"2.1"},
  {sasl, "2.4"},
  {asn1, "3.0.1"},
  {crypto, "3.4"},
  {public_key, "0.22"},
  {ssl, "5.3.5"}
  ]}.

boot ファイルを作成

systools:make_script("start_ssl",[]).

/home/ancient/letter/erlang/ssl/erlserver.pem にはサーバ証明書と鍵を書いておく cat pem key > erlserver.pem なイメージ

起動

erl -boot /home/ancient/letter/erlang/ssl/start_ssl -proto_dist inet_tls -ssl_dist_opt server_certfile "/home/ancient/letter/erlang/ssl/erlserver.pem" -ssl_dist_opt server_secure_renegotiate true client_secure_renegotiate true -sname ssl_test

erl -boot /home/ancient/letter/erlang/ssl/start_ssl -proto_dist inet_tls -ssl_dist_opt server_certfile "/home/ancient/letter/erlang/ssl/erlserver.pem" -ssl_dist_opt server_secure_renegotiate true client_secure_renegotiate true -sname ssl_test2

(ssl_test2@yarn)8> net_kernel:connect_node(ssl_test@yarn).
true
(ssl_test2@yarn)9> nodes().
[ssl_test@yarn]

ふと気付いた。ssl じゃなくて ssh でやりたかった。

ren ジェネリックワード(ファンクション)

2014-07-06T15:09:00.001+09:00

ren に Clojure のマルチメソッドみたなものを実装してみた。

:g length dup type-of ;
:m length (( list ))   erlang:length/1 ;
:m length (( tuple ))  erlang:size/1 ;
:m length (( binary )) erlang:size/1 ;
:m length (( map ))    erlang:map_size/1 ;

:g でジェネリックファンクションを定義する。やってることはスタックトップのオブジェクトのタイプをスタックにつむだけ。 :m でメソッドを定義する。スタックトップにつまれたタイプでパターマッチングしている。

Erlang にもマップが導入された。それを使ってこんなふうに OO っぽいことをやってみた。継承をどうするかが悩ましい。

:g + over type-of over type-of ;     # x y -- x y type-of-x type-of-y
:m + (( integer _ )) erlang:+/2 ;
:m + (( float   _ )) erlang:+/2 ;
:m + (( list list )) erlang:++/2 ;
: point{ ( 'point >typed-map ) '{ ;
:m + (( #{ x X1 y Y1 } #{ x X2 y Y2 } point point ))
    point{ 'x X1 X2 + 'y Y1 Y2 + }
 ;

point{ 'x 1 'y 2 } point{ 'x 3 'y 4 } +
# => #{'-type-' => point,x => 4,y => 6}  Erlang の出力のまま

データスタックに対するパターンマッチ

2014-06-22T13:29:00.001+09:00

Erlang ではほとんど関数引数のパターマッチでプログラムが書ける。それを連鎖性言語でやろうとするとデータスタックに対するパターンマッチになる。

Factor だと http://docs.factorcode.org/content/article-locals-examples.html な感じでいろいろできるようではあるが、とりあえず dup 等をそんな感じで実装してみた。

: drop (( _ )) ;
: dup (( X )) X X ;
: swap (( X Y )) Y X ;
: over (( X Y )) X Y X ;
: rot (( X Y Z )) Y Z X ;
: -rot (( X Y Z )) Z X Y ;
: nip (( _ X )) X ;
: tuck (( X Y )) Y X Y ;

わかりやすい。

reverse と map はこんな感じ

: reverse [] swap reverse' ;
: reverse'
    (( [] ))
    (( Acc [ H T .] )) [ H Acc .] T reverse'


: map [ -rot map' ; # list function -- [ list function
: map'
    (( [] _  )) ]
    (( [ H T .] F ))
    H F call T F map'

そういえば case の書き方をかえたので、いま fib を書くとこうなる。

: fib
    = N
    N 2 =<
    case
        true
        ( 1 )
        _
        ( N 1- fib N 2 - fib + )
    ;case
 ;

( ) でブロックというかクオートというかそんなものができる。 Factor の [ ] と同じようなもの。

( 1+ ) 100 swap call .
# => 101
1 10 ( + ) cons call .
# => 11

また Forth ライクな言語を作っている

2014-06-15T22:18:00.001+09:00

最近まったくブログ書いてなかった。できればまた書くようにしたい。

ちかごろまた Forth ライクな言語を作っている。名前は ren(仮)。chon を付けてもいいかもしれない。 Forth ライクな言語を作るのはこれで4つか5つめ。なんか Forth には思い入れがあるみたい。とても簡単に作れる、というのもある。

今回のは Erlang で書いている。ワードを Erlang の関数にコンパイルする。思えば Erlang もコンパイル関数があるいい言語だ。ワードを Erlang の関数にコンパイルし、呼び出しは普通の Erlang 関数と同じなのでリターンスタックがない。そこは残念なところ。パターンマッチングをきれいに取り込みたいけど、なかなかいい書き方を思い付かない。

いまの fib はこんな感じ。

: fib
    = N
    N 2 =<
    case
        true
        1
    ;;
        _
        N 1- fib N 2 - fib +
    ;case
 ;

言語を実装するのは不毛な感じがするものの楽しいね。

SSD

2014-03-18T22:33:00.001+09:00

SSD 買った。

Crucial M500 2.5インチ内蔵型 SATA6Gbps 960GB CT960M500SSD1

起動が速っ! SBCL も速っ!

SSDOptimization - Debian Wiki を参別に設定。

マウントオプションに discard,noatime,commit=600 を付ける。/tmp を tmpfs にする。

sudo vi /etc/fstab

UUID=6a2b89d0-830d-4e8a-9e57-4d7de0426876 / ext4 discard,noatime,commit=600,errors=remount-ro 0 1
tmpfs /tmp tmpfs nodev,nosuid,size=40%,mode=1777 0 0

I/Oスケジューラを変える。 deadline にするのがいいらしい。

sudo apt-get install sysfsutils sudo vi /etc/sysfs.conf

block/sda/queue/scheduler = deadline

echo deadline | sudo tee /sys/block/sda/queue/scheduler
cat /sys/block/sda/queue/scheduler
noop [deadline] cfq

あとなるべくスワップしないようにする。

sudo vi /etc/sysctl.d/local.conf

vm.swappiness=0

シェルでランダムな文字列を各行に付ける

2014-02-22T18:13:00.001+09:00

yarn:~% cat /tmp/a
1
2
3
yarn:~% strings /dev/urandom | grep -oE '\w{3}' | head -n `grep -c '' /tmp/a` |paste - /tmp/a
G0n     1
eIZ     2
vI5     3

C-c C-f でカーソル位置の FiveAM テストを実行する

2014-02-16T00:40:00.001+09:00

Slime では C-c C-c でカーソル位置の defun などをコンパイルする。それと同じように C-c C-f でカーソル位置の FiveAM テストを実行したかったので書いてみた。

(defun slime-fiveam-debug-test ()
  "fiveam:debug!"
  (interactive)
  (slime-interactive-eval
   (format "(fiveam:debug! %s)" (slime-defun-at-point))))

(define-key slime-mode-map
  [(control ?c) (control ?f)] 'slime-fiveam-debug-test)

ちゃんと動く?

package ごとに readtable が指定できたらいいな

2014-01-25T20:39:00.001+09:00

cl:read と cl:read-preserving-whitespace を上書いちゃいえばできるはずなのでやってみた。

(defvar *cl-read* #'cl:read)
(defvar *cl-read-preserving-whitespace* #'cl:read-preserving-whitespace)

(defvar *readtable-hash* (make-hash-table))

(defmacro with-package-readtable (&body body)
  `(let ((*readtable* (gethash *package* *readtable-hash* *readtable*)))
     ,@body))

(sb-ext:without-package-locks
  (defun read (&optional (stream *standard-input*)
                 (eof-error-p t)
                 (eof-value nil)
                 (recursive-p nil))
    "Read the next Lisp value from STREAM, and return it."
    (with-package-readtable
      (funcall *cl-read* stream eof-error-p eof-value recursive-p)))

  (defun read-preserving-whitespace (&optional (stream *standard-input*)
                                       (eof-error-p t)
                                       (eof-value nil)
                                       (recursive-p nil))
    "Read from STREAM and return the value read, preserving any whitespace
     that followed the object."
    (with-package-readtable
      (funcall *cl-read-preserving-whitespace*
               stream
               eof-error-p
               eof-value
               recursive-p))))

(defmacro set-package-readtable (package readtable)
  "package の readtable を指定する。"
  `(eval-when (:compile-toplevel :load-toplevel :execute)
     (setf (gethash (find-package ,package) *readtable-hash*)
           ,readtable)))

(defmacro clear-package-readtable (package)
  "package の readtable を指定を解除する。"
  `(eval-when (:compile-toplevel :load-toplevel :execute)
     (remhash (find-package ,package) *readtable-hash*)))

package をキーに *readtable* を束縛して元の read, read-preserving-whitespace を呼ぶ。

(defpackage :foo
  (:use :cl))

(defpackage :bar
  (:use :cl))

(info.read-eval-print.read:set-package-readtable
 :bar
 ;; お好みの readtable をご用意ください
 (info.read-eval-print.read.triple-quote:make-readtable))

(in-package :foo)
(list """#,(+ 1 2)""")
;;⇒ ("" "#,(+ 1 2)" "")

(in-package :bar)
(list """#,(+ 1 2)""")
;;⇒ ("3")

(info.read-eval-print.read:clear-package-readtable :bar)
(list """#,(+ 1 2)""")
;;⇒ ("" "#,(+ 1 2)" "")

cl:read と cl:read-preserving-whitespace を上書くという邪道なことをやっているので Slime でも思ったとおり動いてくれる。

https://github.com/quek/info.read-eval-print.read

MySQL 5.6 コンパイルとセットアップ

2014-01-11T18:51:00.001+09:00

Debian の sid まだ MySQL 5.5 なので 5.6 のコンパイルしてセットアップした。 5.5 の方はそのままで追加で 5.6 も動かす。

cmake -DCMAKE_INSTALL_PREFIX=/opt/mysql5.6
make
make -n install
sudo make install
cd /opt/mysql5.6
sudo chown -R mysql:mysql .
sudo vi /opt/mysql5.6/my.cnf

/opt/mysql5.6/my.cnf で port, socket, pid-file を 5.5 と違うものにしておく。

# For advice on how to change settings please see
# http://dev.mysql.com/doc/refman/5.6/en/server-configuration-defaults.html

[mysqld]

# Remove leading # and set to the amount of RAM for the most important data
# cache in MySQL. Start at 70% of total RAM for dedicated server, else 10%.
# innodb_buffer_pool_size = 128M

# Remove leading # to turn on a very important data integrity option: logging
# changes to the binary log between backups.
# log_bin

# These are commonly set, remove the # and set as required.
basedir   = /opt/mysql5.6
datadir   = /opt/mysql5.6/data
server_id = 2
port      = 3307
socket    = /run/mysqld/mysqld5.6.sock
pid-file  = /run/mysqld/mysqld5.6.pid

# Remove leading # to set options mainly useful for reporting servers.
# The server defaults are faster for transactions and fast SELECTs.
# Adjust sizes as needed, experiment to find the optimal values.
# join_buffer_size = 128M
# sort_buffer_size = 2M
# read_rnd_buffer_size = 2M

sql_mode=NO_ENGINE_SUBSTITUTION,STRICT_TRANS_TABLES

sudo scripts/mysql_install_db --defaults-file=/opt/mysql5.6/my.cnf --user=mysql
sudo chown -R root .
sudo chown -R mysql data
sudo vi /etc/init.d/mysql5.6

#!/bin/sh
# Copyright Abandoned 1996 TCX DataKonsult AB & Monty Program KB & Detron HB
# This file is public domain and comes with NO WARRANTY of any kind

# MySQL daemon start/stop script.

# Usually this is put in /etc/init.d (at least on machines SYSV R4 based
# systems) and linked to /etc/rc3.d/S99mysql and /etc/rc0.d/K01mysql.
# When this is done the mysql server will be started when the machine is
# started and shut down when the systems goes down.

# Comments to support chkconfig on RedHat Linux
# chkconfig: 2345 64 36
# description: A very fast and reliable SQL database engine.

# Comments to support LSB init script conventions
### BEGIN INIT INFO
# Provides: mysql5.6
# Required-Start: $local_fs $network $remote_fs
# Should-Start: ypbind nscd ldap ntpd xntpd
# Required-Stop: $local_fs $network $remote_fs
# Default-Start:  2 3 4 5
# Default-Stop: 0 1 6
# Short-Description: start and stop MySQL
# Description: MySQL is a very fast and reliable SQL database engine.
### END INIT INFO

# If you install MySQL on some other places than /opt/mysql5.6, then you
# have to do one of the following things for this script to work:
#
# - Run this script from within the MySQL installation directory
# - Create a /etc/my.cnf file with the following information:
#   [mysqld]
#   basedir=<path-to-mysql-installation-directory>
# - Add the above to any other configuration file (for example ~/.my.ini)
#   and copy my_print_defaults to /usr/bin
# - Add the path to the mysql-installation-directory to the basedir variable
#   below.
#
# If you want to affect other MySQL variables, you should make your changes
# in the /etc/my.cnf, ~/.my.cnf or other MySQL configuration files.

# If you change base dir, you must also change datadir. These may get
# overwritten by settings in the MySQL configuration files.

basedir=
datadir=

# Default value, in seconds, afterwhich the script should timeout waiting
# for server start.
# Value here is overriden by value in my.cnf.
# 0 means don't wait at all
# Negative numbers mean to wait indefinitely
service_startup_timeout=900

# Lock directory for RedHat / SuSE.
lockdir='/var/lock/subsys'
lock_file_path="$lockdir/mysql"

# The following variables are only set for letting mysql.server find things.

# Set some defaults
mysqld_pid_file_path=
if test -z "$basedir"
then
  basedir=/opt/mysql5.6
  bindir=/opt/mysql5.6/bin
  if test -z "$datadir"
  then
    datadir=/opt/mysql5.6/data
  fi
  sbindir=/opt/mysql5.6/bin
  libexecdir=/opt/mysql5.6/bin
else
  bindir="$basedir/bin"
  if test -z "$datadir"
  then
    datadir="$basedir/data"
  fi
  sbindir="$basedir/sbin"
  libexecdir="$basedir/libexec"
fi

# datadir_set is used to determine if datadir was set (and so should be
# *not* set inside of the --basedir= handler.)
datadir_set=

#
# Use LSB init script functions for printing messages, if possible
#
lsb_functions="/lib/lsb/init-functions"
if test -f $lsb_functions ; then
  . $lsb_functions
else
  log_success_msg()
  {
    echo " SUCCESS! $@"
  }
  log_failure_msg()
  {
    echo " ERROR! $@"
  }
fi

PATH="/sbin:/usr/sbin:/bin:/usr/bin:$basedir/bin"
export PATH

mode=$1    # start or stop

[ $# -ge 1 ] && shift


other_args="$*"   # uncommon, but needed when called from an RPM upgrade action
           # Expected: "--skip-networking --skip-grant-tables"
           # They are not checked here, intentionally, as it is the resposibility
           # of the "spec" file author to give correct arguments only.

case `echo "testing\c"`,`echo -n testing` in
    *c*,-n*) echo_n=   echo_c=     ;;
    *c*,*)   echo_n=-n echo_c=     ;;
    *)       echo_n=   echo_c='\c' ;;
esac

parse_server_arguments() {
  for arg do
    case "$arg" in
      --basedir=*)  basedir=`echo "$arg" | sed -e 's/^[^=]*=//'`
                    bindir="$basedir/bin"
                    if test -z "$datadir_set"; then
                      datadir="$basedir/data"
                    fi
                    sbindir="$basedir/sbin"
                    libexecdir="$basedir/libexec"
        ;;
      --datadir=*)  datadir=`echo "$arg" | sed -e 's/^[^=]*=//'`
                    datadir_set=1
        ;;
      --pid-file=*) mysqld_pid_file_path=`echo "$arg" | sed -e 's/^[^=]*=//'` ;;
      --service-startup-timeout=*) service_startup_timeout=`echo "$arg" | sed -e 's/^[^=]*=//'` ;;
    esac
  done
}

wait_for_pid () {
  verb="$1"           # created | removed
  pid="$2"            # process ID of the program operating on the pid-file
  pid_file_path="$3" # path to the PID file.

  i=0
  avoid_race_condition="by checking again"

  while test $i -ne $service_startup_timeout ; do

    case "$verb" in
      'created')
        # wait for a PID-file to pop into existence.
        test -s "$pid_file_path" && i='' && break
        ;;
      'removed')
        # wait for this PID-file to disappear
        test ! -s "$pid_file_path" && i='' && break
        ;;
      *)
        echo "wait_for_pid () usage: wait_for_pid created|removed pid pid_file_path"
        exit 1
        ;;
    esac

    # if server isn't running, then pid-file will never be updated
    if test -n "$pid"; then
      if kill -0 "$pid" 2>/dev/null; then
        :  # the server still runs
      else
        # The server may have exited between the last pid-file check and now.
        if test -n "$avoid_race_condition"; then
          avoid_race_condition=""
          continue  # Check again.
        fi

        # there's nothing that will affect the file.
        log_failure_msg "The server quit without updating PID file ($pid_file_path)."
        return 1  # not waiting any more.
      fi
    fi

    echo $echo_n ".$echo_c"
    i=`expr $i + 1`
    sleep 1

  done

  if test -z "$i" ; then
    log_success_msg
    return 0
  else
    log_failure_msg
    return 1
  fi
}

# Get arguments from the my.cnf file,
# the only group, which is read from now on is [mysqld]
if test -x ./bin/my_print_defaults
then
  print_defaults="./bin/my_print_defaults"
elif test -x $bindir/my_print_defaults
then
  print_defaults="$bindir/my_print_defaults"
elif test -x $bindir/mysql_print_defaults
then
  print_defaults="$bindir/mysql_print_defaults"
else
  # Try to find basedir in /etc/my.cnf
  conf=/etc/my.cnf
  print_defaults=
  if test -r $conf
  then
    subpat='^[^=]*basedir[^=]*=\(.*\)$'
    dirs=`sed -e "/$subpat/!d" -e 's//\1/' $conf`
    for d in $dirs
    do
      d=`echo $d | sed -e 's/[  ]//g'`
      if test -x "$d/bin/my_print_defaults"
      then
        print_defaults="$d/bin/my_print_defaults"
        break
      fi
      if test -x "$d/bin/mysql_print_defaults"
      then
        print_defaults="$d/bin/mysql_print_defaults"
        break
      fi
    done
  fi

  # Hope it's in the PATH ... but I doubt it
  test -z "$print_defaults" && print_defaults="my_print_defaults"
fi

#
# Read defaults file from 'basedir'.   If there is no defaults file there
# check if it's in the old (depricated) place (datadir) and read it from there
#

extra_args=""
if test -r "$basedir/my.cnf"
then
  extra_args="-e $basedir/my.cnf"
else
  if test -r "$datadir/my.cnf"
  then
    extra_args="-e $datadir/my.cnf"
  fi
fi

parse_server_arguments `$print_defaults $extra_args mysqld server mysql_server mysql.server`

#
# Set pid file if not given
#
if test -z "$mysqld_pid_file_path"
then
  mysqld_pid_file_path=$datadir/`hostname`.pid
else
  case "$mysqld_pid_file_path" in
    /* ) ;;
    * )  mysqld_pid_file_path="$datadir/$mysqld_pid_file_path" ;;
  esac
fi

case "$mode" in
  'start')
    # Start daemon

    # Safeguard (relative paths, core dumps..)
    cd $basedir

    echo $echo_n "Starting MySQL"
    if test -x $bindir/mysqld_safe
    then
      # Give extra arguments to mysqld with the my.cnf file. This script
      # may be overwritten at next upgrade.
      $bindir/mysqld_safe --defaults-file=$basedir/my.cnf --datadir="$datadir" --pid-file="$mysqld_pid_file_path" $other_args >/dev/null 2>&1 &
      wait_for_pid created "$!" "$mysqld_pid_file_path"; return_value=$?

      # Make lock for RedHat / SuSE
      if test -w "$lockdir"
      then
        touch "$lock_file_path"
      fi

      exit $return_value
    else
      log_failure_msg "Couldn't find MySQL server ($bindir/mysqld_safe)"
    fi
    ;;

  'stop')
    # Stop daemon. We use a signal here to avoid having to know the
    # root password.

    if test -s "$mysqld_pid_file_path"
    then
      mysqld_pid=`cat "$mysqld_pid_file_path"`

      if (kill -0 $mysqld_pid 2>/dev/null)
      then
        echo $echo_n "Shutting down MySQL"
        kill $mysqld_pid
        # mysqld should remove the pid file when it exits, so wait for it.
        wait_for_pid removed "$mysqld_pid" "$mysqld_pid_file_path"; return_value=$?
      else
        log_failure_msg "MySQL server process #$mysqld_pid is not running!"
        rm "$mysqld_pid_file_path"
      fi

      # Delete lock for RedHat / SuSE
      if test -f "$lock_file_path"
      then
        rm -f "$lock_file_path"
      fi
      exit $return_value
    else
      log_failure_msg "MySQL server PID file could not be found!"
    fi
    ;;

  'restart')
    # Stop the service and regardless of whether it was
    # running or not, start it again.
    if $0 stop  $other_args; then
      $0 start $other_args
    else
      log_failure_msg "Failed to stop running server, so refusing to try to start."
      exit 1
    fi
    ;;

  'reload'|'force-reload')
    if test -s "$mysqld_pid_file_path" ; then
      read mysqld_pid <  "$mysqld_pid_file_path"
      kill -HUP $mysqld_pid && log_success_msg "Reloading service MySQL"
      touch "$mysqld_pid_file_path"
    else
      log_failure_msg "MySQL PID file could not be found!"
      exit 1
    fi
    ;;
  'status')
    # First, check to see if pid file exists
    if test -s "$mysqld_pid_file_path" ; then
      read mysqld_pid < "$mysqld_pid_file_path"
      if kill -0 $mysqld_pid 2>/dev/null ; then
        log_success_msg "MySQL running ($mysqld_pid)"
        exit 0
      else
        log_failure_msg "MySQL is not running, but PID file exists"
        exit 1
      fi
    else
      # Try to find appropriate mysqld process
      mysqld_pid=`pidof $libexecdir/mysqld`

      # test if multiple pids exist
      pid_count=`echo $mysqld_pid | wc -w`
      if test $pid_count -gt 1 ; then
        log_failure_msg "Multiple MySQL running but PID file could not be found ($mysqld_pid)"
        exit 5
      elif test -z $mysqld_pid ; then
        if test -f "$lock_file_path" ; then
          log_failure_msg "MySQL is not running, but lock file ($lock_file_path) exists"
          exit 2
        fi
        log_failure_msg "MySQL is not running"
        exit 3
      else
        log_failure_msg "MySQL is running but PID file could not be found"
        exit 4
      fi
    fi
    ;;
    *)
      # usage
      basename=`basename "$0"`
      echo "Usage: $basename  {start|stop|restart|reload|force-reload|status}  [ MySQL server options ]"
      exit 1
    ;;
esac

exit 0

sudo service mysql5.6 start

ARROWS A 202F に機種変更した

2014-01-07T22:19:00.001+09:00

AQUOS PHONE 102SH から ARROWS A 202F に機種変更した。

suica の変更手続きする前に機種変更手続きしちゃってあせったが、新しい sim を前の機種にさしてsuica の変更手続きできた。

StumpWM でアラーム

2013-11-23T10:57:00.001+09:00

3分たったら知らせてほしい時とかあるよね。汁全部なくなったりしたら悲しいもんね。

使った。

(defcommand alarm (seconds message) ((:number "seconds: ") (:string "message: "))
  "alarm"
  (sb-thread:make-thread
   (lambda ()
     (sleep seconds)
     (stumpwm::message-no-timeout "^3*~
~a

　　☆ *　. 　☆
　☆　. ∧＿∧　∩　* ☆
ｷﾀ━━━( ・∀・)/ . ━━━！！
　 . ⊂　　 ノ* ☆
　☆ * (つ ノ .☆
　 　 (ノ" message))))

StumpWM は手軽るにこういうことができるのがいい。

これで疲労ぬきして出撃できる。