 
   ;; Position point ready to type or continue typing the header
   (end-of-line))
-
-
-(defun un-camelcase-string (s &optional sep start)
-  "Convert CamelCase string S to lower case with word separator SEP.
-Default for SEP is a hyphen \"-\".
-
-If third argument START is non-nil, convert words after that
-index in STRING."
-  (let ((case-fold-search nil))
-    (while (string-match "[A-Z]" s (or start 1))
-      (setq s (replace-match (concat (or sep "_")
-                                     (downcase (match-string 0 s)))
-                             t nil s)))
-    (downcase s)))
-
-
-(defun un-camelcase-word ()
-  (interactive)
-  (let ((camel-word (buffer-substring (point)
-				      (save-excursion (forward-word) (point)))))
-    (kill-word 1)
-    (insert-string (un-camelcase-string camel-word))))
 
 
 (defun generate-org-buffer ()

(require 'saveplace)
(setq-default save-place t)
(setq save-place-file (expand-file-name ".places" user-emacs-directory))


;; Saving

(set 'inhibit-startup-screen t) ;; No startup screen
(scroll-bar-mode -1);; No scroll bar
(global-visual-line-mode 1) ;; Wrap lines at nearest word
(set 'truncate-partial-width-windows nil) ;; Make line wrapping work for
;; multiple frames
(tool-bar-mode -1) ;; Disable toolbar
