emacs – 使用elisp处理文本

概述自从我转换为Emacs教会以来,我一直在尝试从内部做所有事情,我想知道如何快速高效地进行文本处理. 作为一个例子,让我们在几分钟前在org-mode上编辑我正在编辑的列表. ** Diego: b QI** bruno-gil: b QI** Koma: jo** um: rsrs pr0n** FelipeAugusto: esp** GustavoPupo: pinto tr et 自从我转换为Emacs教会以来,我一直在尝试从内部做所有事情,我想知道如何快速高效地进行文本处理.

作为一个例子,让我们在几分钟前在org-mode上编辑我正在编辑的列表.

** DIEgo: b QI** bruno-gil: b QI** Koma: jo** um: rsrs pr0n** FelipeAugusto: esp** GustavoPupo: pinto tr etc** GP: lit gtk** Alan: jo mil pc** Jost: b hq jo 1997** Herbert: b rsrs pr0n** Andre: maia mil pseudo** Rodrigo: c** caue: b rsrs 7arte pseudo** kenny: cri gif** danIEl: gtk mu pr0n rsrs b** tony: an 1997 esp** Vitor: b jo mimimi** raphael: b rpg 7arte** Luca: b lit gnu pc prog mmu 7arte 1997** LZZ: an qt** William: b an jo pc 1997** Epic: gtk** Aldo: b pseudo pol mil fur** GustavoKyon: an gtk** CarlosIsaksen : an hq jo 7arte gtk 1997** Peter: pseudo pol mil est 1997 gtk lit lang** leandro: b jo cb** frederico: 7arte lit gtk** rol: b an pseudo mimimi 7arte** mathias: jo lit** henrique: 1997 h gtk qt** eumané: an qt** walrus: cri de** FilipePinheiro: lit pseudo** Igor: pseudo b** Erick: b jo rpg q 1997 gtk** GabrIEl: pr0n rsrs qt** george: clo mimimi** anão: hq jo 1997 rsrs clô b** jeff: 7arte gtk** davIDatenas:  an 7arte 1997 esp qt** HHahaah: b ** Eduardo: b

它是与标签关联的名称列表,我想获得与名称关联的标签列表.

在bash中,我首先用单引号回显整个粘贴的东西,然后将其传递给awk,循环遍历每一行并将每个部分添加到正确的临时变量中,然后将其弄乱,直到它像我想要的那样.

echo '** DIEgo: b QI** bruno-gil: b QI** Koma: jo** um: rsrs pr0n** FelipeAugusto: esp** GustavoPupo: pinto,tr etc** GP: lit gtk** Alan: jo mil pc** Jost: b hq jo 1997** Herbert: b rsrs pr0n** Andre: maia mil pseudo** Rodrigo: c** caue: b rsrs 7arte pseudo** kenny: cri gif** danIEl: gtk mu pr0n rsrs b** tony: an 1997 esp** Vitor: b jo mimimi** raphael: b rpg 7arte** Luca: b lit gnu pc prog mmu 7arte 1997** LZZ: an qt** William: b an jo pc 1997** Epic: gtk** Aldo: b pseudo pol mil fur** GustavoKyon: an gtk** CarlosIsaksen : an hq jo 7arte gtk 1997** Peter: pseudo pol mil est 1997 gtk lit lang** leandro: b jo cb** frederico: 7arte lit gtk** rol: b an pseudo mimimi 7arte** mathias: jo lit** henrique: 1997 h gtk qt** eumané: an qt** walrus: cri de** FilipePinheiro: lit pseudo** Igor: pseudo b** Erick: b jo rpg q 1997 gtk** GabrIEl: pr0n rsrs qt** george: clo mimimi** anão: hq jo 1997 rsrs clô b** jeff: 7arte gtk** davIDatenas:  an 7arte 1997 esp qt** HHahaah: b** Eduardo: b' | awk '{sub(":","");for (i=3;i<=NF;i++) members[$i] = members[$i] " " }; END{for (j in members) print j ": " members[j]}' | sort

……和TA-DA！预期的输出不到2分钟,以直观和渐进的方式完成.你能告诉我如何在elisp中做这样的事情,最好是在emacs缓冲区,优雅和简单吗？

谢谢！

解决方法 我要做的第一件事就是利用org-mode的标签支持.代替

** DIEgo: b QI

你将会拥有

** DIEgo                          :b:QI:

哪个组织模式识别为标签“b”和“QI”.

要将当前格式转换为标准组织模式,您可以使用
以下(假设您的源缓冲区称为“asdf”)

(with-current-buffer "asdf"  (beginning-of-buffer)  (replace-string " " ":")  (beginning-of-buffer)  (replace-string "**:" "** ")  (beginning-of-buffer)  (replace-string "::" " :")  (beginning-of-buffer)  (replace-string "\n" ":\n")  (org-set-Tags-command t t))

这不是很好或有效,但它完成了工作.

之后,您可以使用以下内容生成具有该格式的缓冲区
你想从shell脚本：

(let ((results (get-buffer-create "results"))      Tags)  (with-current-buffer "asdf"    (beginning-of-buffer)    (while (org-on-heading-p)      (mapc '(lambda (item) (when item (add-to-List 'Tags item))) (org-get-local-Tags))      (outline-next-visible-heading 1)))  (setq Tags (sort Tags 'string<))  (with-current-buffer results    (erase-buffer)    (mapc '(lambda (item)             (insert (format "%s: %s\n"                             item                             (with-current-buffer "asdf"                               (org-map-entrIEs '(substring-no-propertIEs (org-get-heading t)) item)))))          Tags)    (beginning-of-buffer)    (replace-regexp "[()]" "")))

这会将结果放在一个名为“results”的缓冲区中,如果没有,则创建它
已经存在.基本上,它正在收集缓冲区“asdf”中的所有标签,
对它们进行排序,然后循环遍历每个标记并搜索每个标题
“asdf”中的标记并将其插入“结果”.

通过一些清理,这可以成为一个功能;基本上只是用参数替换“asdf”和“results”.如果你需要那样做,我可以做到那.

总结

以上是内存溢出为你收集整理的emacs – 使用elisp处理文本全部内容，希望文章能够帮你解决emacs – 使用elisp处理文本所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。