Add another count words related function
This commit is contained in:
parent
c9b9c2552e
commit
db6b1e941e
18
my-funcs.el
18
my-funcs.el
|
@ -303,4 +303,22 @@ For instance pass En as source for english."
|
||||||
(setq google-translate-default-source-language source)
|
(setq google-translate-default-source-language source)
|
||||||
(setq google-translate-default-target-language target))
|
(setq google-translate-default-target-language target))
|
||||||
|
|
||||||
|
;; from http://www.emacswiki.org/emacs/WordCount
|
||||||
|
(defun count-words-analysis (start end)
|
||||||
|
"Count how many times each word is used in the region.
|
||||||
|
Punctuation is ignored."
|
||||||
|
(interactive "r")
|
||||||
|
(let (words)
|
||||||
|
(save-excursion
|
||||||
|
(goto-char start)
|
||||||
|
(while (re-search-forward "\\w+" end t)
|
||||||
|
(let* ((word (intern (match-string 0)))
|
||||||
|
(cell (assq word words)))
|
||||||
|
(if cell
|
||||||
|
(setcdr cell (1+ (cdr cell)))
|
||||||
|
(setq words (cons (cons word 1) words))))))
|
||||||
|
(when (interactive-p)
|
||||||
|
(message "%S" words))
|
||||||
|
words))
|
||||||
|
|
||||||
(provide 'my-funcs)
|
(provide 'my-funcs)
|
||||||
|
|
|
@ -219,6 +219,7 @@
|
||||||
(evil-leader/set-key "xtw" 'transpose-words)
|
(evil-leader/set-key "xtw" 'transpose-words)
|
||||||
(evil-leader/set-key "xU" 'upcase-region)
|
(evil-leader/set-key "xU" 'upcase-region)
|
||||||
(evil-leader/set-key "xu" 'downcase-region)
|
(evil-leader/set-key "xu" 'downcase-region)
|
||||||
|
(evil-leader/set-key "xwC" 'count-words-analysis)
|
||||||
(evil-leader/set-key "xwc" 'count-words-region)
|
(evil-leader/set-key "xwc" 'count-words-region)
|
||||||
;; google translate -----------------------------------------------------------
|
;; google translate -----------------------------------------------------------
|
||||||
(evil-leader/set-key "xgl" 'set-google-translate-languages)
|
(evil-leader/set-key "xgl" 'set-google-translate-languages)
|
||||||
|
|
Loading…
Reference in a new issue