                  )))
 
 (add-to-list 'auto-insert-alist
-             '(("\\.pm$" . "Perl Module")
+             '(("\\ . pm$" . "Perl Module")
                nil
                "# File: " (file-name-nondirectory buffer-file-name) "\n"
                "# Time-stamp: <>\n"

                      "")
               "# Description:\n# " _ "\n"
               ))
;; Ruby
(ska-init-message "  Ruby")
(add-to-list 'auto-insert-alist
             '(("\\.rb$" . "Ruby Program")
               nil

;; Thus, I initialize explicitly:
(package-initialize)

(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

;; Ideally, I do not need a custom file anymore.
(setq custom-file "~/.emacs.d/custom.el")
(when (file-exists-p custom-file)
  (load custom-file))


;; User Specific
(setq ska-user-init-file "~/.emacs.d/user.el")
;; user mail adress copied from startup.el which is not yet loaded at
;; this time.
(when (not (file-exists-p ska-user-init-file))
  (message "Missing user.el. Creating it.")
  (with-temp-buffer
    (insert
     ";;; user.el --- my specific settings to keep init.el portable

;;; Commentary:

;; User-specific settings so that to take your kinda secret data. 
;; Usually, you do not want to share this file.

;;; Code:

\(setq user-mail-address \""
     (completing-read
      "Enter your email adress to seed new ~/.emacs.d/user.el: ")
     "\")
\(setq my-copyright-holder \""
     (completing-read
      "Enter your full name for copyrights: "
      (list (user-full-name))) "\")

\(provide 'user)
;;; user.el ends here
")
    (write-region (point-min) (point-max) ska-user-init-file)))
(load ska-user-init-file)



;; I have my own global keymaps. C-v corresponds to C-x and C-b to
;; C-c. C-v is my own global bindings, while C-b is for mode-specific
;; bindings using the appropriate mode-map.
(defvar ska-ctrl-v-map nil "My global keybindings")
(define-prefix-command 'ska-ctrl-v-map)
(global-set-key '[(control v)] 'ska-ctrl-v-map)


;;; Functions
(ska-init-message "Defining functions")

(defun ska-untabify ()
