 ;;; Playground
 ;;;
 
-;; set initial message from lambda.txt
-(let* ((file (locate-user-emacs-file "lambda"))
-       (default-directory (file-name-directory file)))
-  (unless (file-exists-p file)
-    (url-copy-file "http://www.gotlisp.com/lambda/lambda.txt" file))
-  (unless (file-exists-p (concat file ".dat"))
-    (shell-command (concat "strfile " file)))
-  (setq initial-scratch-message
-        (format
-         ";; %s\n\n"
-         (replace-regexp-in-string
-          "\n" "\n;; " ; comment each line
-          (replace-regexp-in-string
-           "\n$" ""    ; remove trailing linebreak
-           (shell-command-to-string "fortune lambda"))))))
-
-
 (add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory))
 (require 'my-gnus-config)
 

 tooltip-use-echo-area t)

;; Some nice themes that I like
(use-package dracula-theme :defer t)
(use-package flatui-theme :defer t)
(use-package leuven-theme :defer t)

    ("c" org-capture "capture")
    ("d" (find-file (concat org-directory "/to-discuss.org")) "to discuss")
    ("k" (find-file (concat org-directory "/checklist-professional.org")) "checklist")
    ("l" (find-file my-default-notes-file) "daily log"))
  (defhydra my-hydra-projects (:color blue)
    "Projects"
    ("e" project-explorer-open "project explorer")
