Return to studly.el CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp

Annotation of 43BSDReno/contrib/emacs-18.55/lisp/studly.el, revision 1.1.1.1

1.1       root        1: ;;; StudlyCaps (tm)(r)(c)(xxx)
                      2: 
                      3: (defun studlify-region (begin end)
                      4:   "Studlify-case the region"
                      5:   (interactive "*r")
                      6:   (save-excursion
                      7:     (goto-char begin)
                      8:     (setq begin (point))
                      9:     (while (and (<= (point) end)
                     10:                (not (looking-at "\\W*\\'")))
                     11:       (forward-word 1)
                     12:       (backward-word 1)
                     13:       (setq begin (max (point) begin))
                     14:       (forward-word 1)
                     15:       (let ((offset 0)
                     16:            (word-end (min (point) end))
                     17:            c)
                     18:        (goto-char begin)
                     19:        (while (< (point) word-end)
                     20:          (setq offset (+ offset (following-char)))
                     21:          (forward-char 1))
                     22:        (setq offset (+ offset (following-char)))
                     23:        (goto-char begin)
                     24:        (while (< (point) word-end)
                     25:          (setq c (following-char))
                     26:          (if (and (= (% (+ c offset) 4) 2)
                     27:                   (let ((ch (following-char)))
                     28:                     (or (and (>= ch ?a) (<= ch ?z))
                     29:                         (and (>= ch ?A) (<= ch ?Z)))))
                     30:              (progn
                     31:                (delete-char 1)
                     32:                (insert (logxor c ? ))))
                     33:          (forward-char 1))
                     34:        (setq begin (point))))))
                     35: 
                     36: (defun studlify-word (count)
                     37:   "Studlify-case the current word, or COUNT words if given an argument"
                     38:   (interactive "*p")
                     39:   (let ((begin (point)) end rb re)
                     40:     (forward-word count)
                     41:     (setq end (point))
                     42:     (setq rb (min begin end) re (max begin end))
                     43:     (studlify-region rb re)))
                     44: 
                     45: (defun studlify-buffer ()
                     46:   "Studlify-case the current buffer"
                     47:   (interactive "*")
                     48:   (studlify-region (point-min) (point-max)))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.