From: Xah Lee
Subject: Emacs and HTML Tips
Date: 
Message-ID: <1158640520.662573.259170@b28g2000cwb.googlegroups.com>
Emacs and HTML Tips

Xah Lee, 2006-09-19

My website, XahLee.org, has over 3000 html pages as of today. About a
thousand pages are mirrors of Classic Literatures or manuals (e.g.
elisp manual at 850+ pages). These pages are semi-automatically
generated by scripts. The other 2000 or so pages are manually created
with emacs.

This page provides some tips about using Emacs with HTML. If you find
this page incomprehensible, please first be familiar with: Emacs
Intermediate.

In emacs, when you open a file ending in “html”, it'll
automatically open in html-mode.

First of all, put the following code in your emacs init file. (usually
at “~/.emacs”)

; do highlight selection
(transient-mark-mode t)

; turn on syntax highlighting
(font-lock-maximum-decoration 2)

; highlight matching parens.
(show-paren-mode t)

; when there is a selection, delete key deletes the region instead of
just a char.
(delete-selection-mode t)

Except the last one, the others can be found under the menu named
“Options”. If you are using the menu, be sure to also use
“Options → Save Options” so that these are turned on the next
time you start emacs.

Q: How to insert a tag?

A: html-mode provides many shortcuts to insert tags. Here's a list of
tags you can insert and their keyboard shortcuts and command names.

     <h1>     C-c 1           html-headline-1
     <h2>     C-c 2           html-headline-2
     <p>      C-c RET         html-paragraph
     <hr>     C-c C-c -       html-horizontal-rule
     <ul>     C-c C-c u       html-unordered-list
     <li>     C-c C-c l       html-list-item

For a complete list of shortcuts, do “M-x html-mode”, then “C-h
m” to see the list.

Q: How to close a tag?

A: Place your cursor at the place where you want to insert the closing
tag, then press “C-c /”.

Q: How to delete a tag?

A: Put your cursor on or inside the tag, then press C-c DEL. This will
delete both the beginning and ending tags. Very convenient.

Q: How to make the cursor jump to the end of the enclosing tag?

A: C-c C-f. Also, to move to the beginning of a tag pair, do C-c C-b.
The f is for forward, and b for backward.

Q: How to insert my custom tag?

A: Put the following code in your emacs init file. Then, can press 5 on
the keypad, and your custom tag will be inserted, and your cursor point
will be placed in between them.

(global-set-key [kp-5] 'insert-p)

(defun insert-p ()
 "inserts HTML markup <p></p>."
 (interactive)
 (insert "<p>\n</p>")
 (backward-char 5)
)

You can change the string in the above code so that it will insert
another tag that you use frequently, or even a text template, such as
headers and footers. You can also change the keyboard shortcut for
this. For example, you can have the F1, F2, F3... etc function keys
each one inserting a different tag for you.

For how to change the keyboard shortcut, see Defining Your Own Keyboard
Shortcuts.

Q: How to generate a link?

A: Press C-c C-c h (html-href-anchor). Emacs will then ask you to type
a url, then insert it with the closing “</a>”, with your cursor
placed before it so that you can type the link text.

Alternatively, you can place the following lisp code in your emacs init
file:

(defun wrap-url ()
  "Make thing at cursor point into a html link.\n
Example: http://wikipedia.org/
becomes
<a href=\"http://en.wikipedia.org/\">http://wikipedia.org/</a>"
  (interactive)
  (re-search-backward "[\n\t ()]" nil t)
  (looking-at "[\n\t ()]?\\([^\n\t ()]+\\)")
  (let (
        (p1 (match-beginning 1))
        (p2 (match-end 1))
        (url (match-string 1))
        )
    (delete-region p1 p2)
    (goto-char p1)
    (insert "<a href=\"" url "\">" url "</a>" )
    )
  )

(add-hook 'html-mode-hook
 (lambda ()
 (define-key html-mode-map "\M-5" 'wrap-url)
 )
)

With this code, pressing M-5 will automatically make the url your
cursor is on into a link.

Q: How to do a inline image?

A: Press C-c C-c i (html-image). Alternatively, you can place the
following into your emacs init file.

(defun tag-image ()
  "Replace an image file name at point with an HTML img tag.
   eg: x.jpg became <img src=\"x.jpg\" alt="" width=\"123\"
height=\"456\">."
  (interactive)
  (let ((imgName (thing-at-point 'filename))
        (bounds (bounds-of-thing-at-point 'filename)))
    (delete-region (car bounds) (cdr bounds))
    (let ((image-size
           (let ((ximg (create-image (concat default-directory
imgName))))
             (image-size ximg t))))
      (let ((width (number-to-string (car image-size)))
            (height (number-to-string (cdr image-size))))
        (insert "<img src=\"" imgName "\" "
                "alt=\"\" "
                "width=\"" width
                "\" "
                "height=\"" height
                "\">")))))

(add-hook 'html-mode-hook
 (lambda ()
 (define-key html-mode-map "\M-4" 'tag-image)
 )
)

With this code, pressing M-4 while in html-mode will make the url or
relative path into a inline image, with “alt” and “height” and
“width” attributes.

Q: How to wrap a tag around the word at the cursor point?

A: put the following in your emacs init file.

(defun wrap-text (aa bb)
  "Wrap strings aa and bb around a word or region."
  (interactive)
  (if (and transient-mark-mode mark-active)
      (let  ((e1 (region-beginning))  (e2 (region-end)))
        (kill-region e1 e2)
        (insert aa)
        (yank)
        (insert bb)
        )
    (let ((tt (thing-at-point 'word)))
      (skip-chars-backward "^ \t\n,.;?:!<>\'‘’“”")
      (delete-char (save-excursion (skip-chars-forward "^
\t\n.,;?:!<>\'‘’“”")))
      (insert aa tt bb) )
    )
  )


(defun wrap-span-xb ()
  "Wrap a HTML span around a word or region."
  (interactive)
  (wrap-text "<span class=\"xb\">" "</span>")
  )

With the above code, “M-x wrap-span-xb” will wrap a <span
class="xb"> and </span> around the word your cursor is on. You can
change the text so that you can have different commands for tag wraps.
You can also make them into a keyboard shortcuts so that different
press of keys will wrap different tags around the word. (such as, bold,
italic, or any css class or style).

For how to define keyboard shortcuts, see Defining Your Own Keyboard
Shortcuts.

Q: How to find-replace a region with some text?

A: If you have a need to replace several pairs of characters, you can
define a lisp function that does this easy on a region. For example,
place the following in your emacs init file:

(defun replace-string-pairs-region (start end mylist)
  "Replace string pairs in region."
  (save-restriction
    (narrow-to-region start end)
    (mapc
      (lambda (arg)
        (goto-char (point-min))
        (while (search-forward (car arg) nil t) (replace-match (cadr
arg)) )
      ) mylist
    )
  )
)

(defun replace-greek (start end)
  "Replace math symbols. e.g. alpha to α."
  (interactive "r")
(replace-string-pairs-region start end '(
("alpha" "α")
("beta" "β")
("gamma" "γ")
("theta" "θ")
("lambda" "λ")
("delta" "δ")
("epsilon" "ε")
("omega" "ω")
("Pi" "π")
    )
  )
)

With the above code, you can select a region, then press M-x
replace-greek, and have all greek letter names replaced by their
letters. This will be handy when you write a lot math. You can bind
this command to a Keyboard Shortcuts for easy operation.

Also, you can change the code to make it replace other strings. For
example, the following are required:

     >   →   &gt;
     <   →   &lt;
     &   →   &amp;

The following, changing html entities to actual unicode characters
makes the html source code more elegant and readible.

     &ldquo;    →    “
     &rdquo;    →    ”
     &eacute;   →    é
     &copy;     →    ©

Q: How to switch to browser and preview?

A: In html-mode, do C-c C-v. You can also get a textual preview by
pressing C-c TAB, which will hide all the tags. Press C-c TAB again to
show tags.

----
This post is archived at:
http://xahlee.org/emacs/emacs_html.html

  Xah
  ···@xahlee.org
∑ http://xahlee.org/
From: Viper
Subject: Re: Emacs and HTML Tips
Date: 
Message-ID: <zNqdnRkOIu_Y5ZLYnZ2dnUVZ_uydnZ2d@comcast.com>
Fuck off 
From: Jesse Alama
Subject: Re: Emacs and HTML Tips
Date: 
Message-ID: <m2mz8wpd8q.fsf@dnab4225c4.stanford.edu>
"Viper" <······@gmail.com> writes:

> Fuck off 

Well that's not very polite, is it?

Jesse

-- 
Jesse Alama (·····@stanford.edu)
From: Jerry Stuckle
Subject: Re: Emacs and HTML Tips
Date: 
Message-ID: <o9udnZP7D9fPSpLYnZ2dnUVZ_vudnZ2d@comcast.com>
Xah Lee wrote:
> Emacs and HTML Tips
> 

Who cares about Emacs?

Show me how I can do this nifty stuff in edlin!

-- 
==================
Remove the "x" from my email address
Jerry Stuckle
JDS Computer Training Corp.
·········@attglobal.net
==================
From: Baho Utot
Subject: Re: Emacs and HTML Tips
Date: 
Message-ID: <hsv5u3-vlm.ln1@mindanao.kumusta.org>
Jerry Stuckle wrote:

> 
> 
> Xah Lee wrote:
>> Emacs and HTML Tips
>> 
> 
> Who cares about Emacs?
> 
> Show me how I can do this nifty stuff in edlin!
> 

what about in vi and vim?

-- 
Dancin' in the ruins tonight
Tayo'y Mga Pinoy
From: justinhj
Subject: Re: Emacs and HTML Tips
Date: 
Message-ID: <1158775145.726356.293760@h48g2000cwc.googlegroups.com>
This is a fantastic resource, I could spend all day on here Xah Lee.

Justin
comp.lang.lisp / 2006 / sep