Adding fish, sly, and company and no littering...

README.org

@@ -21,6 +21,8 @@
   - [[#calendar][Calendar]]
   - [[#magit][Magit]]
   - [[#eshell][Eshell]]
+  - [[#sly][Sly]]
+  - [[#company][Company]]
   - [[#pdf-tools][PDF-Tools]]
   - [[#epub][EPUB]]
   - [[#window-management][Window Management]]
@@ -56,7 +58,7 @@ Let's also set the =gc-cons-threshold= variable to a high setting for the remain
 ** Keep Folders Clean
 
 Let's use =no-littering= in order to stop emacs from filling all our folders with junk.
-#+begin_src emacs-lisp :tangle no
+#+begin_src emacs-lisp
 (use-package no-littering)
 
 ;; no-littering doesn't set this by default so we must place
@@ -534,6 +536,12 @@ I do a lot of docker management so having yaml is necessary
   :mode ("\\.yml\\'" . yaml-mode))
 #+end_src
 
+*** Fish
+#+begin_src emacs-lisp
+(use-package fish-mode
+  :mode ("\\.fish\\'" . fish-mode))
+#+end_src
+
 ** File Management
 *** Dired
 #+begin_src emacs-lisp
@@ -1331,6 +1339,20 @@ Let's add our own eshell prompt. and set the password cache to a significantly h
     "C-d" 'kill-this-buffer))
 #+end_src
 
+** Sly
+Using sly makes a lot better common-lisp interaction within emacs.
+#+begin_src emacs-lisp
+(use-package sly
+  :mode ("\\.lisp\\'" . sly-mode))
+#+end_src
+
+** Company
+#+begin_src emacs-lisp
+(use-package company
+  :defer 1
+  :config (global-company-mode +1))
+#+end_src
+
 ** PDF-Tools
 Let's use pdf-tools for a lot better interaction with pdfs.
 #+begin_src emacs-lisp

eshell/history

@@ -109,3 +109,10 @@ ls /tmp
 cat /tmp/bongo-mpv.socket
 youtube-dl --list-formats
 youtube-dl --list-formats https://www.youtube.com/watch?v=ry8T67AgbUM
+ls
+cd
+ls
+rm Dynamic\ DNS\ Client\ \ 2.0.0.7\ Beta.exe
+ls
+cat xmrtobtcwall.txt
+cp mimeapps.list mimeapps.list.bak

init.el

@@ -7,6 +7,13 @@
          gcs-done))
 (add-hook 'emacs-startup-hook #'chris/display-startup-time)
 
+(use-package no-littering)
+
+;; no-littering doesn't set this by default so we must place
+;; auto save files in the same path as it uses for sessions
+(setq auto-save-file-name-transforms
+      `((".*" ,(no-littering-expand-var-file-name "auto-save/") t)))
+
 (setq inhibit-startup-message t)
 
 (scroll-bar-mode -1)
@@ -311,6 +318,9 @@ vertically."
 (use-package yaml-mode
   :mode ("\\.yml\\'" . yaml-mode))
 
+(use-package fish-mode
+  :mode ("\\.fish\\'" . fish-mode))
+
 (use-package dired
   :ensure nil
   :straight nil
@@ -1021,6 +1031,13 @@ If on a:
   (general-def '(normal insert) eshell-mode-map
     "C-d" 'kill-this-buffer))
 
+(use-package sly
+  :mode ("\\.lisp\\'" . sly-mode))
+
+(use-package company
+  :defer 1
+  :config (global-company-mode +1))
+
 (use-package pdf-tools
   :straight (:host github
 		 :repo "flatwhatson/pdf-tools"