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: lisp, emacs, elisp, blog, emacs muse

Última actualização/Last updated: 2012-01-08 [15:02]

1999-2011 (c) Tiago Charters de Azevedo

São permitidas cópias textuais parciais/integrais em qualquer meio com/sem alterações desde que se mantenha este aviso.

Verbatim copying and redistribution of this entire page are permitted provided this notice is preserved.