by shigemk2

当面は技術的なことしか書かない

twittering mode(mac)

こちらをtwittering-modeの設定 - mizchi log
拝借し、設定しました。

(require 'twittering-mode)
(setq twittering-auth-method 'xauth)
(setq twittering-username "yourname") ;;アカウント名を入力
(setq twittering-status-format "%i %s %t %@")
(setq twittering-icon-mode nil)
(setq twittering-convert-fix-size 48) ;;size変更すると読み込めなくなる...
(setq twittering-proxy-use nil)

(defun twittering-mode-hook-func ()
(set-face-bold-p 'twittering-username-face t)
(set-face-foreground 'twittering-username-face "DeepSkyBlue3")
(set-face-foreground 'twittering-uri-face "gray35")
(follow-mode t)
(setq truncate-partial-width-windows nil)
)

(add-hook 'twittering-mode-hook
(lambda ()
'twittering-mode-hook-func
)
)

(add-hook 'twittering-new-tweets-hook
(lambda ()
'twittering-goto-first-status
)
)

(define-key twittering-mode-map "/" 'anything-c-moccur-occur-by-moccur)
(define-key twittering-mode-map "?" 'describe-bindings)
(define-key twittering-mode-map "1" 'delete-other-windows)
(define-key twittering-mode-map "2" 'split-window-vertically)
(define-key twittering-mode-map "3" 'split-window-horizontally)
(define-key twittering-edit-mode-map "\C-p" "\C-c\C-c")
(define-key twittering-edit-mode-map "\C-k" "\C-c\C-k")