init.el

;;; package -- Summary:

;;; Commentary:

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.

;;; Code:

(require 'package)

(setq
 package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
                    ("org" . "http://orgmode.org/elpa/")
                    ("melpa" . "http://melpa.org/packages/")
                    ("melpa-stable" . "http://stable.melpa.org/packages/"))
 package-archive-priorities '(("melpa-stable" . 1)))

(package-initialize)

(when (not package-archive-contents)
  (package-refresh-contents)
  (package-install 'use-package))

;; scroll one line at a time (less "jumpy" than defaults)    
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1))) ;; one line at a time
(setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling
(setq mouse-wheel-follow-mouse 't) ;; scroll window under mouse

;; With this Emacs starts automatically on fullscreen mode

(add-hook 'window-setup-hook 'toggle-frame-fullscreen t)

;; This clears the message that shows at the scratch buffer by default

(setq initial-scratch-message "")

;; This way I can just type 'y' instead of 'yes<RET>' to confirm

(fset 'yes-or-no-p 'y-or-n-p)

;; Checks if Tamzen is on the system and uses it as a global font

;; (when (member "Tamzen" (font-family-list))
;;   (add-to-list 'default-frame-alist '(font . "Tamzen-15"))
;;   (set-face-attribute 'default t :font "Tamzen-15"))

;; Something to do with backups files lmao

(setq make-backup-files nil)
(setq backup-directory-alist '(("" . "~/.emacs.d/backup")))

;; Settings just for macOS

(setq mac-option-key-is-meta t) ;; This way I can use Alt (option) key as Meta on Mac
(setq mac-right-option-modifier nil) ;; With this I can use the right Alt key as normally (rather than as Meta)

;; This hides the much-dreaded bars on the top of Emacs GUI

(tooltip-mode -1)
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)

;; This prevents the cursor from blinking

(blink-cursor-mode 0)

;; Shows line numbers in programming languages

(add-hook 'prog-mode-hook #'display-line-numbers-mode)

;; This sets the Mode Line to display not just the line number
;; but also the column number (it's not that useful but ¯\_(ツ)_/¯)

(column-number-mode t)

;; Mandatory packages

(require 'use-package)
(require 'all-the-icons)

;;(require 'smartparens-config) ;; Do I need this?

;; display “lambda” as “λ”
(global-prettify-symbols-mode 1)

;; and add it to Haskell mode
(defun pretty-lambdas-haskell ()
  (font-lock-add-keywords
   nil `((,(concat "\\(" (regexp-quote "\\") "\\)")
          (0 (progn (compose-region (match-beginning 1) (match-end 1)
                                    ,(make-char 'greek-iso8859-7 107))
                    nil))))))

(add-hook 'haskell-mode-hook 'pretty-lambdas-haskell)

;; Using the Hasklig font

(set-face-attribute 'default nil
		    :family "Hasklig"
                    :height 130
                    :weight 'normal
                    :width 'normal)

(use-package hasklig-mode
  :ensure t
  :hook (haskell-mode))


;;(define-key key-translation-map (kbd ",") ", ")

;;(global-unset-key (kbd ","))

;; Global keybindings

(global-set-key (kbd "C-;") 'comment-or-uncomment-region)

;; Ciao Prolog

;; (if (file-exists-p "~/.ciaoroot/master/ciao_emacs/elisp/ciao-site-file.el")
;;     (load-file "~/.ciaoroot/master/ciao_emacs/elisp/ciao-site-file.el"))

;; (require 'ciao)
;; (add-to-list 'auto-mode-alist '("\\.pl\\'" . ciao-mode)) 

;;;;;; use-package declarations ;;;;;;

;; (use-package exec-path-from-shell
;;   :ensure t
;;   :config
;;   (when (memq window-system '(mac ns x))
;;   (exec-path-from-shell-initialize))
;;   )

(use-package random-splash-image
  :ensure t
  :config
  (setq random-splash-image-dir (concat (getenv "HOME") "/.emacs.d/splash-images"))
  (random-splash-image-set)
  )


;; (use-package darkokai-theme
;;   :ensure t
;;   :config (load-theme 'darkokai t)
;;   )

;; (use-package kaolin-themes
;;   :ensure t
;;   :config (load-theme 'kaolin-galaxy t)
;;   )

;; (use-package doom-themes
;;   :ensure t
;;   :config (load-theme 'doom-fairy-floss t)
;;   (doom-themes-neotree-config)
;;   (doom-themes-org-config)
;;   )

(use-package gruvbox-theme
  :ensure t
  :config (load-theme 'gruvbox-dark-soft t)
  )

;;(use-package rebecca-theme
;;  :ensure t
;;  :config (load-theme 'rebecca t)
;;  )

(use-package all-the-icons
  :ensure t
  )

(use-package restart-emacs
  :ensure t
  )

;; (use-package visual-regexp-steroids
;;   :ensure t
;;   :config
;;   (define-key global-map (kbd "C-c r") 'vr/replace)
;;   (define-key global-map (kbd "C-c q") 'vr/query-replace)
;;   ;; if you use multiple-cursors, this is for you:
;;   (define-key global-map (kbd "C-c m") 'vr/mc-mark)
;;   ;; to use visual-regexp-steroids's isearch instead of the built-in regexp isearch, also include the following lines:
;;   ;; (define-key esc-map (kbd "C-r") 'vr/isearch-backward) ;; C-M-r
;;   ;; (define-key esc-map (kbd "C-s") 'vr/isearch-forward) ;; C-M-s
;;   (define-key global-map (kbd "C-r") 'vr/isearch-backward)
;;   (define-key global-map (kbd "C-s") 'vr/isearch-forward)
;;   )

(use-package rainbow-delimiters
  :ensure t
  :init
  (add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
  )

(use-package rainbow-mode
  :ensure t
  :mode "\\.css\\'"
  )

(use-package pretty-mode
  :ensure t
  :init
  ;;(add-hook 'haskell-mode-hook #'pretty-mode)
  )

(use-package wrap-region
  :ensure t
  :config
  (wrap-region-add-wrappers
   '(("$" "$" nil (org-mode latex-mode))))
  (add-hook 'org-mode-hook 'wrap-region-mode)
  (add-hook 'latex-mode-hook 'wrap-region-mode)
  )

(use-package visual-regexp-steroids
  :ensure t
  :init
  (setq neo-theme 'icons)
  :bind ("M-n t" . neotree-toggle)
  )

(use-package lua-mode
  :ensure t
  :mode "\\.p8\\'"
  :config
  (define-key global-map (kbd "C-c r") 'vr/replace)
  (define-key global-map (kbd "C-c q") 'vr/query-replace)
  ;; if you use multiple-cursors, this is for you:
  (define-key global-map (kbd "C-c m") 'vr/mc-mark)
  ;; to use visual-regexp-steroids's isearch instead of the built-in regexp isearch, also include the following lines:
  ;; (define-key esc-map (kbd "C-r") 'vr/isearch-backward) ;; C-M-r
  ;; (define-key esc-map (kbd "C-s") 'vr/isearch-forward) ;; C-M-s
  (define-key global-map (kbd "C-r") 'vr/isearch-backward)
  (define-key global-map (kbd "C-s") 'vr/isearch-forward)
  )

;; (use-package neotree
;;   :ensure t
;;   :init
;;   (setq neo-theme 'icons)
;;   (neotree)
;;   :bind ("M-n t" . neotree-toggle)
;;   )

(use-package ido
  :ensure
  :init
  (progn
    (ido-mode 1)
    (use-package ido-vertical-mode
      :ensure t
      :init (ido-vertical-mode 1)
      )
    (use-package flx-ido
      :ensure t
      :init (flx-ido-mode 1)
      )
    (use-package ido-completing-read+
      :ensure t
      )
    (use-package smex
      :ensure t
      :init (smex-initialize)
      :bind ("M-x" . smex)
      )
    )
  )

(use-package smartparens
  :ensure t
  :init
  (smartparens-global-mode t)
  (add-hook 'prog-mode-hook #'smartparens-mode)
  )

(use-package yasnippet
  :ensure t
  :init (yas-global-mode 1)
  :config
  (define-key yas-minor-mode-map (kbd "<tab>") nil)
  (define-key yas-minor-mode-map (kbd "TAB") nil)
  (define-key yas-minor-mode-map (kbd "<C-tab>") 'yas-expand)
  )

(use-package auto-complete
  :ensure t
  :config (ac-config-default)
  )

(use-package company
  :init
  (add-hook 'after-init-hook 'global-company-mode)
  )

(use-package tex
  :ensure auctex
  :config
   (setq TeX-auto-save t)
   (setq TeX-parse-self t)
   (setq-default TeX-master nil)
   (setq TeX-save-query nil)
   (setq TeX-PDF-mode t)
   (setq bibtex-dialect 'biblatex)
   (setq LaTeX-always-use-Biber t)
   (add-hook 'LaTeX-mode-hook 'visual-line-mode)
   (add-hook 'TeX-mode-hook
	     (lambda ()
	       (setq TeX-command-extra-options "-shell-escape")
	       )
	     )
   (add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
   (add-hook 'LaTeX-mode-hook 'turn-on-reftex)
   (setq reftex-plug-into-AUCTeX t)
)
  
(use-package haskell-mode
  :ensure t
  :mode "\\.hs\\'"
  :config
  (add-hook 'haskell-mode-hook 'turn-on-haskell-doc)
  (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
  (add-hook 'haskell-mode-hook 'interactive-haskell-mode)
  ;; if not present, remove structured-haskell-mode hook
  ;; (add-hook 'haskell-mode-hook 'structured-haskell-mode)
  )

(use-package elpy
  :ensure t
  :mode "\\.py\\'"
  :config
  (elpy-enable)
  )

(use-package magit
  :ensure t
  :bind (("C-x g" . magit-status)
         ("C-x M-g" . magit-dispatch-popup))
  :config
  ; This hook updates the magit status buffer every file save,
  ; disable in case of poor performance
  (add-hook 'after-save-hook 'magit-after-save-refresh-status t)
  )

(use-package multi-term
  :ensure t
  :config (setq multi-term-program "/bin/zsh")
  :bind ("M-s t" . multi-term)
  )

(use-package windmove
  :ensure t
  :bind (("C-c <up>" . windmove-up)
         ("C-c <left>" . windmove-left)
         ("C-c <right>" . windmove-right)
         ("C-c <down>" . windmove-down))
  )

(use-package multiple-cursors
  :ensure t
  :bind ("C-S-c C-S-c" . mc/edit-lines)
  )

(use-package avy
  :ensure t
  :bind (("C-:" . avy-goto-char)
	 ("C-'" . avy-goto-char-2)
	 ("M-s a" . avy-goto-char-timer)
	 ("M-g M-g" . avy-goto-line))
  )

(use-package expand-region
  :ensure t
  :bind ("C-=" . er/expand-region)
  )

(use-package spaceline
  :ensure t)

(use-package spaceline-config
  :init
  (spaceline-all-the-icons-theme)
  (setq powerline-default-separator 'wave)
  )

(use-package spaceline-all-the-icons
  :ensure t
  :after spaceline
  :config (spaceline-all-the-icons-theme)
  )

(use-package org
  :mode (("\\.org$" . org-mode))
  :config
  (setq org-src-fontify-natively t
	org-fontify-whole-heading-line t
	org-fontify-done-headline t
	org-fontify-quote-and-verse-blocks t)
  (add-to-list 'org-structure-template-alist
             (list "p" (concat ":PROPERTIES:\n"
                               "?\n"
                               ":END:")))
  )

(use-package org-bullets
  :ensure t
  :config
  (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
  )

;;;;;; Custom functions ;;;;;;

(defun cheatsheet()
  "Opens a custom cheatsheet located in .emacs.d/cheatsheet"
  (interactive)
  (find-file-read-only "~/.emacs.d/cheatsheet.org")
  )

(global-set-key (kbd "C-c C-s") 'cheatsheet)

;; These two functions were made by @Ironjanowar

(defun kill-buffers()
  (let (buffer buffers)
    (setq buffers (buffer-list))
    (dotimes (i (length buffers))
      (setq buffer (pop buffers))
      (if (not (string-equal (buffer-name buffer) "*scratch*")) (kill-buffer buffer) nil))))

(defun clean-buffers()
       (interactive)
       (if (yes-or-no-p "Do you really want to clean all buffers? ")
           (kill-buffers) nil))

(global-set-key (kbd "C-x C-S-k") 'clean-buffers)

(put 'set-goal-column 'disabled nil)
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages
   '(org-bullets spaceline-all-the-icons spaceline expand-region avy multiple-cursors multi-term magit elpy haskell-mode auctex auto-complete yasnippet smartparens smex ido-completing-read+ flx-ido ido-vertical-mode lua-mode visual-regexp-steroids wrap-region pretty-mode rainbow-mode rainbow-delimiters symon restart-emacs kaolin-themes random-splash-image hasklig-mode use-package all-the-icons)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )