Re: title-case function

[Emanuel Berg]

Paul W. Rankin wrote:

> Happy Easter to those who celebrate it!

The same to you :)
Here is some 2h 34m 56s of Easter trance [1] :)

> I couldn't find a title-case function

Did you look into this [2] ?
    
BTW make a search for "Emanuel Berg" :)

> [...] so I wrote the one below. Please take
> a look and let me know if there are any edge
> cases I've missed or improvements you
> might have.

       (if (looking-at "[:\x2013\x2014]")
           (capitalize-word 1)
         (skip-syntax-forward "-." last-word)
         (if (looking-at (concat "\\b" (regexp-opt title-case-minor-words)
                                 "\\b") )
             (downcase-word 1)
           (capitalize-word 1)))

It seems to work alright, but I don't
understand it? You don't need `progn' anymore?

(if nil
    0
  (message "been here")
  1) ; 1 and got message

??


[1] https://www.youtube.com/watch?v=_gp51lt9kdA

[2] https://karl-voit.at/2015/05/25/elisp-title-capitalization/source.org.txt

-- 
underground experts united
http://user.it.uu.se/~embe8573