string - 将字符串转换为首字母大写 - Emacs Lisp

Question

我正在寻找一个 elisp 函数，它接受一个字符串并在标题大小写中返回相同的字符串(即，所有单词都大写，除了“a”、“an”、“on”、“the”等)。

我找到了 this script ，这需要一个标记区域。

只是，我需要一个接受字符串变量的函数，所以我可以将它与 replace-regex 一起使用。我很想看到上面脚本的一个版本，它可以接受 or...

Answer 1

是这样的吗？

(progn
  (defun title-case (input) ""
         (let* (
                (words (split-string input))
                (first (pop words))
                (last (car(last words)))
                (do-not-capitalize '("the" "of" "from" "and" "yet"))) ; etc
           (concat (capitalize first)
                   " "
                   (mapconcat (lambda (w)
                                (if (not(member (downcase w) do-not-capitalize))
                                    (capitalize w)(downcase w)))
                              (butlast words) " ")
                   " " (capitalize last))))
  (title-case "the presentation of this HEADING OF my own from my keyboard and yet\n"))