如何在emacs中创建标题行？

Question

假设我有一句台词：

 
This is a title 

我想强调此行是这样的：

 
This is a title 
=============== 

任何想法，如果这样的功能是在emacs中已经可用？

Answer 1

WRT可读性不写的最短途径：

(defun underline() 
    (interactive "*") 
    (let* ((len (- (line-end-position) (line-beginning-position))) 
    (strg (make-string len ?\=))) 
    (end-of-line) 
    (insert "\n") 
    (insert strg))) 

Answer 2

安装markdown-mode。它使用功能markdown-insert-title（绑定到C-c C-t t）执行此操作。

编辑：我没有最新的2.0版本还没有，但如果我理解正确的释放指出，markdown-insert-title已更名为markdown-insert-header-setext-1和按键绑定已更改为C-C C-T！。

Answer 3

嘿，我很久以前就想这么写了。我不知道它是否已经以另一种形式打包出来。这是我的版本：

(defun underline-previous-line() 
    "Insert enough dashes on the current line to \"underline\" the line above the point. 
Underline the line above the current point, 
but don't underline any whitespace at the beginning of the line. 
Delete the current line when made of whitespace and/or dashes." 
    (interactive) 
    (let ((p (point))) 
    (forward-line -1) 
    (if (looking-at "^\\([ \t]*\\).+$") 
     (progn 
      (goto-char p) 
      (beginning-of-line) 
      (let ((spaces (if (match-end 1) (- (match-end 1) (match-beginning 1)) 0))) 
      (insert (concat 
        (make-string spaces ?\) 
        (make-string (- (match-end 0) (match-beginning 0) spaces) ?\-) 
        (save-match-data 
         (if (looking-at "^[-  ]*-[- ]*$") ; need one dash 
          (delete-region (match-beginning 0) (match-end 0)) 
         "\n"))))))) 
    (goto-char p) 
    ;; yes, next-line is what we want for intuitive cursor placement 
    ;; a save-excursion makes life a little more difficult b/c the point 
    ;; moves around oldly b/c of the insert 
    (next-line 1))) 

只需将' - '更改为'='，它会做你想做的。