2009-08 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

2009-08-08 (土)

twittering-mode.el のハック [Twmode]

2010.4.21 に取り込んで頂きましたので、以下の修正はもう不要です。

大したハックではありませんが、以下の修正をしました。

修正内容


`t' でオフラインとオンラインをトグル出来るようにしました。デフォル
トの twittering-toggle-proxy() へのキーバインドを変更しています。接
続状態はミニバッファに表示されたアイコンで分かるようになっています。
twitter-plugged
twitter-unplugged

`q' で twittering-mode を終了できるようにしました。

Emacs23 以降で twittering-update-lambda() と
twittering-jojo-mode() を実行すると、文字化けする件を修正しました。
[2009-08-01-1] の件です。

反映方法


twittering-mode.el を置いたディレクトリに icons というディレクトリ
を作り、plugged.xpmunplugged.xpm を置いてください。これらの画像
は Navi2ch に付属するものです。

修正した twittering-mode.el へのパッチは以下になります。アイコンを
表示させるコードは Navi2ch から、ほぼそのまま流用させて頂きました。


Index: twittering-mode.el
===================================================================
--- twittering-mode.el	(revision 138)
+++ twittering-mode.el	(working copy)
@@ -296,8 +296,9 @@
       (define-key km "H" 'beginning-of-buffer)
       (define-key km "i" 'twittering-icon-mode)
       (define-key km "s" 'twittering-scroll-mode)
-      (define-key km "t" 'twittering-toggle-proxy)
+      (define-key km "t" 'twittering-toggle-offline)
       (define-key km "\C-c\C-p" 'twittering-toggle-proxy)
+      (define-key km "q" 'twittering-mode-exit)
       nil))

 (defvar twittering-mode-syntax-table nil "")
@@ -363,8 +364,102 @@
   (set-syntax-table twittering-mode-syntax-table)
   (run-hooks 'twittering-mode-hook)
   (font-lock-mode -1)
-  (twittering-start))
+  (twittering-start)
+  (twittering-offline-init-icons)
+  (twittering-set-mode-line-identification))

+(defvar twittering-mode-line-identification nil)
+
+(defmacro twittering-display-image-p ()
+  '(and (display-images-p)
+	(image-type-available-p 'xpm)))
+
+(defvar twittering-online-image nil)
+(defvar twittering-offline-image nil)
+
+(defvar twittering-online-indicator  "[ON] ")
+(defvar twittering-offline-indicator "[--] ")
+(defvar twittering-modeline-online twittering-online-indicator)
+(defvar twittering-modeline-offline twittering-offline-indicator)
+(put 'twittering-modeline-online 'risky-local-variable t)
+(put 'twittering-modeline-offline 'risky-local-variable t)
+
+(defvar twittering-icon-directory
+  (expand-file-name "icons/"
+		    (file-name-directory
+		     (locate-library "twittering-mode")))
+  "* アイコンファイルが置かれたディレクトリ。nil ならアイコンを使わない。")
+
+;; folder icons. filename relative to twittering-icon-directory
+(defvar twittering-online-icon "plugged.xpm"
+  "*Icon file for online state.")
+(defvar twittering-offline-icon "unplugged.xpm"
+  "*Icon file for offline state.")
+
+(defun twittering-offline-init-icons ()
+  (let ((props (when (display-mouse-p)
+		 (list 'local-map (purecopy (make-mode-line-mouse-map
+					     'mouse-2 #'twittering-toggle-offline))
+		       'help-echo "mouse-2 toggles offline mode"))))
+    (if (twittering-display-image-p)
+	(progn
+	  (unless twittering-online-image
+	    (let ((load-path (cons twittering-icon-directory load-path)))
+	      (setq twittering-online-image (find-image
+					     `((:type xpm
+						      :file ,twittering-online-icon
+						      :ascent center)))
+		    twittering-offline-image (find-image
+					      `((:type xpm
+						       :file ,twittering-offline-icon
+						       :ascent center))))))
+	  (setq twittering-modeline-online
+		(apply 'propertize twittering-online-indicator
+		       `(display ,twittering-online-image ,@props))
+                twittering-modeline-offline
+		(apply 'propertize twittering-offline-indicator
+		       `(display ,twittering-offline-image ,@props))))
+      (when props
+        (setq twittering-modeline-online
+              (apply 'propertize twittering-online-indicator props)
+              twittering-modeline-offline
+              (apply 'propertize twittering-offline-indicator props))))))
+
+(defun twittering-set-mode-line-identification ()
+  (let ((offline
+	 '(twittering-timer twittering-modeline-online twittering-modeline-offline)))
+    (unless twittering-mode-line-identification
+      (setq twittering-mode-line-identification
+	    (default-value 'mode-line-buffer-identification)))
+    (setq mode-line-buffer-identification
+          (list offline
+		'twittering-mode-line-identification)))
+  (force-mode-line-update t))
+
+(defun twittering-toggle-offline ()
+  "twittering-mode の接続をトグルする。"
+  (interactive)
+  (cond
+   (twittering-timer
+    (twittering-stop)
+    (message "Now offline"))
+   (t
+    (twittering-start)
+    (message "Now online")))
+  (twittering-set-mode-line-identification))
+
+(defun twittering-mode-exit ()
+  "twittering-mode を終了する。"
+  (interactive)
+  (when (y-or-n-p "Really exit twittering-mode? ")
+    (if twittering-timer
+	(twittering-stop))
+    (dolist (buf (list twittering-http-buffer
+		       twittering-wget-buffer
+		       twittering-buffer))
+      (if (get-buffer buf)
+	  (kill-buffer buf)))))
+
 ;;;
 ;;; Basic HTTP functions
 ;;;
@@ -971,18 +1066,24 @@
   (interactive)
   (twittering-http-post
    "statuses" "update"
-   `(("status" . "\xd34b\xd22b\xd26f\xd224\xd224\xd268\xd34b")
+   `(("status" . ,(if (>= emacs-major-version 23)
+		      "\x3bb\x304b\x308f\x3044\x3044\x3088\x3bb"
+		    "\xd34b\xd22b\xd26f\xd224\xd224\xd268\xd34b"))
      ("source" . "twmode"))))

 (defun twittering-update-jojo (usr msg)
-  (if (string-match "\xde21\xd24b\\(\xd22a\xe0b0\\|\xdaae\xe6cd\\)\xd24f\xd0d6\\([^\xd0d7]+\\)\xd0d7\xd248\xdc40\xd226"
+  (if (string-match (if (>= emacs-major-version 23)
+			"\x6b21\x306b\\(\x304a\x524d\\|\x8cb4\x69d8\\)\x306f\x300c\\([^\x300d]+\\)\x300d\x3068\x8a00\x3046"
+		      "\xde21\xd24b\\(\xd22a\xe0b0\\|\xdaae\xe6cd\\)\xd24f\xd0d6\\([^\xd0d7]+\\)\xd0d7\xd248\xdc40\xd226")
 		    msg)
       (twittering-http-post
        "statuses" "update"
        `(("status" . ,(concat
 		       "@" usr " "
 		       (match-string-no-properties 2 msg)
-		       "\xd0a1\xd24f\xd243!?"))
+		       (if (>= emacs-major-version 23)
+			   "\x3000\x306f\x3063!?"
+			 "\xd0a1\xd24f\xd243!?")))
 	 ("source" . "twmode")))))

 ;;;



P.S.
"C-c C-s" で投稿する時は、ミニバッファ以外を使うようにしたいですねえ。
あと、作者さんにはどうやって連絡を取るのでしょうか。。。

追記(2009-11-21):
作者さんに連絡とれました。
Emacs23 以降で twittering-update-lambda() と
twittering-jojo-mode() を実行すると、文字化けする件は最新の Git
リポジトリでは修正されていました。他 2 つのパッチも取り込んでいただ
けそうな雰囲気です。

2009-08 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

検索


最近の話題
- 2021-01-16
  tfupdate orb の circleci/orb-tools を v8.27.5 から v10.0.3 にアップデートした
- 2021-01-05
  思考を寝かせて、優先順位を決めるための「やるかもしれないリスト」がとてもうまくワークしている
- 2020-12-20
  『データマネジメントが30分でわかる本』を読んだ
- 2020-12-03
  優先度より優先順位のほうが偉い
- 2020-11-10
  『理論から学ぶデータベース実践入門』を読んだ
- 2020-10-30
  CircleCI の旧 UI で設定した Slack Integration の設定を確認も変更も削除もできない件への対応方法
- 2020-09-03
  Looker User Meetup in Tokyo #4(BEACON Japan 前夜祭)に参加した #lookermeetup
最近追記された記事
- 2014-11-02-2 (301日前)
- 2020-01-22-1 (307日前)
- 2019-02-11-1 (481日前)
- 2019-02-03-1 (481日前)
- 2019-01-28-1 (481日前)
- 2019-02-03-1 (523日前)
- 2018-11-28-1 (537日前)
- 2019-05-07-1 (617日前)
- 2018-04-30-1 (632日前)
- 2018-01-28-1 (644日前)
カテゴリ
- Android (2)
- Anthy (3)
- Apache (11)
- Apple (1)
- ATOK (4)
- au (3)
- AWS (24)
- Bazaar (1)
- Berkshelf (2)
- BigQuery (1)
- BitBar (4)
- Book (111)
- Boxen (2)
- Bugsnag (1)
- capistrano (4)
- chalow (57)
- ChatWork (1)
- Chef (17)
- Chrome (3)
- Chromecast (1)
- CircleCI (14)
- clang (26)
- Comics (2)
- Cooking (10)
- cvs (15)
- cygwin (12)
- D3.js (1)
- Debian (55)
- Docker (5)
- E-mail (9)
- elasticsearch (4)
- Emacs (225)
- Emacs講座 (10)
- English (4)
- feedforce (7)
- fetchmail (3)
- Firefox (20)
- Fluentd (4)
- ftp (2)
- Game (21)
- GCP (1)
- Gem (5)
- Git (9)
- GitHub (23)
- golang (11)
- Google (1)
- gpg (4)
- GrowthForecast (7)
- Health (7)
- Heroku (21)
- Homebrew (10)
- HTML (6)
- iBook (1)
- iOS (1)
- iPad (1)
- iPhone (17)
- IRC (1)
- Jenkins (8)
- JS (1)
- Karabiner (1)
- KeySnail (3)
- Kibana (1)
- Kindle (1)
- Kubernetes (2)
- Langrich (7)
- LDAP (6)
- Life (24)
- Linux (7)
- Mackerel (1)
- macOS (1)
- Mew (18)
- MongoDB (1)
- Mozilla (19)
- Music (1)
- MySQL (1)
- NAS (4)
- nginx (6)
- NHK (1)
- Node (1)
- ntp (4)
- OOP (2)
- OpenID (2)
- openssl (1)
- Opera (2)
- OSX (41)
- Perl (14)
- PHP (19)
- PostgreSQL (1)
- procmail (4)
- Programing (3)
- Puppet (1)
- Python (2)
- Rails (13)
- Rake (2)
- RaspberryPi (2)
- Redash (1)
- RedHat (29)
- Redmine (3)
- RSpec (2)
- Ruby (54)
- samba (3)
- screen (7)
- sed (5)
- serverspec (6)
- sh (8)
- Slack (4)
- Solaris9 (22)
- Spring (2)
- ssh (4)
- StatusNet (21)
- svn (12)
- Swift (1)
- Tablet (1)
- tdiary (3)
- Terraform (3)
- Twitter (15)
- Twmode (6)
- Ubuntu (5)
- UNIX (102)
- vagrant (8)
- Video (21)
- vim (1)
- Wercker (9)
- Windows (29)
- Wine (3)
- XML (11)
- XP (1)
- zsh (26)
- インストールメモ (33)
- クイックシェイプ (12)
- ネタ (15)
- 勉強会 (19)
- 携帯 (6)
- 正規表現 (4)
過去ログ
2021 : 01 02 03 04 05 06 07 08 09 10 11 12
2020 : 01 02 03 04 05 06 07 08 09 10 11 12
2019 : 01 02 03 04 05 06 07 08 09 10 11 12
2018 : 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
2016 : 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
2014 : 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
2012 : 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
2010 : 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
2008 : 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
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12
2002 : 01 02 03 04 05 06 07 08 09 10 11 12
2001 : 01 02 03 04 05 06 07 08 09 10 11 12