 
 (require-package 'lively)
 
-(setq-default initial-scratch-message
-              (concat ";; Happy hacking " (or user-login-name "") "!\n\n"))
+;; (setq-default initial-scratch-message
+;;               (concat ";; Happy hacking " (or user-login-name "") "!\n\n"))
 
 
 
  (add-to-list 'hippie-expand-try-functions-list 'my/try-complete-lisp-symbol-without-namespace t))



;; ----------------------------------------------------------------------------
;; Highlight current sexp
;; ----------------------------------------------------------------------------
;; Prevent flickery behaviour due to hl-sexp-mode unhighlighting before each command
(eval-after-load 'hl-sexp
  '(defadvice hl-sexp-mode (after unflicker (turn-on) activate)
     (when turn-on
       (remove-hook 'pre-command-hook #'hl-sexp-unhighlight))))



;; ----------------------------------------------------------------------------


(autoload 'turn-on-pretty-mode "pretty-mode")

;; {{
(setq scheme-program-name "guile")
(require 'quack)
;; }}


;; ----------------------------------------------------------------------------
