HTML

最新推荐文章于 2025-07-24 17:35:32 发布

原创最新推荐文章于 2025-07-24 17:35:32 发布 · 637 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#hyperlink #autoload #html #download #file #insert

HTML 专栏收录该内容

2 篇文章

订阅专栏

download component html-helper-mode.el and tempo.el throughhttp://tuvalu.santafe.edu/~nelson/hhm-beta/ , add below info in .emacs

;;html-helper-mode.el
(add-to-list 'load-path "/home/ryu/emacs/site")
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))

;; Recognize server-parsed HTML files
(setq auto-mode-alist (cons '("\\.shtml$" . html-helper-mode) auto-mode-alist))

;; Insert a HTML template to new file
(setq html-helper-build-new-buffer t)

;; when you create a new file, then enter below comtent in template file
(setq html-helper-address-string 
  "<a href=\"your_URL\">your_name <your_e-mail_address></a>")

;; Enable time stamp,put in the date of last modification
(setq html-helper-do-write-file-hooks t)

;; when type C-c C-a l,Enable hyperlink prompt in minibuffer
(setq tempo-interactive t)

pending issue.

for my emacs, I use below logic for auto-pair. but there is an annoying thing that every time i type"{"then "}" will appear on the next two line,for the format of html file, i should delete these whitespace every time. then i have tried to comment below conditon for html-mode-hook and html-helper-load-hook, but auto-pair still work, so i think it should be in html-helper-mode.el that enable this logic, but i really can't find the corresponding part. now just pending on this issue, i will check these later.

(defun my-common-mode-auto-pair ()
  (interactive)
  (make-local-variable 'skeleton-pair-alist)
  (setq skeleton-pair-alist  '(
			       (? ? _ "''")
			       (? ? _ """")
			       (? ?  _ "()")
			       (? ?  _ "[]")
			       (?{ \n > _ \n ?} >)))
  (setq skeleton-pair t)
  (local-set-key (kbd "(") 'skeleton-pair-insert-maybe)
  (local-set-key (kbd "\"") 'skeleton-pair-insert-maybe)
  (local-set-key (kbd "{") 'skeleton-pair-insert-maybe)
  (local-set-key (kbd "\'") 'skeleton-pair-insert-maybe)
  (local-set-key (kbd "[") 'skeleton-pair-insert-maybe))
(add-hook 'c-mode-hook 'my-common-mode-auto-pair)
(add-hook 'c++-mode-hook 'my-common-mode-auto-pair)
(add-hook 'java-mode-hook 'my-common-mode-auto-pair)
(add-hook 'lisp-mode-hook 'my-common-mode-auto-pair)
(add-hook 'php-mode-hook 'my-common-mode-auto-pair)
(add-hook 'python-mode-hook 'my-common-mode-auto-pair)
;;(add-hook 'html-mode-hook 'my-common-mode-auto-pair)
;;(add-hook 'html-helper-load-hook 'my-common-mode-auto-pair)
(add-hook 'scheme-mode-hook 'my-common-mode-auto-pair)
(add-hook 'css-mode-hook 'my-common-mode-auto-pair)
(add-hook 'sql-mode-hook 'my-common-mode-auto-pair)
(add-hook 'emacs-lisp-mode-hook 'my-common-mode-auto-pair)
(add-hook 'text-mode-hook 'my-common-mode-auto-pair)
(add-hook 'slime-repl-mode-hook 'my-common-mode-auto-pair)