mhayashi1120

;;; archive-7z.el --- Archive mode extensions for 7z

;; Author: Masahiro Hayashi <mhayashi1120@gmail.com>
;; Keywords:
;; Emacs: GNU Emacs
;; Package-Requires: ()


;;; Commentary:
;; 

mhayashi1120

;;; -*- coding: utf-8; -*-
;;; gdic.el --- Google translator for Japanese

;; Author: Masahiro Hayashi <mhayashi1120@gmail.com>
;; URL: http://gist.github.com/575981
;; Keywords: google translation
;; Emacs: GNU Emacs 24 or later
;; Package-Requires: ((cl-lib "0.3"))
;; Version: 0.2.0

mhayashi1120

;;; fgit.el --- Functional Git interface for emacs
;; Copyright (C) 2010 by Hayashi Masahiro

;; Author: Hayashi Masahiro <mhayashi1120@gmail.com>
;; URL: 
;; Keywords: Emacs, Git, Frontend
;; Version: 0.0.1

;; fgit.el is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

mhayashi1120

;; Author: Masahiro Hayashi <mhayashi1120@gmail.com>
;; Keywords: 
;; Emacs:
;; Package-Requires: ()

;; * require imagemagick to display icon

;;TODO
;; * show unseen count or only unseen existence.

mhayashi1120

(require 'ert)
(require 'jcalendar)

(ert-deftest jcalendar-era ()
  ""
  :tags '(jcalendar)
  (should (equal (car (jcalendar--date-to-era '(1 6 1989))) "昭和"))
  (should (equal (car (jcalendar--date-to-era '(1 7 1989))) "昭和"))
  (should (equal (car (jcalendar--date-to-era '(1 8 1989))) "平成"))
  (should (equal (car (jcalendar--date-to-era '(1 25 1868))) "明治"))

mhayashi1120

;;; Install:

;; Put this file into load-path'ed directory, and byte compile it if
;; desired. And put the following expression into your ~/.emacs.
;;
;;     (require 'nativechecker)

;;; Usage:

mhayashi1120

;;; twittering-stream.el --- Twitter stream extension.

;; Author: Masahiro Hayashi <mhayashi1120@gmail.com>
;; Keywords: twitter user stream
;; Emacs: GNU Emacs 22 or later
;; Version: 0.0.2
;; Package-Requires: ((json "1.2") (twittering-mode "2.0"))

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as

mhayashi1120

diff --git a/twittering-mode.el b/twittering-mode.el
index 91e0156..b1301ec 100644
--- a/twittering-mode.el
+++ b/twittering-mode.el
@@ -3384,6 +3384,9 @@ Before calling this, you have to configure `twittering-bitly-login' and
     ;; Unicode Character 'FULLWIDTH COMMERCIAL AT' (U+FF20)
     (concat "\\(?:@\\|" (char-to-string full-width-commercial-at) "\\)")))
 
+(defvar twittering-regexp-hashtag-words
+  "\\(\\(?:\\w\\|[_-]\\)+\\)")

mhayashi1120

diff --git a/twittering-mode.el b/twittering-mode.el
index 91e0156..c7bb4fe 100644
--- a/twittering-mode.el
+++ b/twittering-mode.el
@@ -515,6 +515,8 @@ StatusNet Service.")
 	       (search-url . twittering-get-search-url-statusnet)))
   "A list of alist of service methods.")
 
+(defvar twittering-favorites-timeline-page nil)
+

mhayashi1120

(defvar mew-my-message-date-overlay nil)

(defun mew-my-message-date-overlay ()
  (or
   mew-my-message-date-overlay 
   (setq mew-my-message-date-overlay 
         (make-overlay (point-min) (point-min)))))

(defun mew-my-message-display-local-date ()
  (condition-case err