emacs.d/bundle/bundle--package.el

267 lines
7.8 KiB
EmacsLisp

;; PACKAGE
(require 'package)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
(unless (package-installed-p 'use-package)
(package-install 'use-package))
;; USE-PACKAGE
(require 'use-package)
(setq use-package-always-ensure t)
(use-package company
:init
(global-company-mode))
(use-package counsel
:bind (("C-M-j" . 'counsel-switch-buffer)
:map minibuffer-local-map
("C-r" . 'counsel-minibuffer-history))
:custom
(counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
:config
(counsel-mode 1))
(use-package magit)
(use-package all-the-icons
:if (display-graphic-p)
:commands all-the-icons-install-fonts
:init
(unless (find-font (font-spec :name "all-the-icons"))
(all-the-icons-install-fonts t)))
(use-package all-the-icons-dired
:if (display-graphic-p)
:hook (dired-mode . all-the-icons-dired-mode))
(use-package ivy
:bind (("C-s" . swiper))
:init
(ivy-mode 1))
(use-package olivetti
:custom (olivetti-body-width 82))
(use-package shrface
:config
(shrface-basic)
(shrface-trial)
(shrface-default-keybindings)
(setq shrface-href-versatile t
shrface-toggle-bullets t
shr-width nil))
(use-package eww
:init
(add-hook 'eww-after-render-hook #'shrface-mode)
:config
(require 'shrface)
(setq shr-use-colors nil
shr-use-fonts nil
shr-cookie-policy nil
browse-url-browser-function (quote eww-browse-url)))
(use-package nov
:hook (nov-mode . olivetti-mode)
:config
(setq nov-text-width nil
nov-variable-pitch nil))
(use-package projectile
:init
(projectile-mode +1)
:config
(setq projectile-completion-system (quote ivy)))
(define-key projectile-mode-map (kbd "s-p") 'projectile-command-map)
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
;; (use-package elpy
;; :config (setq elpy-modules
;; '(elpy-module-autodoc
;; elpy-module-company
;; elpy-module-eldoc
;; elpy-module-pyvenv
;; elpy-module-yasnippet)
;; elpy-test-pytest-runner-command '("pytest")))
(use-package pyvenv
:init (pyvenv-mode 1))
(use-package typescript-mode)
(use-package go-mode)
(use-package eglot
:hook ((python-mode . eglot-ensure)
(c-mode . eglot-ensure)
(js-mode . eglot-ensure)
(typescript-mode . eglot-ensure)
(rust-mode . eglot-ensure)
(go-mode . eglot-ensure)))
(use-package go-mode
:init
(add-hook 'before-save-hook #'gofmt-before-save))
(use-package ob-go)
(use-package ob-http)
(use-package ob-rust)
(use-package ob-typescript)
(use-package web-mode
:hook html-mode
:mode "\\.html?\\'"
:config
(setq web-mode-markup-indent-offset 2
web-mode-css-indent-offset 2
web-mode-code-indent-offset 2
web-mode-enable-auto-pairing nil
web-mode-enable-auto-closing t
web-mode-enable-current-element-highlight t
web-mode-enable-current-column-highlight t))
(use-package slime
:config
(setq slime-autodoc-use-multiline-p 1
inferior-lisp-program (executable-find "sbcl"))
(slime-setup '(slime-autodoc
slime-fancy
slime-asdf
slime-indentation
slime-sbcl-exts
slime-company)))
(use-package org
:init
(org-babel-lob-ingest "~/.emacs.d/library-of-babel.org")
:config
(setq org-src-fontify-natively t
org-src-tab-acts-natively t)
(setq org-agenda-dim-blocked-tasks nil
org-agenda-inhibit-startup nil
org-agenda-span 14
org-agenda-start-on-weekday nil
org-agenda-include-diary t
org-refile-targets '((nil :maxlevel . 3))
org-export-dispatch-use-expert-ui nil)
(setq org-clock-out-remove-zero-time-clocks t
org-clock-persist t
org-clock-rounding-minutes 30
org-time-stamp-rounding-minutes '(15 15))
(setq org-html-doctype "html5"
org-html-html5-fancy t
org-html-htmlize-output-type nil)
(setq org-latex-pdf-process (quote ("latexmk -xelatex -shell-escape -quiet -f %f"))
org-latex-compiler "xelatex"
org-latex-listings t)
(setq org-babel-shell-names (quote ("sh" "bash" "csh" "ash" "dash" "ksh" "mksh" "posh"))
org-adapt-indentation t
org-confirm-babel-evaluate nil
org-log-done (quote time)
org-startup-folded t
org-startup-truncated nil
org-global-properties (quote (("EFFORT_ALL" . "1:00 2:00 3:00 5:00 8:00 13:00")))
org-todo-keywords (quote ((sequence "OPEN" "TODO" "DOING" "|" "DONE")))
org-export-backends (quote (ascii beamer html icalendar latex md odt confluence))
org-duration-format (quote h:mm)
org-src-window-setup 'other-window
org-src-lang-modes (quote
(("bash" . sh)
("elisp" . emacs-lisp)
("beamer" . latex)
("calc" . fundamental)
("dot" . fundamental)
("screen" . shell-script)
("shell" . sh)
("C" . c)
("sqlite" . sql)
("scheme" . racket)
("plantuml" . plantuml)))
org-use-property-inheritance nil
org-export-with-sub-superscripts nil
org-capture-templates (quote
(("t" "Task" entry (file+headline "tasks.org" "Tasks") "* OPEN %?\n\s %u\n\s %a")
("j" "Journal" entry (file+headline "journal.org" "Journal") "* %<%Y-%m-%d %H:%M:%S %p %Z>\n\s %?")
("a" "Appointment today" entry (file+headline "appointments.org" "Appointments") "* %?\n\s %T\n")
("A" "Appointment" entry (file+headline "appointments.org" "Appointments") "* %?\n\s %u\n\s"))))
(org-babel-do-load-languages
'org-babel-load-languages (quote
(
(emacs-lisp . t)
(js . t)
(lisp . t)
(python . t)
(sqlite . t)
(shell . t)
(plantuml . t)
(http . t)
))))
(use-package helpful
:commands (helpful-callable helpful-variable helpful-command helpful-key)
:custom
(counsel-describe-function-function #'helpful-callable)
(counsel-describe-variable-function #'helpful-variable)
:bind
([remap describe-function] . counsel-describe-function)
([remap describe-command] . helpful-command)
([remap describe-variable] . counsel-describe-variable)
([remap describe-key] . helpful-key))
(use-package ox-reveal)
(use-package powershell)
(use-package geiser
:config
(setq geiser-active-implementations '(racket)))
(use-package geiser-racket)
(use-package racket-mode)
(use-package doom-modeline
:init (doom-modeline-mode 1))
(use-package doom-themes
:init (load-theme 'doom-nord t))
(use-package rainbow-delimiters
:hook (prog-mode . rainbow-delimiters-mode))
(use-package flyspell
:config
(add-hook 'text-mode-hook #'flyspell-mode)
;;(add-hook 'prog-mode-hook #'flyspell-prog-mode)
)
(use-package org-tree-slide
:custom
(org-image-actual-width nil))
(use-package ace-window)
(use-package markdown-mode)
(use-package yaml-mode)
(use-package webpaste)
(use-package slime-company
:after (slime company)
:config (setq slime-company-after-completion 'slime-company-just-one-space))