怎样在 Emacs 中编辑任意文字区域: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
No edit summary |
||
| (One intermediate revision by the same user not shown) | |||
| Line 3: | Line 3: | ||
# 在 Emacs 配置文件中写下: | # 在 Emacs 配置文件中写下: | ||
<syntaxhighlight lang="elisp" line> | <syntaxhighlight lang="elisp" line> | ||
;;; | ;;; init-edit-textarea-with-emacs.el -*- lexical-binding: t -*- | ||
;; https://github.com/stsquad/emacs_chrome | ;;; 在 Mediawiki 的任意输入框,用 Emacs 编辑 | ||
;;; 与 emacsclient 的 server-start 没有关系,只是名字相似 | |||
;;; https://github.com/stsquad/emacs_chrome | |||
(use-package mediawiki-mode ;; 声明我要管理名为 foo 的 Emacs feature;至于它该从哪个 package 安装,可以由 :ensure 另行指定。 | |||
:ensure mediawiki | |||
:commands mediawiki-mode) | |||
(use-package edit-server | (use-package edit-server | ||
:ensure t | :ensure t | ||
:commands edit-server-start | :commands edit-server-start | ||
:init (if after-init-time | :init | ||
(if after-init-time | |||
(edit-server-start) | (edit-server-start) | ||
(add-hook 'after-init-hook | (add-hook 'after-init-hook | ||
#'(lambda() (edit-server-start)))) | #'(lambda() (edit-server-start)))) | ||
:config (setq edit-server-new-frame-alist | :config | ||
(setq edit-server-url-major-mode-alist | |||
'(("qingliezhiquan\\.com" . mediawiki-mode))) | |||
(setq edit-server-new-frame-alist | |||
'((name . "Edit with Emacs FRAME") | '((name . "Edit with Emacs FRAME") | ||
(top . 200) | (top . 200) | ||
| Line 20: | Line 31: | ||
(minibuffer . t) | (minibuffer . t) | ||
(menu-bar-lines . t)))) | (menu-bar-lines . t)))) | ||
(provide 'init-edit-textarea-with-emacs) | |||
</syntaxhighlight> | </syntaxhighlight> | ||
即可。 | 即可。 | ||
Latest revision as of 22:17, 20 July 2026
- 在 Firefox 中,安装
Edit with Emacs拓展 - 在 Emacs 中,用 package-list-packages 安装
use-package拓展 - 在 Emacs 配置文件中写下:
;;; init-edit-textarea-with-emacs.el -*- lexical-binding: t -*-
;;; 在 Mediawiki 的任意输入框,用 Emacs 编辑
;;; 与 emacsclient 的 server-start 没有关系,只是名字相似
;;; https://github.com/stsquad/emacs_chrome
(use-package mediawiki-mode ;; 声明我要管理名为 foo 的 Emacs feature;至于它该从哪个 package 安装,可以由 :ensure 另行指定。
:ensure mediawiki
:commands mediawiki-mode)
(use-package edit-server
:ensure t
:commands edit-server-start
:init
(if after-init-time
(edit-server-start)
(add-hook 'after-init-hook
#'(lambda() (edit-server-start))))
:config
(setq edit-server-url-major-mode-alist
'(("qingliezhiquan\\.com" . mediawiki-mode)))
(setq edit-server-new-frame-alist
'((name . "Edit with Emacs FRAME")
(top . 200)
(left . 200)
(width . 80)
(height . 25)
(minibuffer . t)
(menu-bar-lines . t))))
(provide 'init-edit-textarea-with-emacs)
即可。