网站后台不显示验证码,seo优化关键词放多少合适,一 网站建设管理基本情况,手机表格制作免费软件下载从vim 转到emacs 下,一直为缺少vim 中的tablist 插件而感到失落. 从网上得到的一个emacs中的taglist, 它的功能很简陋,而且没有任何说明, 把它做为elisp的简单实例,供初学者入门倒不错,我给它加了很多注释,帮助理解, 说实话,感觉这百行代码还是挺有深度的,慢慢体会,调试才会有收…从vim 转到emacs 下,一直为缺少vim 中的tablist 插件而感到失落. 从网上得到的一个emacs中的taglist, 它的功能很简陋,而且没有任何说明, 把它做为elisp的简单实例,供初学者入门倒不错,我给它加了很多注释,帮助理解, 说实话,感觉这百行代码还是挺有深度的,慢慢体会,调试才会有收获. 感谢原作者的开源精神!
用法: 把后边的部分存诚taglist.el,在init.el中添加 (requre taglist) 就可以了. 能写elisp代码的人应该对使用不会有问题. $cat taglist.el
;; 全程高能代码
;;定义一个列表, 3种face(高亮语法) ;;正则表达式匹配3个分组, ;;第1分组不带前导空格的词,第2分组L和数字构成,第3分组不带空格的剩余部分 (defvar taglist-keywords (list (list ^\t\\([^ ]*\\) \\(L[0-9]\\) *\\(.*\\)$ 1 font-lock-keyword-face) (list ^\t\\([^ ]*\\) \\(L[0-9]\\) *\\(.*\\)$ 2 font-lock-comment-delimiter-face) (list ^\t\\([^ ]*\\) \\(L[0-9]\\) *\\(.*\\)$ 3 font-lock-function-name-face)))
;;定义一个local-map,定义了2个快捷键. ;;map 是一个对象,或者说是一个列表,其car是keymap,其cdr是一个alist ;;alist由(CHAR.DEFINITION)构成 (defvar taglist-map (let ((map (make-sparse-keymap))) ;清空map (define-key map (kbd RET) taglist-jump) ;定义RET键 (define-key map (kbd q) taglist-kill) ;定义q键 map)) ;返回map,
;;稍微轻松一下 (defvar taglist-mode-hook nil) (defvar taglist-window nil) (defvar taglist-sum 0) ;;定义一个主模式,启用一个local-map,启用一个font-lock (defun taglist-mode nil (interactive) (kill-all-local-variables) (use-local-map taglist-map) (setq major-mode taglist-mode) (setq mode-name Tag-List) (setq font-lock-defaults (list taglist-keywords)) (run-mode-hooks taglist-mode-hook))
;;定义taglist 函数 ;; 获取当前缓冲区及行号,创建tags list缓冲区 ;; 获取tags 并填充 ;; 分割窗口并关联buffer到window,选择window ;; 设置为taglist-mode (defun taglist nil (interactive) (require speedbar) (require imenu) ;; Clear cache (setq imenu--index-alist nil) (let ((buffer (current-buffer)) ;current-buffer函数返回一个对象 (line-num (line-number-at-pos))) ;; Create a buffer (if (get-buffer *tags list*) (kill-buffer *tags list*)) (set-buffer (get-buffer-create *tags list*)) ;; Call speedbar tags (setq taglist-sum 0) (taglist-fill-tags buffer (cddr (speedbar-fetch-dynamic-tags (buffer-file-name buffer))); 传参缓冲区名字,供speedbar生成tag line-num); 行号 (goto-char (point-min)) (forward-line (1- taglist-sum)) (setq taglist-window (split-window-vertically)) ;split-window 返回一个window对象 (set-window-buffer taglist-window *tags list*);设置window对应的缓冲区 (select-window taglist-window) (taglist-mode)));设置主模式 ;;精华所在,高能! ;;在缓冲中填充tags, prefix为前缀,line-num为行号,tags是列表 ;;marker是一种对象,它的表示是例如: #marker at 679 in taglist.el ;;tags 是复合列表,其最后的打印形式为: ;; taglist.el L0 Variables ;; taglist.el L6 -taglist-keywords ;; taglist.el L23 -taglist-sum ;; taglist.el L72 taglist-fill-tags ;; taglist.el L108 taglist-kill ;; taglist.el L119 taglist-jump ;;tags 其文本表示形式为: ;; Result: ((Variables (taglist-keywords . #marker at 90 in taglist.el) (taglist-map . #marker at 482 in taglist.el)) (taglist-mode . #marker at 803 in taglist.el)) (defun taglist-fill-tags (buffer tags prefix line-num) (while tags (if (integer-or-marker-p (cdar tags)) ;若tag 数据第1项为marker (let ((tag-line ;获取tag的行号 (with-current-buffer buffer ;cdar 是先car,再cdr (line-number-at-pos (cdar tags)))));返回buffer中的body (insert (format \t%s L%-5d%s%s\n (buffer-name buffer) tag-line prefix (caar tags)));插入一行数据,缓冲名,行号,名称 (when ( line-num tag-line) (setq taglist-sum (1 taglist-sum)))) ;统计taglist个数a (let* ((dir-string (caar tags)); if的第2部分,非marker时,获取目录字串 (marker (get-text-property 0 org-imenu-marker dir-string)) (tag-line 0)) (if marker (setq tag-line (with-current-buffer buffer (line-number-at-pos marker)))) (insert (format \t%s L%-5d%s%s\n (buffer-name buffer) tag-line prefix (caar tags))) (when ( line-num tag-line) (setq taglist-sum (1 taglist-sum))) (taglist-fill-tags buffer (cdar tags);第归调用自己,处理下一层 (concat - prefix) line-num))) (setq tags (cdr tags))));处理兄弟节点
;;当存在tag-list窗口且不是唯一窗口,则删除窗口并删除缓冲 (defun taglist-kill nil (interactive) (if (and taglist-window (window-live-p taglist-window) (not (one-window-p))) (delete-window taglist-window)) (setq taglist-window nil) (kill-buffer *tags list*)) ;; 跳转: ;;获取当前行内容 ;;提取匹配项,第一项为buffer,第二项为number (defun taglist-jump nil (interactive) (let ((string-line (buffer-substring (line-beginning-position) (line-end-position)))) (string-match ^\t\\([^ ]*\\) L\\([0-9]\\)[^0-9] string-line) (taglist-kill) (switch-to-buffer (match-string 1 string-line)) (goto-char (point-min)) (forward-line (1- (string-to-number (match-string 2 string-line)))))) (provide taglist)
