emacs吧 关注：2,853贴子：5,598
不感兴趣
开通SVIP免广告
;;; word-like-count.el --- show word like count in status bar
;;; Commentary:
;;
;; A simple minor-mode to display the word like coun in the status bar.
;;; Code:
(provide 'word-like-count-mode)
(defun spciall-words-count (start end regexp)
(let ((count 0))
(save-excursion
(goto-char start)
(while (and (< (point) end)
(re-search-forward regexp end t))
(setq count (1+ count))))
count))
;; add length display to mode-line construct
(setq mode-line-position (assq-delete-all 'word-like-count-mode mode-line-position))
(setq mode-line-position
(append
mode-line-position
'((word-like-count-mode
(6 (:eval (format " %d,%d,%d,%d,%d"
(+ (spciall-words-count (point-min) (point-max) "\\cc") (spciall-words-count (point-min) (point-max) "[A-Za-z0-9][A-Za-z0-9[:punct:]]*"))
(spciall-words-count (point-min) (point-max) "[^[:space:]]")
(- (point-max) 1)
(spciall-words-count (point-min) (point-max) "[A-Za-z0-9][A-Za-z0-9[:punct:]]*")
(spciall-words-count (point-min) (point-max) "\\cc"))))
nil))))
(define-minor-mode word-like-count-mode
"A simple minor-mode to display the word like coun in the status bar.")
;;; word-like-count-mode.el ends here
---------------------------------------------------------------------------------------------------------------
找不到这种插件，我用wc-mode按照word规则改了一个，你用用看吧。
新建一个word-like-count-mode.el文件
然后在你的配置文件中加入
(add-to-list 'load-path "word-like-count-mode.el所在的文件夹")
(require 'word-like-count-mode)
(global-set-key "\C-xw" 'word-like-count-mode)
;;; Commentary:
;;
;; A simple minor-mode to display the word like coun in the status bar.
;;; Code:
(provide 'word-like-count-mode)
(defun spciall-words-count (start end regexp)
(let ((count 0))
(save-excursion
(goto-char start)
(while (and (< (point) end)
(re-search-forward regexp end t))
(setq count (1+ count))))
count))
;; add length display to mode-line construct
(setq mode-line-position (assq-delete-all 'word-like-count-mode mode-line-position))
(setq mode-line-position
(append
mode-line-position
'((word-like-count-mode
(6 (:eval (format " %d,%d,%d,%d,%d"
(+ (spciall-words-count (point-min) (point-max) "\\cc") (spciall-words-count (point-min) (point-max) "[A-Za-z0-9][A-Za-z0-9[:punct:]]*"))
(spciall-words-count (point-min) (point-max) "[^[:space:]]")
(- (point-max) 1)
(spciall-words-count (point-min) (point-max) "[A-Za-z0-9][A-Za-z0-9[:punct:]]*")
(spciall-words-count (point-min) (point-max) "\\cc"))))
nil))))
(define-minor-mode word-like-count-mode
"A simple minor-mode to display the word like coun in the status bar.")
;;; word-like-count-mode.el ends here
---------------------------------------------------------------------------------------------------------------
找不到这种插件，我用wc-mode按照word规则改了一个，你用用看吧。
新建一个word-like-count-mode.el文件
然后在你的配置文件中加入
(add-to-list 'load-path "word-like-count-mode.el所在的文件夹")
(require 'word-like-count-mode)
(global-set-key "\C-xw" 'word-like-count-mode)
不感兴趣
开通SVIP免广告
阅读材料的话
我是直接看的https://www.gnu.org/software/emacs/manual/（不感觉趣的章节跳过，GNU Emacs Lisp reference manual最后看）。另外1年emacs那篇文章推荐了一本<Writing GNU Emacs Extensions>，主要讲elisp的，不过我没看过（找不到pdf
）。
网站的话，emacswiki应该是最有影响力的。
另外，就是git上特定项目的issue，和stackoverflow。不过这两个，还是查问题的时候用的多。
再有就是，google plus（据说Facebook和twitter上有挺多，还过这两网我用的比较少，不是很清楚）。不过google plus，有点微信那种性致，主要是看看别人用emacs作什么。
以前有人推荐过google group，不过以我自身体验而言，google group上emacs的主题的质量说不上高。
我知道的就这些，我一直也没找到emacs比较好的交流地，emacs目前还是张贴板，这种形式比较多。我自已emacswiki和stackoverflow逛的比较多。
我是直接看的https://www.gnu.org/software/emacs/manual/（不感觉趣的章节跳过，GNU Emacs Lisp reference manual最后看）。另外1年emacs那篇文章推荐了一本<Writing GNU Emacs Extensions>，主要讲elisp的，不过我没看过（找不到pdf
）。网站的话，emacswiki应该是最有影响力的。
另外，就是git上特定项目的issue，和stackoverflow。不过这两个，还是查问题的时候用的多。
再有就是，google plus（据说Facebook和twitter上有挺多，还过这两网我用的比较少，不是很清楚）。不过google plus，有点微信那种性致，主要是看看别人用emacs作什么。
以前有人推荐过google group，不过以我自身体验而言，google group上emacs的主题的质量说不上高。
我知道的就这些，我一直也没找到emacs比较好的交流地，emacs目前还是张贴板，这种形式比较多。我自已emacswiki和stackoverflow逛的比较多。
1. 我先说下我的实现，其实很明了，就是用正则从头数一遍
这个只要规则没问题，统计本身不会有问题
但效能上确实会有问题，因为统计的速度与字数是直接相关的，在字数非常多的时候（比如你说的500k)，这时会出现卡顿的现像（由于emacs是单线和，如果统计时间过长，会卡住emacs）
当然根据实现的优劣，效能的瓶颈也会有高低。精细处理，字数的上限就能更高。实现差，则字数的上限就低。
我写这个elisp的时候，设定的上限是10成万字（实际应该不止这个数）。这个主要是应用场景的问题，这类统计主要的用途应该是作文或是论文一类，10万字应该差不多了（个人感觉）。像你说的几百万字的elisp文档，也没必要开这个吧
。这也是我为什么写成minor－mode，不需要的时候可以不开。
2. 这确实是个不错的思路，我有时间优化下这个elisp
这个我还是解释下，由于那天没什么时间了（我要睡觉了
），而效能也达标了（10万字无卡顿）,我就发出来了。
3. 就以空格而言，我单纯输入一个空格，tab出几个空格(假设设置tab为固定空格的话)，C-y出一堆空格，更进一步，把空格设置成的快捷键的话。这里变数太多，风险完全不可控，我从一开始，就没考虑过这种实现。
4. 不太明白你的意思，"\\cc","[:space:]","[:punct:]"都是在使用语法表，"[A-Za-z0-9]"这个是由于我想不出别的匹配方法才用的（"\\w"同时包含的中英文）。
这个只要规则没问题，统计本身不会有问题
但效能上确实会有问题，因为统计的速度与字数是直接相关的，在字数非常多的时候（比如你说的500k)，这时会出现卡顿的现像（由于emacs是单线和，如果统计时间过长，会卡住emacs）
当然根据实现的优劣，效能的瓶颈也会有高低。精细处理，字数的上限就能更高。实现差，则字数的上限就低。
我写这个elisp的时候，设定的上限是10成万字（实际应该不止这个数）。这个主要是应用场景的问题，这类统计主要的用途应该是作文或是论文一类，10万字应该差不多了（个人感觉）。像你说的几百万字的elisp文档，也没必要开这个吧
。这也是我为什么写成minor－mode，不需要的时候可以不开。2. 这确实是个不错的思路，我有时间优化下这个elisp
这个我还是解释下，由于那天没什么时间了（我要睡觉了
），而效能也达标了（10万字无卡顿）,我就发出来了。3. 就以空格而言，我单纯输入一个空格，tab出几个空格(假设设置tab为固定空格的话)，C-y出一堆空格，更进一步，把空格设置成的快捷键的话。这里变数太多，风险完全不可控，我从一开始，就没考虑过这种实现。
4. 不太明白你的意思，"\\cc","[:space:]","[:punct:]"都是在使用语法表，"[A-Za-z0-9]"这个是由于我想不出别的匹配方法才用的（"\\w"同时包含的中英文）。
不感兴趣
开通SVIP免广告
