gist を blog に embed する時の見た目や色（CSS） を変える

blog に gist を貼り付けることが多いです。見た目を変えたいなぁと思っていたのでやってみました。
参考にしたのはこちら。

• ダイアリーに貼り付けるgistのコードの見た目をカスタマイズする - 今日もスミマセン。
• 弊日記 での Gist embed の CSS 設定 - ガッデム・エレクトリック
• gist.github.com/stylesheets/gist/embed.css

色合いは自分の Emacs のハイライトを htmlize.el したものを参考にしてやってみました。やってみたんですが、どうにもクドイので実際にこのまま使うか迷っています。

• vallog: ソースコードハイライト htmlize.el

こんな感じ。

	;; fold-right
	(display
	(fold-right (lambda (e acc)
	(let ((p (compose zero? (cut modulo e <>))))
	(cons (cond ((p 15) "fizzbuzz")
	((p 5) "buzz")
	((p 3) "fizz")
	(else e)) acc)))
	'() (iota 100 1)))

view raw temp.scm hosted with ❤ by GitHub

css

用意した css は以下のものです。

• gist: 649765 - css, gist embed- GitHub

余談ですが

Emacs では color-theme.el の midnight を少し変更したものを使っています。

;; color theme
(require 'color-theme nil t)
(color-theme-initialize)
(color-theme-midnight)
(set-face-background 'region "blue4")
(set-face-background 'trailing-whitespace "purple4")
(set-face-background 'modeline-buffer-id "grey5")
(set-face-foreground 'modeline-buffer-id "maroon2")
(set-face-background 'mode-line "grey20")
(set-face-foreground 'mode-line "grey75")
(set-face-background 'mode-line-inactive "grey3")
(set-face-foreground 'mode-line-inactive "grey35")
(set-face-background 'secondary-selection "red")
(set-face-underline-p 'modeline nil)
(custom-set-faces
 '(font-lock-comment-face ((t (:italic nil :foreground "slate gray")))))

Scheme のハイライトは quack.el の pltish を少し変更しています。

;; quack
(custom-set-faces
 '(quack-pltish-keyword-face ((t (:bold t :foreground "maroon2"))))
 '(quack-pltish-defn-face ((t (:bold t :foreground "darkgoldenrod3"))))
 '(quack-threesemi-semi-face ((t (:bold t :foreground "blue"))))
 '(quack-threesemi-text-face ((t (:bold t :foreground "blue")))))

追記

gist のハイライトの変更は止めました。