«前の日(07-25) 最新 次の日(07-27)» 追記

ソフトウェアと本の覚え書き

2005|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|10|11|12|
2017|01|02|03|04|05|06|07|08|09|10|11|12|
2018|01|02|03|04|05|06|

2006-07-26

_ [Meadow] CygwinのZshを使う

Bashを使うことが多いのかもしれないが、私の好みでZshを使う。.emacsに

(setq explicit-shell-file-name "zsh.exe")
(setq shell-file-name "sh.exe")
(setq shell-command-switch "-c")
(modify-coding-system-alist 'process ".*sh\\.exe" '(undecided-dos . euc-japan))

を加える。M-x shellでZshが起動する。

_ [Cygwin][プログラミング] CygwinでOpenGLを使うときのコンパイル時のオプション

gcc -DWIN32 -o sample sample.c -lglut32 -lopengl32 -lglu32

オプションが多くて覚えきれない。


2007-07-26

_ [読書] 速水敏彦 『他人を見下す若者たち』

つまらなかった。読んでいて違和感ばかりでなのだが、本当の悲しみや純粋な感情といったものがなくなっているという主張などは、誰が本当や純粋であると判断するのだろうか。そして、最後には何か教育できちんとした感情をもてるようにさせようという考えにはぞっとする。ある人にそんなに影響を与えること(しかも望ましいと勝手に思う方向に)ができる程、力をもっていると考えているのならば、甚だしい思い違いだろう。

おすすめ度:★★☆☆☆

他人を見下す若者たち


2010-07-26

_ [Linux] one-key-help-window-open の修正2

どうも前の修正だと、Emacs のウィンドウを縦に分割していて、ウィンドウの幅が異なる場合にうまく動かない。すでにウィンドウが複数に分割されている場合、一番大きなウィンドウを選択して one-key のバッファを表示するようにした。

(defvar one-key-minimal-window-width 40)
 
(defun one-key-get-suitable-window ()
  "Get window suitable for setting one-key buffer."
  (let* ((current-win (frame-selected-window))
         (win-list (delete current-win (window-list)))
         (area 0) suitable-win)
    (when (> (length win-list) 0)
      (dolist (win win-list)
        (let* ((wwidth (window-width win))
               (wheight (window-height win))
               (new-area (* wwidth wheight)))
          (if (> wwidth one-key-minimal-window-width)
              (when (> new-area area)
                (setq area new-area)
                (setq suitable-win win))))))
    (or suitable-win (split-window-sensibly current-win))))
 
(defun one-key-help-window-open (title info-alist)
  "Open the help window.
Argument TITLE is title name for help information.
Argument INFO-ALIST is help information as format ((key . describe) . command)."
  ;; Save current window configuration.
  (or one-key-help-window-configuration
      (setq one-key-help-window-configuration (current-window-configuration)))
  ;; Generate buffer information.
  (let ((win (one-key-get-suitable-window)))
    (with-selected-window win
      (if (get-buffer one-key-buffer-name)
          (set-window-buffer win one-key-buffer-name)
        (with-current-buffer (get-buffer-create one-key-buffer-name)
          (set-window-buffer win one-key-buffer-name)
          (goto-char (point-min))
          (save-excursion
            (insert (one-key-highlight-help
                     title
                     (one-key-help-format info-alist))))))
      ;; Adjust height of help window
      ;; to display buffer's contents exactly.
      (fit-window-to-buffer nil one-key-help-window-max-height)))
  ;; Pop `one-key' buffer.
  (set-buffer one-key-buffer-name))

_ [Linux] anything-display-function の変更

同様に anything を表示するウィンドウも変更することにした。必要最低限の横幅を持ち、縦が長いウィンドウに anything のバッファを表示することにする。

(defvar anything-buffer-minimal-window-width 40)
 
(defun anything-get-suitable-window (buf)
  "Get window suitable for anytihng buffer."
  (if anything-samewindow
      (switch-to-buffer buf)
    (let* ((current-win (frame-selected-window))
           (win-list (delete current-win (window-list)))
           (area 0) (height 0) suitable-win)
      (when (> (length win-list) 0)
        (dolist (win win-list)
          (let* ((wwidth (window-width win))
                 (wheight (window-height win))
                 (new-area (* wwidth wheight)))
            (if (and (> wwidth anything-buffer-minimal-window-width)
                     (or (> wheight height) (and (= wheight height) (> new-area area))))
                (progn
                  (setq height wheight)
                  (setq area new-area)
                  (setq suitable-win win))))))
      (if suitable-win
          (progn
            (select-window suitable-win)
            (switch-to-buffer buf))
        (pop-to-buffer buf)))))
 
(setq anything-display-function 'anything-get-suitable-window)

2012-07-26

_ [映画] 『Mr.インクレディブル』

おすすめ度:★★★☆☆

Mr.インクレディブル


2013-07-26

_ [映画] 『ファインディング・ニモ』

おすすめ度:★★★☆☆

ファインディング・ニモ

_ [映画] 『扉をたたく人』

おすすめ度:★★★☆☆

扉をたたく人


2014-07-26

_ [映画] 『永遠に美しく…』

おすすめ度:★★★☆☆

永遠に美しく…

_ [映画] 『ブルーベルベット』

おすすめ度:★★★☆☆

ブルーベルベット

_ [映画] 『イレイザーヘッド』

おすすめ度:★★★☆☆

イレイザーヘッド

_ [映画] 『ミュンヘン』

おすすめ度:★★★☆☆

ミュンヘン


2015-07-26

_ [映画] 『007 美しき獲物たち』

おすすめ度:★★★☆☆

007 美しき獲物たち

_ [映画] 『シャークトパス』

おすすめ度:★★★☆☆

シャークトパス


2016-07-26

_ [映画] 『デュプリシティ 〜スパイは、スパイに嘘をつく〜』

おすすめ度:★★★☆☆

デュプリシティ 〜スパイは、スパイに嘘をつく〜


2017-07-26

_ [映画] 『エアポート2015』

おすすめ度:★★★☆☆

エアポート2015