Para gerar a lista de etiquetas
Lista de etiquetas, funções em lisp para o blog
Mais três funções:
(defun muse-extract-project-keywords () (setq files (muse-project-file-alist)) (setq keywords-list (split-string (muse-extract-file-directive (caar files) "keywords") ", ")) (while files (setq keywords-list (append (split-string (muse-extract-file-directive (caar files) "keywords") ", ") keywords-list)) (setq files (cdr files))) keywords-list)
(defun string-in-list-count (str list) (cond (list (cond ((string-equal str (car list)) (+ 1 (string-in-list-count str (cdr list)))) (t (+ 0 (string-in-list-count str (cdr list)))))) (t 0)))
(defun muse-project-keywords-count () (setq keywords-list (muse-extract-project-keywords)) (while keywords-list (setq keywords-list-count (cons (list (car keywords-list) (string-in-list-count (car keywords-list) keywords-list)) keywords-list-count)) (setq keywords-list (delete (car keywords-list) keywords-list))) keywords-list-count)
Esta última, porque está implementada de uma forma recursiva, excede o número de máximo de composições permitido pelo Emacs.
Palavras chave/keywords: lisp, emacs, elisp, blog, emacs museCriado/Created: NaN
Última actualização/Last updated: 10-10-2022 [14:25]
(c) Tiago Charters de Azevedo