This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; move-current-tab-to-top | |
;; gist-description: Emacs(Elisp): move current tab (buffer) to top at tabbar-mode. tabbarで選択中のタブ(バッファ)を左端に移動します。 | |
;; gist-id: 54dab2fc5f2e278833f5 | |
;; gist-name: move-current-tab-to-top.el | |
;; gist-private: nil | |
(defun move-current-tab-to-top () | |
"Move current tab to top." | |
(interactive) | |
(let* ((bufset (tabbar-current-tabset t)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; ------------------------------------------------------------ | |
;;; 選択範囲を計算してバッファに出力 | |
;; gist-description: Emacs(Elisp): calculate region and insert. 選択範囲の数式を計算して、次の行にinsertします。数字が羅列されている場合は、加算します。数字や式と自然な文章が混在している場合は、数式のみを計算します。 | |
;; gist-id: b967d6a7441f85aa541d | |
;; gist-name: calculate-region-and-insert.el | |
;; gist-private: nil | |
(defun add-number-grouping (number &optional separator) | |
"Add commas to NUMBER and return it as a string. | |
Optional SEPARATOR is the string to use to separate groups. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; ------------------------------------------------------------ | |
;;; 大きいファイルを早く開きたい | |
;; gist-description: Emacs(Elisp): Open large file quickly. 大きいファイルを早く開きたい | |
;; gist-id: 96e00bd843c838f45ab8183e286150ec | |
;; gist-name: open-large-file-quickly.el | |
;; gist-private: nil | |
(defun open-large-file-quickly() | |
"To read large file." | |
(interactive) | |
(progn |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; ------------------------------------------------------------ | |
;;; 次/前のwordbreakへ | |
;; gist-description: Emacs(Elisp): forward/backward-wordだと、移動距離が微妙に大きいので、単語境界でひっかかるように。 | |
;; gist-id: 467f4302c002049bfb95511bd21cdbe7 | |
;; gist-name: move-to-next(previous)-word-break.el | |
;; gist-private: nil | |
;; thx http://d.hatena.ne.jp/h1mesuke/20070803/p1 | |
(defun move-to-next-word-break (&optional arg) | |
"Move point forward ARG word breaks (backward if ARG is negative)." |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; ------------------------------------------------------------ | |
;;; 全角英数字を半角英数字に、半角カナを全角に、UTF-8の濁点分離を直す | |
;; http://d.hatena.ne.jp/nakamura001/20120529/1338305696 | |
;; http://www.sakito.com/2010/05/mac-os-x-normalization.html | |
;; gist-description: Emacs(Elisp): 全角英数字を半角英数字に、半角カナを全角に、UTF-8の濁点分離を直す。 | |
;; gist-id: 08a752b04107dbc50ef5 | |
;; gist-name: normalize-chars.el | |
;; gist-private: nil | |
(require 'ucs-normalize) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; ------------------------------------------------------------ | |
;;; 選択範囲を1行にする。最初のインデントは残す。 | |
;; gist-description: Emacs(Elisp): Join multi lines to one. 選択範囲を1行にまとめます。 | |
;; gist-id: ee6b2f8ef659ed58605d | |
;; gist-name: join-multi-lines-to-one.el | |
;; gist-private: nil | |
(defun join-multi-lines-to-one () | |
"Join multi lines." | |
(interactive) |
OlderNewer