Skip to content

Instantly share code, notes, and snippets.

@myuhe
myuhe / dotskk.el
Created June 17, 2010 08:50
SKKの設定
;;.SKKの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;表示の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; メッセージを日本語で通知する
(setq skk-japanese-message-and-error t)
;; メニューを英語で表示する
@myuhe
myuhe / inoreader_conpact.user.js
Last active November 15, 2022 19:42
InoReader Compact
// ==UserScript==
// @name InoReader Compact
// @namespace http://thekryz.de
// @version 2013.09.20
// @description Makes InoReader more compact
// @match https://inoreader.com/*
// @match http://inoreader.com/*
// @match https://www.inoreader.com/*
// @match http://www.inoreader.com/*
// @include http://jp.inoreader.com/*
@myuhe
myuhe / InoReader_Colorful_ListView.user.js
Last active November 19, 2017 05:36
Set different background colors to article header based on article sources
// ==UserScript==
// @name InoReader Colorful ListView Mod
// @name:en InoReader Colorful ListView Mod
// @namespace https://gist.github.com/myuhe/c2207a76f77b65b072b6
// @version 0.9.1
// @description:ja InoReaderの記事を色分け
// @description:en Set different background colors to article header based on article sources
// @author http://sheephead.homelinux.org/
// @include http*://www.inoreader.com/*
// @include http*://inoreader.com/*
#!/usr/bin/python2
# -*- coding: utf-8 -*-
import sys
import re, os
import binascii
import codecs
import netrc
def get_password_emacs(machine, login, port):
;;; anything-gist.el --- anything-sources and some utilities for gist.
;; Filename: auto-complete-acr.el
;; Description: Anything extension for gist
;; Author: myuhe <yuhei.maeda_at_gmail.com>
;; Maintainer: myuhe
;; Copyright (C) 2009, 2010, myuhe , all rights reserved.
;; Created: 2009-04-13
;; Version: 0.6
;; Keywords: convenience, anything, git, gist
@myuhe
myuhe / ess-R-object-popup.el
Created March 1, 2010 13:16
ess-R-object-popup.el
;; ess-R-object-popup.el
;;
;; I have defined a function, ess-R-object-popup, that when
;; invoked, will return a popup with some information about
;; the object at point. The information returned is
;; determined by which R function is called. This is controlled
;; by an alist, called ess-R-object-popup-alist. The default is
;; given below. The keys are the classes of R object that will
;; use the associated function. For example, when the function
;; is called while point is on a factor object, a table of that
({filter:{name:"", regexp:{}, children:[{name:"AD", regexp:{title:/^\W?(?:ADV?|PR)\b/}, children:[], hitcount:172, lasthit:1378381183263}, {name:"pr", regexp:{}, children:[], hitcount:0, lasthit:0}], hitcount:172, lasthit:1378381183263}})
(require 'mu4e)
;; default
(setq mu4e-maildir (expand-file-name "~/Maildir"))
(setq mu4e-drafts-folder "/[Gmail].Drafts")
(setq mu4e-sent-folder "/[Gmail].Sent Mail")
(setq mu4e-trash-folder "/[Gmail].Trash")
(setq mu4e-html2text-command "w3m -dump -T text/html")
diff -r 88dc0036b12c .emacs.d/vendor/elpa/pophint-20130804.1927/pophint.el
--- a/.emacs.d/vendor/elpa/pophint-20130804.1927/pophint.el Mon Aug 05 09:22:40 2013 +0900
+++ b/.emacs.d/vendor/elpa/pophint-20130804.1927/pophint.el Mon Aug 05 17:28:19 2013 +0900
@@ -530,10 +530,10 @@
(with-selected-window (or (and (windowp window) (window-live-p window) window)
(nth 0 (get-buffer-window-list)))
(save-restriction
- (narrow-to-region (save-excursion (or (when (forward-line -100) (point))
- (point-min)))
- (save-excursion (or (when (forward-line 100) (point))
(defun image-mode ()
"Major mode for image files.
You can use \\<image-mode-map>\\[image-toggle-display]
to toggle between display as an image and display as text."
(interactive)
(condition-case err
(progn
(unless (display-images-p)
(error "Display does not support images"))