標準だと、M-x set-justification-right で右寄せしてくれます。がこれだとタブと空白で埋めてくれるので、空白だけで右寄せしてくれるものを作りました。
インストール
- 下の方のelispを right-line.el という名前で、~/.lisp などに保存します。
- ~/.emacs に
と書いておきます。
(require 'right-line)
(global-set-key "\C-cr" 'justify-right-line) ; 行を右寄せする
使い方
右寄せしたい行の上にカーソルを持っていき、C-c r とすれば右寄せされます。選択範囲内の右寄せも出来ます。
桁数は C-u 桁数 M-x set-fill-column で。デフォルトだと C-x f かな？
right-line.el
;;; right-line.el --- 右寄せ
;; $Id: right-line.el,v 1.6 2007/10/11 09:55:17 yama Exp yama $
;; last updated : 2007/10/16 15:00:41 JST
;; Copyright (C) 2007 yama
;; Author: yama <yama@localhost>
;; Keywords:
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; 行を右寄せする。範囲選択していれば範囲選択部分を右寄せする。
;;; ToDo
;;; Code:
(defun yama-region-active-p ()
"リージョンアクティブならtを返す.
2007年10月06日(土曜日) 12:45:08 JST by yama"
(if (and transient-mark-mode mark-active) t nil))
(defun right-line ()
"2007年09月15日(土曜日) 14:46:17 JST
カレント行を空白で埋めて、右寄せする"
(interactive)
(save-excursion
(end-of-line)
(let ((ln(- fill-column (current-column))))
(beginning-of-line)
(insert-char ?\ ln))))
(defun right-line-region (start end)
"選択範囲内を空白で埋めて右寄せする。範囲選択されてなければカレント行を右寄せする
2007年10月06日(土曜日) 12:44:41 JST by yama"
(interactive "r")
(save-excursion
(save-restriction
(goto-char start)
(unless (bolp)
(beginning-of-line)
(setq start (point)))
(goto-char end)
(unless (bolp)
(beginning-of-line)
(setq end (point)))
(narrow-to-region start end)
(let ((max-line (count-lines start end))
(count 0))
(goto-char (point-min))
(while (< count max-line)
(right-line)
(next-line)
(setq count (1+ count)))))))
(defun justify-right-line (start end)
"カレント行を右寄せする。範囲選択されているなら範囲内を右寄せする.
2007年10月16日(火曜日) 14:08:05 JST by yama"
(interactive "r")
(if (yama-region-active-p)
(right-line-region start end)
(right-line)))
(provide 'right-line)
;;; right-line.el ends here
報告書とか文書の末尾の署名なんかに利用すると便利です。
自分で作って使っていなかったり・・・orz
