«前の日記(2009-03-16) 最新 次の日記(2009-03-21)» 編集

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

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|

2009-03-19 [長年日記]

_ [Emacs] anything-c-source-other-windows

Emacsでwindows.elを使っていて、これの別windowへの移動をanythingから使えると便利だと思い作ってみた。まだ、あまり使っていないので問題があるかもしれないが。

(setq anything-c-source-other-windows
  '((name . "Other windows")
    (candidates . (lambda ()
		    (let ((i 1) (l (list))
			  (form (format "[w%%c] %%-%ds [%%s]" win:names-maxl)))
		      (while (< i win:max-configs)
			(if (aref win:configs i)
			    (add-to-list 'l (format form
						    (+ win:base-key i)
						    (if (aref win:configs i) 
							(format "%s" (aref win:names-prefix i))
						      "")
						    (aref win:names i)
						    )))
			(setq i (1+ i)))
		      (sort l 'string<))))
    (action . (("Switch to Other Window" . (lambda (arg)
				(if (string-match "^\\[w\\(.\\)\\]" arg)
				    (let ((num (string-to-number (match-string 1 arg))))
				      (win:switch-window num)))))))
    ))