emacs.d/init.el

(setq small-font "Iosevka Term-11")
(setq big-font "Iosevka Term-14")
;; start a server, unless one is already running
(when (require 'server nil t)
  (unless (server-running-p)
    (server-start)))

;; (add-to-list 'custom-theme-load-path (expand-file-name "~/.emacs.d/bundle/nord-theme/"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/bundle"))

;; 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.

(require 'package)
(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))
                    (not (gnutls-available-p))))
       (proto (if no-ssl "http" "https")))
  (when no-ssl
    (warn "\
Your version of Emacs does not support SSL connections,
which is unsafe because it allows man-in-the-middle attacks.
There are two things you can do about this warning:
1. Install an Emacs version that does support SSL and be safe.
2. Remove this warning from your init file so you won't see it again."))
  ;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired
  (add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t)
  ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t)
  (when (< emacs-major-version 24)
    ;; For important compatibility libraries like cl-lib
    (add-to-list 'package-archives (cons "gnu" (concat proto "://elpa.gnu.org/packages/")))))
(package-initialize)

(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.
 '(variable-pitch ((t (:family "Roboto Condensed")))))

(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.
 '(auto-save-default nil)
 '(backup-directory-alist (quote (("" . "~/.emacs.d/_backup_files"))))
 '(blink-cursor-mode nil)
 '(cal-html-directory "~/Documents/Diary")
 '(calendar-date-style (quote iso))
 '(calendar-intermonth-text
   (quote
    (propertize
     (format "%2d"
             (car
              (calendar-iso-from-absolute
               (calendar-absolute-from-gregorian
                (list month day year)))))
     (quote font-lock-face)
     (quote font-lock-function-name-face))))
 '(calendar-week-start-day 1)
 '(column-number-mode t)
 '(custom-enabled-themes (quote (nord)))
 '(custom-safe-themes
   (quote
    ("82358261c32ebedfee2ca0f87299f74008a2e5ba5c502bde7aaa15db20ee3731" "4515feff287a98863b7b7f762197a78a7c2bfb6ec93879e7284dff184419268c" default)))
 '(default-frame-alist
    (quote
     ((fullscreen . maximized)
      (width . 90)
      (height . 46)
      (font . "Iosevka Term-13.0")
      (vertical-scroll-bars)
      (horizontal-scroll-bars)
      (menu-bar-lines . 0)
      (line-spacing . 2)
      (undecorated . t))))
 '(delete-selection-mode t)
 '(diary-file "~/Documents/Diary/diary")
 '(display-battery-mode t)
 '(display-line-numbers nil)
 '(display-line-numbers-grow-only t)
 '(display-line-numbers-type (quote relative))
 '(display-line-numbers-widen nil)
 '(display-time-mode t)
 '(display-time-world-list
   (quote
    (("America/Los_Angeles" "Seattle")
     ("America/New_York" "New York")
     ("Europe/London" "London")
     ("Europe/Paris" "Paris")
     ("Asia/Calcutta" "Bangalore")
     ("Asia/Tokyo" "Tokyo"))))
 '(fill-column 72)
 '(font-lock-maximum-decoration t)
 '(global-auto-revert-mode t)
 '(global-display-line-numbers-mode t)
 '(global-font-lock-mode t)
 '(global-hl-line-mode t)
 '(icomplete-mode t)
 '(indent-tabs-mode nil)
 '(inferior-lisp-program (executable-find "sbcl") t)
 '(inhibit-startup-screen t)
 '(line-number-mode t)
 '(line-spacing 3)
 '(linum-relative-backend (quote display-line-numbers-mode))
 '(major-mode (quote text-mode))
 '(make-backup-files nil)
 '(max-lisp-eval-depth 24000)
 '(max-specpdl-size 19500)
 '(network-security-level (quote medium))
 '(newsticker-download-logos nil)
 '(newsticker-frontend (quote newsticker-plainview))
 '(newsticker-show-descriptions-of-new-items nil)
 '(newsticker-url-list-defaults
   (quote
    (("Emacs Wiki" "https://www.emacswiki.org/emacs?action=rss" nil 3600)
     ("Sachachua" "https://sachachua.com/blog/feed/" nil 3600)
     ("openSuse News" "https://news.opensuse.org/feed" nil 3600)
     ("Phoronix" "https://www.phoronix.com/rss.php" nil 3600)
     ("Ubuntu" "https://blog.ubuntu.com/feed" nil 3600)
     ("Netzpolitik" "https://logbuch-netzpolitik.de/feed" nil 3600)
     ("PBP" "https://pbpython.com/feeds/all.atom.xml" nil 3600)
     ("Planet Python" "https://planetpython.org/rss20.xml" nil 3600)
     ("lucumr" "http://lucumr.pocoo.org/feed.atom" nil 3600)
     ("doughellmann" "https://doughellmann.com/blog/feed/" nil 3600)
     ("Metaebene" "https://metaebene.me/feed/" nil 3600)
     ("Stack Exchange" "https://emacs.stackexchange.com/feeds" nil 3600)
     ("Stallman" "https://stallman.org/rss/rss.xml" nil 3600)
     ("Planet Lisp" "http://planet.lisp.org/" nil 3600)
     ("Python PEP" "https://www.python.org/dev/peps/peps.rss/" nil 3600))))
 '(nord-comment-brightness 15)
 '(nord-region-highlight "snowstorm")
 '(nord-uniform-mode-lines t)
 '(org-agenda-dim-blocked-tasks nil)
 '(org-agenda-files (quote ("~/Documents/Journal")))
 '(org-agenda-inhibit-startup nil)
 '(org-agenda-use-tag-inheritance nil)
 '(org-babel-load-languages
   (quote
    ((js . t)
     (emacs-lisp . t)
     (python . t)
     (sqlite . t)
     (lisp . t)
     (shell . t)
     (css . t)
     (calc . t))))
 '(org-babel-shell-names
   (quote
    ("sh" "bash" "csh" "ash" "dash" "ksh" "mksh" "posh")))
 '(org-clock-persist t)
 '(org-confirm-babel-evaluate nil)
 '(org-default-notes-file "~/Documents/Journal/notes.org")
 '(org-html-doctype "html5")
 '(org-html-html5-fancy t)
 '(org-log-done (quote time))
 '(org-startup-folded nil)
 '(org-startup-truncated nil)
 '(org-todo-keywords
   (quote
    ((sequence "TODO" "FEEDBACK" "VERIFY" "|" "DONE" "DELEGATED"))))
 '(package-enable-at-startup t)
 '(package-selected-packages
   (quote
    (url-http-ntlm syslog-mode org-pomodoro ox-html5slide ox-hugo ox-impress-js ox-ioslide ox-jira ox-json ox-pandoc nov vimish-fold w3 pickle feature-mode elpy elnode ein latex-extra latex-preview-pane docker docker-api docker-cli docker-compose-mode dockerfile-mode python-docstring pytest py-autopep8 pydoc pylint python-info auto-complete-rst sphinx-doc sphinx-frontend sphinx-mode ox-mediawiki ox-minutes ox-nikola cargo racket-mode rust-mode slime gherkin-mode gitlab gitlab-ci-mode org-jira powershell helm gitconfig-mode gitignore-mode ox-rst typescript-mode ## skewer-mode ob-http ob-ipython ob-restclient linum-relative markdown-mode nord-theme restclient request restclient-test yaml-mode magit)))
 '(python-shell-interpreter "python3" t)
 '(request-log-level (quote debug))
 '(request-message-level (quote debug))
 '(require-final-newline t)
 '(restclient-log-request t)
 '(restclient-same-buffer-response t)
 '(size-indication-mode nil)
 '(timeclock-file "~/Documents/Diary/timelog")
 '(timeclock-mode-line-display t)
 '(tool-bar-mode nil)
 '(truncate-lines nil)
 '(visible-bell nil))

(require 'markdown-mode)
(require 'linum-relative)
(require 'fill-column-indicator)
(require 'tls)
(require 'request)
(require 'yaml-mode)
(require 'json)
(require 'url)

;; UTF-8 FTW
(prefer-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)

;; nuke trailing whitespace when writing to a file
(add-hook 'write-file-hooks 'delete-trailing-whitespace)

(add-hook 'markdown-mode-hook 'turn-on-font-lock)
(add-hook 'python-mode-hook 'turn-on-font-lock)

;; I got sick of typing "yes"
(defalias 'yes-or-no-p 'y-or-n-p)

;; ++++++++++++++++++++ OS
(when (eq system-type 'darwin)
  (when (display-graphic-p)
    (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
    (add-to-list 'default-frame-alist '(ns-appearance . dark))))

(when (eq system-type 'windows-nt)
  ;; %USERPROFILE%\AppData\Local\Programs\emacs-26.2-x86_64\bin\emacsclientw.exe -c -n -a runemacs.exe
  ;; (setq inferior-lisp-program (executable-find "sbcl"))
  (setq sbcl-exe (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.exe"))
  (setq sbcl-core (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.core"))
  (setq slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))
  (setq python-shell-interpreter "python")
  (setq inferior-lisp-program "sbcl")
  (add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets"))
  (cd "~/opt")
  (when (display-graphic-p)
    (add-to-list 'default-frame-alist '(undecorated . nil))
    (add-to-list 'default-frame-alist '(font . "Iosevka Term-11"))
    (when (string= (system-name) "EVG01788WS")
      (add-to-list 'default-frame-alist '(fullscreen . maximized))
      (add-to-list 'load-path (expand-file-name "~/.emacs.d/__evo")))
    (when (string= (system-name) "XPS-8930"))))

(when (eq system-type 'gnu/linux)
  (setq slime-lisp-implementations '((sbcl ("/usr/bin/sbcl"))))
  (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
  (when (display-graphic-p)
    ;;    (toggle-frame-fullscreen)
    (setq-default line-spacing 3)
    (add-to-list 'default-frame-alist '(font . "Iosevka Term-14"))))
;; ++++++++++++++++++++ OS

(defun copy-whole-buffer ()
  "Copy entire buffer to clipboard"
  (interactive)
  (clipboard-kill-ring-save (point-min) (point-max)))

(defun format-whole-buffer ()
  "Copy entire buffer to clipboard"
  (interactive)
  (fill-paragraph (point-min) (point-max)))

(put 'upcase-region 'disabled nil)

(setq view-diary-entries-initially t
      mark-diary-entries-in-calendar t
      number-of-diary-entries 7)
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)


(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)

(defun duplicate-line()
  (interactive)
  (move-beginning-of-line 1)
  (kill-line)
  (yank)
  (open-line 1)
  (next-line 1)
  (yank)
  )
;;(global-set-key (kbd "C-d") 'duplicate-line)
(add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))

;; slime
(setq slime-contribs '(slime-fancy))



(require 'url)
(defun webscrap-page-raw (url)
  (interactive)
  (let 'url-request-method "GET")
  (url-retrieve url
                (lambda (status) (switch-to-buffer-other-window (current-buffer))))
  )

;; ===================== Org-mode ====================== ;;
(add-hook 'org-mode-hook 'turn-on-font-lock)
(org-clock-persistence-insinuate)
;; ==================== GLOBAL KEYS ==================== ;;
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cc" 'org-capture)
(global-set-key "\C-cb" 'org-switchb)
(global-set-key "\C-xg" 'magit-status)
(global-set-key "\C-xM-g" 'magit-dispatch)
(global-unset-key "\C-z")

;; ================= ALWAYS AT THE END ================= ;;
;; Turn off chrome
;; (dolist (mode '(menu-bar-mode tool-bar-mode scroll-bar-mode))
;; (when (fboundp mode) (funcall mode -1)))

;; Local Variables:
;; mode: emacs-lisp
;; coding: utf-8-unix
;; End: