home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / package / cstuff.mut < prev    next >
Text File  |  1995-01-14  |  1KB  |  54 lines
  1.   ;; C Durland    Public Domain
  2.  
  3. (const END 78)        ;; column last character on line will be in
  4.  
  5. (defun
  6.   end-slide        ;; move text so right part ends at col
  7.   {
  8.     (int col n x)
  9.  
  10.     (n (if (arg-flag) (arg-prefix) END))
  11.     (arg-flag FALSE 1)        ;; reset arg count
  12.     
  13.     (delete-horizontal-space)
  14.     (col (current-column))
  15.     (end-of-line)
  16.     (x (+ 1 (- n (current-column))))
  17.     (current-column col)
  18.     (to-col (+ col x))
  19.   }
  20.   MAIN
  21.   {
  22.     (bind-to-key "end-slide" "M-`")
  23.   }
  24. )
  25.  
  26. ;;/* ******************************************************************** */
  27. ;;/* *************************** Header Text **************************** */
  28. ;;/* ******************************************************************** */
  29. (defun
  30.   c-header-with-text
  31.   {
  32.     (int n len)
  33.     (string text)
  34.  
  35.     (text (ask "Header text: "))
  36. ;(n (- 66 (/ (len (length-of text)) 2)))
  37.     (n (/ (- 66 (len (length-of text))) 2))
  38.     (insert-text
  39. "/* ******************************************************************** */^J")
  40.     (insert-text "/* " 
  41.       (extract-elements
  42.         "********************************************************************"
  43.     0 n)
  44.       " " text " "
  45.       (extract-elements
  46.         "********************************************************************"
  47.     0 n)
  48.       (if (!= len (* 2 (/ len 2))) "*" "")    ;; pad odd length text
  49.       " */^J")
  50.     (insert-text
  51. "/* ******************************************************************** */^J")
  52.   }
  53. )
  54.