mieki256's diary

◎ _CSSの識別名にアンダースコアを使って切り分け :

◎ _子セレクタで切り分け :

◎ _\マーク :

◎ _"display: inline"の使いどころ :

◎ _:hover疑似クラスは宣言順序に注意が必要です :

◎ _tableでのレイアウトをCSSに置きかえる :

◎ _CSS YEAR OF THE CAT :

;; C-F8    バッファから送る。
;;         利用するブラウザ・アプリを指定できる。

;; 「バッファから送る」で使用するリスト
(setf *buffer-send-to-list*
	  (list
	   '(" Internet Explorer"  . "C:/Program Files/Internet Explorer/iexplore.exe")
	   '(" Firefox"            . "C:/Program Files/Mozilla Firefox/firefox.exe")
	   ))

;; バッファから送る
(defun buffer-sendto-dialog ()
  (interactive)
  (let ((file (get-buffer-file-name)))
	(when file
	  (multiple-value-bind (result data)
		  (dialog-box
		   '(dialog 0 0 219 100
			 (:caption "送っちゃうよ")
			 (:font 9 "MS UI Gothic")
			 ;; (:font 9 "Microsoft Sans Serif")
			 (:control
			  (:listbox list nil #x50b10111 7 7 150 82)
			  (:button IDOK "送る" #x50010001 162 7 50 14)
			  (:button IDCANCEL "送らない" #x50010000 162 24 50 14)))
		   (list (cons 'list *buffer-send-to-list*))
		   nil)
		(when result
		  (let
			  ((cmd (cddr (assoc 'list data))))
			(if cmd
				(call-process (map-slash-to-backslash (concat cmd " " file)) :wait nil)
			  (message "なにもえらんでない。"))))))))

(define-key *global-keymap* '(#\c-F8) 'buffer-sendto-dialog)
(set-function-bar-label #\C-F8 "バッファから送る")

;; C-F6    編集中のファイルを関連付け実行。
;;         標準で設定されてるブラウザ・アプリで開く。

(defun execute ()
  (interactive)
  (shell-execute (get-buffer-file-name)))

(global-set-key #\C-F6 'execute)
(set-function-bar-label #\C-F6 "関連付け実行")

;; C-F7    アプリケーションランチャ

;; ランチャリスト
(defvar *launch-application-list*
  (list
   '(" CALC"                 . "C:/WINDOWS/system32/calc.exe")
   '(" FFFTP mirror job"     . "C:/Program Files/ffftp/FFFTP.exe --set your_setting --mirror --quit")
   ))

; アプリケーションランチャ
(defun application-launcher-dialog ()
  (interactive)
  (multiple-value-bind (result data)
      (dialog-box
       '(dialog 0 0 219 100
         (:caption "Application Launcher")
         (:font 9 "MS UI Gothic")
         (:control
          (:listbox list nil #x50b10111 7 7 150 82)
          (:button IDOK "実行" #x50010001 162 7 50 14)
          (:button IDCANCEL "キャンセル" #x50010000 162 24 50 14)))
       (list (cons 'list *launch-application-list*))
       nil)
    (when result
      (let
          ((cmd (cddr (assoc 'list data))))
        (if cmd
          (call-process (map-slash-to-backslash cmd) :wait nil)
          (message "何も選択していません。"))))))

(global-set-key #\C-F7 'application-launcher-dialog)
(set-function-bar-label #\C-F7 "ランチャ")

◎ _SplitImage - 画像をスライスするツール :

◎ _画分作文 - 画像分割、JPG保存、ホームページ作成支援ソフト :

◎ _分割保存 スクリプト - GIMP :

◎ 以前の版をアンインストール :

◎ 新しい版をインストール :

◎ 起動時の不具合を避けるために色々と :

courier = "courier new"

courier = "courier new,ms gothic"
Tahoma = "Tahoma,MS UI Gothic"

◎ フォントの検索で時間がかかる原因が判った :

◎ 残ってる作業は :

◎ _継ぎ目なしタイルの比較 :