     (mapcar (lambda (x) (date-to-time (concat wrap-start x wrap-end)))
             (list sunrise-time sunset-time))))
 
-(defun time-greater-p (time1 time2)
+(defun my-time-greater-p (time1 time2)
   "Return non-nil if TIME1 is later than TIME2."
   (not (or (time-less-p time1 time2) (eq time1 time2))))
 
-(defun location-sunrise-sunset (location)
+(defun my-location-sunrise-sunset (location)
   "Get the '(SUNRISE SUNSET) times for LOCATION."
   (let ((loc-name (car location))
         (loc-lat (cadr location))
         (loc-lon  (caddr location)))
-    (sunrise-sunset-times loc-name loc-lat loc-lon)))
-
-(defun date-in-daylight-hours (date)
+    (my-sunrise-sunset-times loc-name loc-lat loc-lon)))
+
+(defun my-date-in-daylight-hours (date)
   "Return non-nil if DATE is within the daylight hours for the current location.
 
 Default to NIL if daylight times cannot be retrieved."
-  (let* ((sunrise-sunset (location-sunrise-sunset location-loc))
+  (let* ((sunrise-sunset (my-location-sunrise-sunset my-location-loc))
          (sunrise-time (car sunrise-sunset))
          (sunset-time (cadr sunrise-sunset))
          (curr-time (or date (current-time))))
     (and sunrise-time sunset-time
-         (time-greater-p curr-time sunrise-time) (time-less-p curr-time sunset-time))))
-
-(defun get-background-mode-for-time-of-day (&optional date)
+         (my-time-greater-p curr-time sunrise-time) (time-less-p curr-time sunset-time))))
+
+(defun my-get-background-mode-for-time-of-day (&optional date)
   "Return either 'light or 'dark based on whether DATE (or (current-time)) is during daylight
 hours or not."
-  (if (date-in-daylight-hours (or date (current-time))) 'light 'dark))
+  (if (my-date-in-daylight-hours (or date (current-time))) 'light 'dark))
 
 ;; Color theme
-(let ((bgmode (get-background-mode-for-time-of-day)))
+(let ((bgmode (my-get-background-mode-for-time-of-day)))
   (set-frame-parameter nil 'background-mode bgmode)
   (set-terminal-parameter nil 'background-mode bgmode))
 (load-theme 'solarized t)

;(add-to-list 'interpreter-mode-alist '("python" . python-mode))

;; Haskell-mode
(add-to-list 'load-path (el-dir "ghc-mod/elisp"))
(add-to-list 'load-path (el-dir "haskell-mode"))

(use-package haskell-mode
  :config




(defun my-scratch-buffer ()
  "Switch to the *scratch* buffer, making a new
one if necessary."
  (interactive)
  (switch-to-buffer "*scratch*"))

(defun my-new-scratch ()
  "Opens a clean *scratch* buffer.

If a *scratch* buffer exists, this will undo any changes
made in that buffer."
  (interactive)
  (my-scratch-buffer)
  (my-clear-buffer))

(defun my-kill-buffer-and-window-ask ()
  "Kill the current buffer and window if user responds in the affirmative.

Ask again if the buffer is modified."
