;; The default encoding should be utf-8 everywhere
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-language-environment 'utf-8)
(set-selection-coding-system 'utf-8)
;; Always use Unix line endings
(setq-default buffer-file-coding-system 'utf-8-unix)

;; personal.el - personal settings
(setq personal-file "~/.emacs.d/personal.el")
(load personal-file 'noerror)

;; Setup straight.el
;; https://github.com/radian-software/straight.el
(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 6))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

(straight-use-package 'use-package)
(setq straight-use-package-by-default t)
(package-initialize)
(straight-use-package 'bind-key)

;; Themeing
(use-package modus-themes
  :straight t
  :config
  ;; Load the theme of your choice.
  (if (file-exists-p "~/.emacs.d/dark-mode")
      (load-theme 'modus-vivendi t)
    (load-theme 'modus-operandi t))

  (define-key global-map (kbd "<f5>")
              (lambda ()
                (interactive)
                (let ((dark-mode-file "~/.emacs.d/dark-mode"))
                  (if (file-exists-p dark-mode-file)
                      (delete-file dark-mode-file)
                    (with-temp-buffer
                      (write-file dark-mode-file)))
                  (modus-themes-toggle)))))

;; Disable some UI elements
(tool-bar-mode -1)
(menu-bar-mode -1)
(tooltip-mode -1)
(fringe-mode -1)
(scroll-bar-mode -1)

;; The minimap gives a much better scrolling experience
(use-package minimap
  :straight t
  :config
  (minimap-mode)
  (setq minimap-window-location 'right)
  (setq minimap-width-fraction 0.10))


;; Font settings
(set-face-attribute 'default nil :font "Iosevka Fixed SS05-12")
(set-face-attribute 'fixed-pitch nil :family 'unspecified)
(set-face-attribute 'variable-pitch nil :family 'unspecified)

;; Icons
(use-package all-the-icons
  :straight t)

;; Rainbow delimiters
(use-package rainbow-delimiters
  :straight t
  :hook (prog-mode . rainbow-delimiters-mode))

;; Disable backup files
(setq make-backup-files nil)
(setq auto-save-default nil)
(setq create-lockfiles nil)

(when (getenv "WAYLAND_DISPLAY")
  ;; Without this, copy and pasting from other wayland apps into
  ;; emacs-pgtk doesn't work.
  ;; https://www.emacswiki.org/emacs/CopyAndPaste#h5o-4
  (setq wl-copy-process nil)
  (defun wl-copy (text)
    (setq wl-copy-process (make-process :name "wl-copy"
                                        :buffer nil
                                :command '("wl-copy" "-f" "-n")
                                :connection-type 'pipe
                                :noquery t))
    (process-send-string wl-copy-process text)
    (process-send-eof wl-copy-process))
    (setq interprogram-cut-function 'wl-copy))

;; Dired settings
(defun embark-open-externally (file)
  "Open FILE externally using the default application of the system."
  (interactive "fOpen externally: ")
  (if (and (eq system-type 'windows-nt)
           (fboundp 'w32-shell-execute))
      (w32-shell-execute "open" file)
    (call-process (pcase system-type
                    ('darwin "open")
                    ('cygwin "cygstart")
                    (_ "xdg-open"))
                  nil 0 nil
                  (expand-file-name file))))

(defun dired-open-externally (&optional arg)
  "Open marked or current file in operating system's default application."
  (interactive "P")
  (dired-map-over-marks
   (embark-open-externally (dired-get-filename))
   arg))

(use-package dired-preview
  :straight t)

(setf dired-kill-when-opening-new-dired-buffer t)
(setq dired-listing-switches "-laGh1v --group-directories-first")
(setq dired-omit-files
      (rx (or (seq bol (? ".") "#")     ;; emacs autosave files
              (seq bol "." (not (any "."))) ;; dot-files
              (seq "~" eol)                 ;; backup-files
              (seq bol "CVS" eol)           ;; CVS dirs
              )))
(defun my-dired-init ()
  "to be run as hook for `dired-mode'."
  (interactive)
  (dired-hide-details-mode 1)
  (dired-omit-mode 1)
  (define-key dired-mode-map (kbd "`") #'dired-up-directory)
  (define-key dired-mode-map (kbd "<f2>") #'dired-preview-mode)
  (define-key dired-mode-map (kbd "E") #'dired-open-externally))
(add-hook 'dired-mode-hook 'my-dired-init)

;; All "Yes or No" questions can be shortend to "y or n".
(defalias 'yes-or-no-p 'y-or-n-p)

;; No more startup messages and screens
(setq inhibit-startup-screen t)
(setq initial-buffer-choice  nil)
(defun display-startup-echo-area-message ()
  (message "Welcome Back!"))

;; Highlight matching braces
(show-paren-mode t)

;; cua-mode. Like any other editor
(cua-mode t)

;; Configure the cursor
(setq-default
 cursor-type 'box
 indent-tabs-mode nil
 cursor-in-non-selected-windows nil)
(blink-cursor-mode 0)

;; Default column with
(set-fill-column 95)

;; Start up in the home directory
(setq default-directory "~/")

;; Make C-k always kill the whole line
(setq kill-whole-line t)

;; Do not ding. Ever.
(setq ring-bell-function 'ignore)

;; Dialogues always go in the modeline.
(setq use-dialog-box nil)

;; Show tooltips on hover and not in the echo area.
;; Those are often cut of.
(tooltip-mode)

;; Better line wraping
(global-visual-line-mode 1)

;; Links should always be clickable
(global-goto-address-mode 1)

;; Always reload changed files from disk
(global-auto-revert-mode 1)

;; Keybindings
(bind-key "M-<f4>"     'kill-emacs)
(bind-key "C-x k"      'kill-buffer-with-prejudice)
(bind-key "C-w"        'kill-buffer-with-prejudice)
(bind-key "C-x C-k"    'kill-buffer-and-window)
(bind-key "M-i"        'delete-indentation)
(bind-key "C-+"        'text-scale-increase)
(bind-key "C--"        'text-scale-decrease)
(bind-key "C-x C-b"    'ibuffer)
(bind-key "C-c n"      'display-line-numbers-mode)
(bind-key "M-1"        'delete-other-windows)
(bind-key "C-M-1"      'delete-other-windows)
(bind-key "M-0"        'delete-window)
(bind-key "C-S"        'save-buffer)

(global-set-key (kbd "<f12>") 'menu-bar-mode)


;; Edit this file
(defun edit-config ()
  (interactive)
  (find-file "~/.emacs.d/init.el"))

;; Custom functions
(defun lux/indent-buffer ()
  "Reindents the whole buffer"
  (interactive)
  (save-excursion
    (indent-region (point-min) (point-max) nil)))

(defun lux/split-right-and-enter ()
  "Split the window to the right and enter it."
  (interactive)
  (split-window-right)
  (other-window 1))
(bind-key "M-3" 'lux/split-right-and-enter)

(defun lux/split-below-and-enter ()
  "Split the window down and enter it."
  (interactive)
  (split-window-below)
  (other-window 1))
(bind-key "M-2" 'lux/split-below-and-enter)

(defun date (arg)
  (interactive "P")
  (insert (if arg
              (format-time-string "%d.%m.%Y")
            (format-time-string "%Y-%m-%d"))))
(bind-key "C-M-d" 'date)

(defun switch-to-previous-buffer ()
  "Switch to previously open buffer.Repeated invocations toggle between the two most recently open buffers."
  (interactive)
  (switch-to-buffer (other-buffer (current-buffer) 1)))
(bind-key "M-p"        'switch-to-previous-buffer)

(defun save-and-kill-buffer-with-prejudice ()
  (interactive)
  (save-buffer)
  (kill-buffer-with-prejudice))

;; Ace for qucik window switching
(use-package ace-window
  :straight t
  :bind (("M-o" . 'ace-window))
  :config
  (custom-set-faces
   '(aw-leading-char-face
     ((t (:inherit ace-jump-face-foreground :height 3.0))))
   ))

(use-package multiple-cursors
  :straight t
  :init
  (setq mc/always-run-for-all t)
  :bind
  (("C-S-c C-S-c" . mc/edit-lines)
   ("C->" . mc/mark-next-like-this)
   ("C-<" . mc/mark-previous-like-this)
   ("C-c C-<" . mc/mark-all-like-this)))
(global-set-key (kbd "C-S-<mouse-1>") 'mc/add-cursor-on-click)

;; Ivy completion
(use-package ivy
  :straight t
  :diminish
  :init
  (ivy-mode 1)
  (unbind-key "S-SPC" ivy-minibuffer-map)
  (setq ivy-height 30
        ivy-use-virtual-buffers t
        ivy-use-selectable-prompt t)
  :bind (("C-x b"   . ivy-switch-buffer)
         ("<f1>"    . ivy-switch-buffer)
         ("C-c C-r" . ivy-resume)
         ("C-M-s"     . swiper)))

;; ivy-rich makes Ivy look a little bit more like Helm.
(use-package ivy-rich
  :straight t
  :after counsel
  :custom
  (ivy-virtual-abbreviate 'full
                          ivy-rich-switch-buffer-align-virtual-buffer t
                          ivy-rich-path-style 'abbrev)
  :init
  (ivy-rich-mode))

(use-package ivy-hydra :straight t)

;; smex for better M-x
(use-package smex :straight t)

(use-package counsel
  :straight t
  :after ivy
  :init (counsel-mode 1)
  :bind (("C-c ;" . counsel-M-x)
         ("C-c U" . counsel-unicode-char)
         ("C-c i" . counsel-imenu)
         ("C-c y" . counsel-yank-pop)
         ("C-c r" . counsel-recentf)
         :map ivy-minibuffer-map
         ("C-r" . counsel-minibuffer-history))
  :diminish)

(use-package ido
  :straight t
  :config (ido-mode 1)
  :bind (("C-x f" . ido-find-file)))

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

;; Magit - git client
(use-package magit
  :straight t
  :bind (("C-c g" . magit-status))
  :diminish magit-auto-revert-mode
  :diminish auto-revert-mode
  :custom
  (magit-remote-set-if-missing t)
  (magit-diff-refine-hunk t)
  :config
  (magit-auto-revert-mode t)
  (advice-add 'magit-refresh :before #'maybe-unset-buffer-modified)
  (advice-add 'magit-commit  :before #'maybe-unset-buffer-modified)
  (setq magit-completing-read-function 'ivy-completing-read)
  (add-to-list 'magit-no-confirm 'stage-all-changes))

(use-package libgit
  :straight t
  :disabled
  :after magit)

(use-package elfeed
  :straight t
  :bind (("C-x w" . elfeed))
  :config
  (setq elfeed-sort-order 'ascending))

;; ultra-scroll for improved pixel scrolling
(use-package ultra-scroll
  :vc (:url "https://github.com/jdtsmith/ultra-scroll") ; if desired (emacs>=v30)
  :straight nil
  :init
  (setq scroll-conservatively 3 ; or whatever value you prefer, since v0.4
        scroll-margin 0)        ; important: scroll-margin>0 not yet supported
  :config
  (ultra-scroll-mode 1))

;; Duplicate
(use-package duplicate-thing
  :straight t
  :bind (("C-c u" . duplicate-thing)))

;; Markdown
(use-package markdown-mode
  :straight t
  :mode ("\\.md$" . gfm-mode)
  :config
  (when (executable-find "pandoc")
    (setq markdown-command "pandoc -f markdown -t html")))

(use-package org-remoteimg
  :straight (org-remoteimg :type git :host github :repo "gaoDean/org-remoteimg"))

(setq
 ;; Edit settings
 org-auto-align-tags nil
 org-tags-column 0
 org-catch-invisible-edits 'show-and-error
 org-special-ctrl-a/e t
 org-insert-heading-respect-content t
 org-display-remote-inline-images 'cache
 )

;; Programming configuration
(add-hook 'prog-mode-hook 'display-line-numbers-mode)

;; Elisp
(defun my-elisp-mode-hook ()
  "My elisp customizations."
  (electric-pair-local-mode 1)
  (add-hook 'before-save-hook 'check-parens nil t)
  (auto-composition-mode nil))
(add-hook 'emacs-lisp-mode-hook 'my-elisp-mode-hook)

;; Common Lisp
(setq inferior-lisp-program "sbcl")
(use-package slime
  :straight t)
(slime-setup '(slime-fancy slime-quicklisp slime-asdf))
(add-hook 'slime-repl-mode-hook (lambda () (paredit-mode +1)))

;; Automatically hide line ending markers when unix/ms differences occur.
;; This would usually be the case for files that have been edited on android and opened on windows.
(defun hide-eol ()
  "Hide the ^M markers in the current buffer"
  (interactive)
  (setq buffer-display-table (make-display-table))
  (aset buffer-display-table ?\^M []))

(defun hide-eol-if-crlf ()
  "Hide ^M characters if file has CRLF line endings"
  (save-excursion
    (goto-char (point-min))
    (when (re-search-forward "\r$" nil t)
      (hide-eol))))

;; Add to find-file-hook to run on every file open
(add-hook 'find-file-hook 'hide-eol-if-crlf)

;; Misc functions

(autoload 'diff-no-select "diff")
(defun current-buffer-matches-file-p ()
  "Return t if the current buffer is identical to its associated file."
  (when (and buffer-file-name (buffer-modified-p))
    (diff-no-select buffer-file-name (current-buffer) nil 'noasync)
    (with-current-buffer "*Diff*"
      (and (search-forward-regexp "^Diff finished \(no differences\)\." (point-max) 'noerror) t))))

(defun maybe-unset-buffer-modified (&optional _)
  (interactive)
  (dolist (buf (buffer-list))
    (with-current-buffer buf
      (when (and buffer-file-name (buffer-modified-p) (current-buffer-matches-file-p))
        (set-buffer-modified-p nil)))))

(defun kill-buffer-with-prejudice (&optional _)
  "Kill a buffer, eliding the save dialogue if there are no diffs."
  (interactive)
  (when (current-buffer-matches-file-p) (set-buffer-modified-p nil))
  (kill-buffer))

;; saving/restoring of the default frame
(load "~/.emacs.d/frameg.el")

;; movies.org package
(load "~/.emacs.d/org-movies.el" 'noerror)

;; custom.el - device specific settings
(setq custom-file "~/.emacs.d/custom.el")
(load custom-file 'noerror)

(provide 'init)