feat(packages): Replace package.el with straight.el

This commit is contained in:
2020-01-31 02:47:23 +00:00
parent ee916bb347
commit b13ca362cb
51 changed files with 304 additions and 15916 deletions

4
.gitignore vendored
View File

@@ -1,3 +1,7 @@
straight/*
!straight/versions/
!straight/versions/*
*.elc
.DS_Store
.lsp-session*

View File

@@ -31,12 +31,6 @@ endef
# Defined vendored dependencies.
#
$(eval $(call vendored,vendor/dired+.el,https://www.emacswiki.org/emacs/download/dired%2b.el))
$(eval $(call vendored,vendor/escreen.el,https://github.com/renard/escreen-el/raw/master/escreen.el))
$(eval $(call vendored,vendor/hideshowvis.el,https://www.emacswiki.org/emacs/download/hideshowvis.el))
$(eval $(call vendored,vendor/ruby-guard.el,https://github.com/zhangkaiyulw/ruby-guard/raw/master/ruby-guard.el))
$(eval $(call vendored,vendor/tomorrow-night-paradise-theme.el,https://github.com/jimeh/tomorrow-night-paradise-theme.el/raw/master/tomorrow-night-paradise-theme.el))
#
# Main targets.

View File

@@ -26,7 +26,6 @@
(require 'siren-display-indentation)
(require 'siren-display-line-numbers)
(require 'siren-folding)
(require 'siren-helm-command)
(require 'siren-highlight-symbol)
(require 'siren-ido)
(require 'siren-minions)
@@ -54,8 +53,6 @@
(require 'siren-git-link)
(require 'siren-helm)
(require 'siren-helm-ag)
(require 'siren-helm-files)
(require 'siren-helm-imenu)
(require 'siren-helm-open-github)
(require 'siren-helm-swoop)
(require 'siren-move-beginning-of-line)

View File

@@ -6,69 +6,43 @@
;;; Code:
(require 'cl)
(require 'package)
;; Work-around bug in Emacs 26.2 preventing GNU ELPA to work over HTTPS.
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
(setq package-archives
'(("gnu" . "https://elpa.gnu.org/packages/")
("melpa-stable" . "https://stable.melpa.org/packages/")
("melpa" . "https://melpa.org/packages/"))
package-archive-priorities
'(("melpa" . 10)
("gnu" . 5)
("melpa-stable" . 0)))
;; Initialize straight.el
(setq straight-cache-autoloads t
straight-check-for-modifications '(check-on-save find-when-checking)
straight-repository-branch "develop"
straight-use-package-by-default t
use-package-always-ensure nil)
;; set package-user-dir to be relative to config path
(setq package-user-dir (expand-file-name "elpa" siren-dir))
(package-initialize)
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el"
user-emacs-directory))
(bootstrap-version 5))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
(defvar siren-packages
'(dash
diminish
exec-path-from-shell
smart-mode-line
use-package)
"A list of default packages to ensure are installed at launch.")
;; https://github.com/raxod502/straight.el/issues/49#issuecomment-395979478
(defun straight-x-clean-unused-repos ()
(interactive)
(dolist (repo (straight--directory-files (straight--repos-dir)))
(unless (or (straight--checkhash repo straight--repo-cache)
(not (y-or-n-p (format "Delete repository %S?" repo))))
(delete-directory (straight--repos-dir repo) 'recursive 'trash))))
;;
;; Package helpers (borrowed from Emacs Prelude)
;;
(defun siren-packages-installed-p ()
"Check if all packages in `siren-packages' are installed."
(every #'package-installed-p siren-packages))
(defun siren-require-package (package)
"Install PACKAGE unless already installed."
(unless (memq package siren-packages)
(add-to-list 'siren-packages package))
(unless (package-installed-p package)
(package-install package)))
(defun siren-require-packages (packages)
"Ensure PACKAGES are installed.
Missing packages are installed automatically."
(mapc #'siren-require-package packages))
(defun siren-install-packages ()
"Install all packages listed in `siren-packages'."
(unless (siren-packages-installed-p)
;; check for new packages (package versions)
(message "%s" "Emacs is now refreshing its package database...")
(package-refresh-contents)
(message "%s" " done.")
;; install the missing packages
(siren-require-packages siren-packages)))
;; Install Melpa packages
(siren-install-packages)
;; Ensure use-package is loaded and configured
(require 'use-package)
(setq use-package-always-ensure t)
(straight-use-package 'dash)
(straight-use-package 'diminish)
(straight-use-package 'exec-path-from-shell)
(straight-use-package 'smart-mode-line)
(straight-use-package 'use-package)
(provide 'siren-core-packages)
;;; siren-core-packages.el ends here

View File

@@ -3,10 +3,7 @@
;; 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.
'(ecb-options-version "2.50")
'(package-selected-packages
(quote
(zoom-window yasnippet-snippets yari yaml-mode writeroom-mode which-key web-mode use-package typescript-mode toggle-quotes tide thrift string-inflection string-edit sqlformat smex smartparens smart-mode-line slim-mode seeing-is-believing scss-mode sass-mode rust-playground ruby-tools ruby-refactor ruby-compilation rubocopfmt rubocop rspec-mode robe rjsx-mode restart-emacs resize-window realgud-byebug rbenv rainbow-mode racer prettier-js plantuml-mode php-mode phi-search ox-jira ox-gfm neotree nav multiple-cursors move-dup magit-todos magit-gh-pulls lua-mode lsp-ui lsp-mode linum-relative json-mode inf-ruby imenu-anywhere ido-vertical-mode ido-completing-read+ htmlize hlinum highlight-symbol highlight-indentation highlight-indent-guides helpful helm-swoop helm-projectile helm-open-github helm-lsp helm-gtags helm-describe-modes helm-descbinds helm-ag groovy-mode go-projectile go-playground go-dlv gitignore-mode github-browse-file gitconfig-mode git-timemachine git-link full-ack flycheck-rust flycheck-gometalinter flutter fill-column-indicator feature-mode expand-region exec-path-from-shell evil eslintd-fix editorconfig dumb-jump doom-themes dockerfile-mode direx diminish diff-hl dash-at-point dart-mode company-lsp company-go coffee-mode cargo buffer-move browse-kill-ring anzu ace-window))))
'(ecb-options-version "2.50"))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.

13
early-init.el Normal file
View File

@@ -0,0 +1,13 @@
;;; early-init.el --- jimeh's Emacs Siren: early init file.
;;; Commentary:
;; The file before the file that starts it all.
;;; Code:
;; Disable Emacs 27's automatic package.el initialization before the init.el
;; file is loaded. I use straight.el instead of package.el.
(setq package-enable-at-startup nil)
;;; early-init.el ends here

View File

@@ -9,7 +9,7 @@
;; Emacs 27.x and later: Use native display-fill-column-indicator
(when (not (version< emacs-version "27.0"))
(use-package display-fill-column-indicator
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:hook
(prog-mode . display-fill-column-indicator-mode)

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package display-line-numbers
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:hook
(prog-mode . display-line-numbers-mode))
@@ -20,7 +20,7 @@ Optional ARG is passed directly to mode toggle function."
;; Fix issue were the left fringe's is cut off by one pixel on the left side.
;; from: https://github.com/dgutov/diff-hl/issues/94#issuecomment-334168416
(use-package frame
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:defer t
:config
(progn

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package hideshow
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:demand
:bind
@@ -43,8 +43,8 @@ Borrowed from: http://www.emacswiki.org/emacs/HideShow"
(1+ (current-column)))))))
(use-package hideshowvis
:ensure nil ;; loaded from vendor
:demand)
:demand
:after hideshow)
(provide 'siren-folding)
;;; siren-folding.el ends here

View File

@@ -1,23 +0,0 @@
;;; siren-helm-command.el --- jimeh's Emacs Siren: helm-command.
;;; Commentary:
;; Configure helm-command.
;;; Code:
(require 'siren-helm)
(use-package helm-command
:ensure helm
:defer t
:bind
("M-x" . helm-M-x)
:custom
(helm-M-x-always-save-history t)
(helm-M-x-fuzzy-match t))
(provide 'siren-helm-command)
;;; siren-helm-command.el ends here

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package ido
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:custom
(ido-auto-merge-work-directories-length -1)

View File

@@ -12,7 +12,7 @@
(require 'siren-prettier-js)
(use-package js-mode
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:mode
"\\.js\\'"
"\\.pac\\'"

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package make-mode
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:hook
(makefile-mode . siren-makefile-mode-setup)

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package prog-mode
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:hook
(prog-mode . siren-prog-mode-setup)

View File

@@ -17,7 +17,7 @@
(add-to-list 'projectile-globally-ignored-directories "vendor/ruby")
(use-package ruby-mode
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:interpreter "ruby"
:mode
"Appraisals\\'"
@@ -156,10 +156,6 @@
(use-package ruby-compilation
:defer t)
(use-package ruby-guard
:ensure nil ;; loaded from vendor
:commands ruby-guard)
(use-package ruby-refactor
:defer t
:hook

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package sh-script
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:mode
"\\.tmux"
"\\.tmuxsh"

View File

@@ -9,7 +9,7 @@
(require 'siren-rainbow)
(use-package sql-mode
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:mode "\\.sql\\'"
:hook (sql-mode . siren-sql-mode-setup)

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package text-mode
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:hook (text-mode . siren-text-mode-setup)
:init
(defun siren-text-mode-setup ()

View File

@@ -9,10 +9,10 @@
(require 'siren-prettier-js)
(require 'siren-prog-mode)
(use-package toml-mode
:ensure nil ;; loaded from emacs built-ins
(use-package conf-toml-mode
:straight (:type built-in)
:mode "\\.toml\\'"
:hook (toml-mode . siren-toml-mode-setup)
:hook (conf-toml-mode . siren-toml-mode-setup)
:init
(defun siren-toml-mode-setup ()

View File

@@ -10,7 +10,7 @@
(require 'siren-prog-mode)
(use-package nxml-mode
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:hook (nxml-mode . siren-xml-setup)
:custom

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package zone
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:init
(defun zone-choose (pgm)
"Choose a PGM to run for `zone'."

View File

@@ -7,8 +7,6 @@
;;; Code:
(use-package dired+
:ensure nil ;; loaded from vendor
:demand
:bind (:map dired-mode-map
("c" . dired-create-directory)
("C-l" . diredp-up-directory-reuse-dir-buffer))

View File

@@ -25,6 +25,7 @@
"elpa"
"node_modules"
"sorbet"
"straight"
"vendor/assets")))
(provide 'siren-helm-ag)

View File

@@ -1,24 +0,0 @@
;;; siren-helm-files.el --- jimeh's Emacs Siren: helm-files configuration.
;;; Commentary:
;; Basic configuration for helm-files.
;;; Code:
(require 'siren-helm)
(use-package helm-files
:ensure helm
:defer t
:bind
("C-x C-f" . helm-find-files)
("C-c f f" . helm-for-files)
("C-c f r" . helm-recentf)
:custom
(helm-ff-file-name-history-use-recentf t)
(helm-ff-search-library-in-sexp t))
(provide 'siren-helm-files)
;;; siren-helm-files.el ends here

View File

@@ -1,25 +0,0 @@
;;; siren-helm-imenu.el --- jimeh's Emacs Siren: helm-imenu configuration.
;;; Commentary:
;; Basic configuration for helm-imenu.
;;; Code:
(require 'imenu)
(require 'siren-helm)
(use-package imenu-anywhere
:config
(set-default 'imenu-auto-rescan t)
(set-default 'imenu-max-item-length 160)
(set-default 'imenu-max-items 400))
(use-package helm-imenu
:ensure helm
:bind
("C-t" . helm-imenu)
("C-c t" . helm-imenu-anywhere))
(provide 'siren-helm-imenu)
;;; siren-helm-imenu.el ends here

View File

@@ -6,8 +6,15 @@
;;; Code:
(require 'imenu)
(use-package imenu-anywhere
:config
(set-default 'imenu-auto-rescan t)
(set-default 'imenu-max-item-length 160)
(set-default 'imenu-max-items 400))
(use-package helm
:defer t
:hook
(helm-minibuffer-set-up . siren-helm--hide-minibuffer-maybe)
(helm-after-initialize . siren-helm--toggle-source-header-line)
@@ -16,13 +23,26 @@
(helm-cleanup . siren-helm--show-neotree-maybe)
(helm-cleanup . siren-helm--show-treemacs-maybe)
:bind
("M-x" . helm-M-x)
("C-t" . helm-imenu)
("C-c t" . helm-imenu-anywhere)
("C-x C-f" . helm-find-files)
("C-c f f" . helm-for-files)
("C-c f r" . helm-recentf)
:custom
(helm-M-x-always-save-history t)
(helm-M-x-fuzzy-match t)
(helm-autoresize-max-height 30)
(helm-autoresize-min-height 30)
(helm-autoresize-mode t)
(helm-buffer-max-length 64)
(helm-case-fold-search 'smart)
(helm-command-prefix-key "C-c h")
(helm-echo-input-in-header-line t)
(helm-ff-file-name-history-use-recentf t)
(helm-ff-search-library-in-sexp t)
(helm-file-name-case-fold-search 'smart)
(helm-split-window-default-side 'below)
(siren-helm--did-hide-neotree nil)
@@ -90,15 +110,15 @@
(select-window win))))
:config
(require 'helm-config)
(require 'helm-command)
(require 'helm-files)
(require 'helm-imenu)
(advice-add 'helm :before 'siren-helm--hide-neotree)
(advice-add 'helm :before 'siren-helm--hide-treemacs))
(use-package helm-config
:ensure helm
:custom
(helm-command-prefix-key "C-c h"))
(use-package helm-descbinds
:defer t)

View File

@@ -12,8 +12,7 @@
(require 'siren-flyspell)
(require 'siren-smartparens)
(use-package org-mode
:ensure nil ;; loaded from emacs built-ins
(use-package org
:bind (:map org-mode-map
("C-j" . newline-and-indent)
("RET" . newline-and-indent)

View File

@@ -7,8 +7,7 @@
;;; Code:
(use-package org-mouse
:ensure nil ;; loaded from emacs built-ins
)
:straight (:type built-in))
(provide 'siren-org-mouse)
;;; siren-org-mouse.el ends here

View File

@@ -24,7 +24,7 @@
(setq dired-sidebar-use-term-integration t))
(use-package all-the-icons-dired
:requires dired-sidebar
:after dired-sidebar
:commands (all-the-icons-dired-mode))
(provide 'siren-dired-sidebar)

View File

@@ -7,7 +7,9 @@
;;; Code:
(use-package projectile
:demand
:hook
(after-init . projectile-mode)
:bind
("C-c p p" . projectile-switch-project)
("C-c p k" . projectile-kill-buffers)
@@ -45,6 +47,7 @@
"logs"
"node_modules"
"sorbet"
"straight"
"tmp"
"vendor/assets"))
(projectile-globally-ignored-files '("TAGS" "*.log"))
@@ -55,9 +58,7 @@
:config
;; Treat separate directories with Gemfiles within a single git repo as
;; separate projects.
(push "Gemfile" projectile-project-root-files-bottom-up)
(projectile-mode t))
(push "Gemfile" projectile-project-root-files-bottom-up))
(provide 'siren-projectile)
;;; siren-projectile.el ends here

View File

@@ -48,17 +48,17 @@
(use-package treemacs-projectile
:demand
:requires (treemacs projectile)
:after (treemacs projectile)
:custom
(treemacs-header-function #'treemacs-projectile-create-header))
(use-package treemacs-persp
:demand
:requires treemacs persp-mode)
:after treemacs persp-mode)
(use-package treemacs-magit
:demand
:requires treemacs magit)
:after treemacs magit)
(use-package lsp-treemacs
:config

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package flyspell
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:demand
:diminish flyspell-mode
:bind

View File

@@ -9,10 +9,8 @@
(use-package yasnippet-snippets)
(use-package yasnippet
:demand
:diminish yas-minor-mode
:config
(yas-global-mode t))
:hook (after-init . yas-global-mode)
:diminish yas-minor-mode)
(provide 'siren-yasnippet)
;;; siren-yasnippet.el ends here

View File

@@ -9,13 +9,11 @@
(require 'siren-magit)
(use-package diff-hl
:demand
:hook ((dired-mode . diff-hl-dired-mode)
(magit-post-refresh . diff-hl-magit-post-refresh))
:config
(global-diff-hl-mode +1)
(diff-hl-flydiff-mode +1))
:hook
(after-init . global-diff-hl-mode)
(after-init . diff-hl-flydiff-mode)
(dired-mode . diff-hl-dired-mode)
(magit-post-refresh . diff-hl-magit-post-refresh))
(provide 'siren-diff-hl)
;;; siren-diff-hl.el ends here

View File

@@ -11,7 +11,6 @@
(require 'siren-flyspell)
(use-package magit
:demand
:bind
("C-x g". magit-status)

View File

@@ -7,7 +7,7 @@
;;; Code:
(use-package windmove
:ensure nil ;; loaded from emacs built-ins
:straight (:type built-in)
:config
(global-set-key (kbd "M-k") (siren-ignore-error-wrapper 'windmove-down))
(global-set-key (kbd "M-i") (siren-ignore-error-wrapper 'windmove-up))

View File

@@ -7,22 +7,23 @@
;;; Code:
(use-package escreen
:ensure nil ;; loaded from vendor
:straight (:type git :host github :repo "renard/escreen-el")
:demand
:bind (("s-}" . escreen-goto-next-screen)
("s-{" . escreen-goto-prev-screen)
:map escreen-map
("C-z" . escreen-goto-last-screen)
("l" . escreen-goto-last-screen)
("C-l" . escreen-goto-last-screen)
(";" . siren-escreen-get-active-screen)
("C-;" . siren-escreen-get-active-screen)
("C-c" . escreen-create-screen)
("C-g" . escreen-goto-screen)
("C-k" . escreen-kill-screen)
("C-n" . escreen-goto-next-screen)
("C-p" . escreen-goto-prev-screen))
:bind
("s-}" . escreen-goto-next-screen)
("s-{" . escreen-goto-prev-screen)
(:map escreen-map
("C-z" . escreen-goto-last-screen)
("l" . escreen-goto-last-screen)
("C-l" . escreen-goto-last-screen)
(";" . siren-escreen-get-active-screen)
("C-;" . siren-escreen-get-active-screen)
("C-c" . escreen-create-screen)
("C-g" . escreen-goto-screen)
("C-k" . escreen-kill-screen)
("C-n" . escreen-goto-next-screen)
("C-p" . escreen-goto-prev-screen))
:hook
(escreen-goto-screen . siren-escreen-get-active-screen)

View File

@@ -7,7 +7,6 @@
;;; Code:
(use-package persp-mode
:demand
:hook
(after-init . persp-mode)

View File

@@ -0,0 +1,169 @@
(("ace-window" . "7e0777b39a93c68cb5218a30be3e8c2774bc0a3d")
("all-the-icons.el" . "1416f37984486a44c6c0cbe0a2c985e82f965b6b")
("avy" . "cf95ba9582121a1c2249e3c5efdc51acd566d190")
("browse-kill-ring" . "8debc43e41d7e51532698331c6f283905890b904")
("buffer-move" . "cb517ecf8409b5fdcda472d7190c6021f0c49751")
("cargo.el" . "dc9ff35c2861d524ac4d65020c5320eec71acacf")
("closql" . "1e78f96dc976badb59067c986f7766cce89405cc")
("coffee-mode" . "86ab8aae8662e8eff54d3013010b9c693b16eac5")
("company-lsp" . "f921ffa0cdc542c21dc3dd85f2c93df4288e83bd")
("company-mode" . "831371b1d418087da242ccb5cbe16a1e5ce6f5ca")
("cucumber.el" . "11ae1671629bfedaa553c7b819676d64eb320992")
("dart-mode" . "04fcd649f19d49390079fbf2920a10bf37f6a634")
("dash-at-point" . "4d795a23a8428c421d5107f1b005c9d8e0d1816c")
("dash.el" . "721436b04da4e2795387cb48a98ac6de37ece0fd")
("diff-hl" . "fb9eb1cd3c4c6ed24b93de1a7cfb369d2983be74")
("diminish.el" . "96b47cf90360e4bd19138fe82dc59bfa86c7bf7d")
("dired-plus" . "b51974b84b861592c3519117f3f51ee557ca01ba")
("direx" . "a79bfdb5980cf6ed7bfb3b41ddc471a7b6c0ede4")
("dockerfile-mode" . "d31f7685ebc5832d957e25070a930aa42984327d")
("doom-modeline" . "21ac60632531316a4d01041ca7eb16696fa38b61")
("dumb-jump" . "07fa5be7d24b0ac743eb718ae12f0b40a1e5148f")
("editorconfig-emacs" . "5c67d22a749408fe9a719ccc4cc75beba62a71e8")
("elisp-refs" . "0a254e6a4dc7fa12857f8334fe6eefa72e49d1c9")
("emacs-anzu" . "592f8ee6d0b1bc543943b36a30063c2d1aac4b22")
("emacs-async" . "86aef2c38e7d35e8509b7feeee3e989d825eba91")
("emacs-doom-themes" . "d48df7b02e404cc52bfb8d2eb961e47ac161b891")
("emacs-go-eldoc" . "cbbd2ea1e94a36004432a9ac61414cb5a95a39bd")
("emacs-helm-ag" . "2fc02c4ead29bf0db06fd70740cc7c364cb650ac")
("emacs-helm-open-github" . "2f03d97552a1233db7694116d5f80ecde7612756")
("emacs-htmlize" . "86f22f211e9230857197c42a9823d3f05381deed")
("emacs-load-relative" . "dbcd7cbcca6503ef93f4b8d19bf7a9efd7f6bf9b")
("emacs-loc-changes" . "4d1dcdf7631c23b1259ad4f72bf9686cf95fb46c")
("emacs-memoize" . "51b075935ca7070f62fae1d69fe0ff7d8fa56fdd")
("emacs-slim" . "3636d18ab1c8b316eea71c4732eb44743e2ded87")
("emacs-test-simple" . "cfd383d36dc6853917acb753fdfa0eebf33856f3")
("emacs-zoom-window" . "cd6ecc103fc30b171bda7daf1f44a550854d0dbf")
("emacsmirror-mirror" . "8c2ab320b0386d1d358e8070c0b7ab379259b4f7")
("emacsql" . "a118b6c95af1306f0288a383d274b5dd93efbbda")
("epl" . "78ab7a85c08222cd15582a298a364774e3282ce6")
("exec-path-from-shell" . "76fbdf5d01bace97dbabf5a4b56b6d9414a7aea3")
("expand-region.el" . "0fa7c2d349e40c0e1de0965acf0f0b77b7070451")
("f.el" . "1814209e2ff43cf2e6d38c4cd476218915f550fb")
("fbthrift" . "a3394d248c6ec0cc7e2bcf87ee6b8ec05ffc8405")
("flutter.el" . "6631b46bb770e8f9234974bf19657163143e4b7d")
("flycheck" . "269237f6529a4ad7db5bbbc5a40c1f038accf3cd")
("flycheck-golangci-lint" . "8e446c68311048f0b87febf8ef0379e29d358851")
("flycheck-package" . "d76e04009f2548581fc9e9a84f79f1a3112f1096")
("flycheck-rust" . "a139cd53c5062697e9ed94ad80b803c37d999600")
("forge" . "0081afd2c8afeb5ff9d0842ac5071969fd9c0fc3")
("gh.el" . "f029fc11f345ef04ab62ee91c38657e29c462fea")
("ghub" . "4ebe60b9522355c6ee95005bc7d8ba41df4a3c6b")
("git-link" . "2fb0e4be8801e7d53e02fc7f14ec0f9a14586ba2")
("git-modes" . "55468314a5f6b77d2c96be62c7005ac94545e217")
("git-timemachine" . "391eb61050de321101e631fcf373fc70ec6e7700")
("github-browse-file" . "9742a5183af853788c6ecb83fb7ee0b00d1675ac")
("gnu-elpa-mirror" . "1685471c1815305b226ddebdd4709706f4f9b827")
("go-dlv.el" . "d3cca689e76b71e0ef0ab827c7e01cd9042d2095")
("go-mode.el" . "53c76cddf54638dea5e4cae99ce0181de28e1064")
("go-playground" . "508294fbc22b22b37f587b2dbc8f3a48a16a07a6")
("go-projectile" . "7910884b4de560f3fc70b53752f658ef9cdc02cd")
("gotest.el" . "70f63eafda1f6a2f0a01a9320cc4d2edee9a17b2")
("goto-chg" . "1829a13026c597e358f716d2c7793202458120b5")
("groovy-emacs-modes" . "cafdd98e06a3bbff213f3ccb163de2c42d412b66")
("haml-mode" . "bf5b6c11b1206759d2b28af48765e04882dd1fc4")
("helm" . "1e8c368b14f3e59c01993cf135dbc5a906ef5b39")
("helm-descbinds" . "b72515982396b6e336ad7beb6767e95a80fca192")
("helm-describe-modes" . "11fb36af119b784539d31c6160002de1957408aa")
("helm-lsp" . "6f62659cc528b7e37ffcc8fb356633acd7031be8")
("helm-projectile" . "5328b74dddcee8d1913803ca8167868831a07463")
("helm-swoop" . "9324d8c196ab2a86fde7142f159e081b87a4d277")
("helpful" . "e511e8dbd32a8b8423f07178f0ea7c1ecfc63935")
("hideshowvis" . "fb6c9856fc04a1ad3451eba377db635e3c4ef30f")
("highlight-indent-guides" . "0b10f38c54ffc099861ce8463e16a1b07ddbb203")
("highlight-symbol.el" . "7a789c779648c55b16e43278e51be5898c121b3a")
("hl-todo" . "3bba4591c54951d2abab113ec5e58a6319808ca9")
("ht.el" . "66c5f9131242697fabaede5566d87ecda4c14b1f")
("hydra" . "e3beffdd804b87b20c87d7fb8e37d6eee2b0d763")
("ido-completing-read-plus" . "74861eabd0a2619be9efc4c91fe0c5e69db5f263")
("ido-vertical-mode.el" . "16c4c1a112796ee0bcf401ea39d3e2643a89feaf")
("imenu-anywhere" . "88b0e120284058b32252e4b0ed1a07c9fe44092f")
("inf-ruby" . "fd8d392fefd1d99eb58fc597d537d0d7df29c334")
("js2-mode" . "b3841a7a304d9d1328fdb0868fbbecf0c2f9831f")
("json-mode" . "0e819e519ae17a2686e0881c4ca51fa873fa9b83")
("json-reformat" . "8eb6668ed447988aea06467ba8f42e1f2178246f")
("json-snatcher" . "c4cecc0a5051bd364373aa499c47a1bb7a5ac51c")
("let-alist" . "ef3c02fa292b6e32769945bbbfb7f2e5ac574b64")
("logito" . "824acb89d2cc18cb47281a4fbddd81ad244a2052")
("loop.el" . "e22807f83a0890dc8a904c51ee0742c34efccc6c")
("lsp-mode" . "4a429edee2c501389a23ea683c5d89761524ef32")
("lsp-treemacs" . "6dfc960a21e10c826b95d28590fcd423f0295b20")
("lsp-ui" . "4094eaf557ae43229abf3a0cf6e53c0a446f7bf0")
("lua-mode" . "1f596a93b3f1caadd7bba01030f8c179b029600b")
("magit" . "e5e475c61ce568a7e20ed8f795fa343a93632871")
("magit-todos" . "5d42e20b47daf844ac42d4d5aa93d3a75958eee7")
("markdown-mode" . "e9dff50d572caa96b68a7466c18c97a8d6ed651c")
("marshal.el" . "f038689cbd5b3680b80b44edd0c7a63ca3038e26")
("melpa" . "5f197baa4452e0bd3bac3fa6dc033a2c8a1ae228")
("minions" . "c331c1516111b9d2136e632a218c1d7707215356")
("move-dup" . "19f1c075d939084279b190c38412b4cfda96840d")
("multiple-cursors.el" . "b880554d04b8f61165afba7d4de19ac9e39bb7ab")
("org" . "4f98694bf75db07386cd33aecde60c21d925b1d5")
("ox-gfm" . "99f93011b069e02b37c9660b8fcb45dab086a07f")
("ox-jira.el" . "db2ec528f46c9e611624ba28611c440a99bff255")
("package-build" . "f0ded6bf6532f475fdf62a62ef432604d6dddbe3")
("package-lint" . "cf2ce871549bb816ecb7a9930bdfb77525468f5e")
("paradox" . "339fe3518d1d102b2295670340e75caf4f01a29a")
("pcache" . "1f31433ad0b37a2e68d60ee043a8188ef1ce3176")
("pcre2el" . "0b5b2a2c173aab3fd14aac6cf5e90ad3bf58fa7d")
("persp-mode.el" . "e330e6240bbb82589077f30472b05b95d1ff430d")
("pfuture" . "fbecd1562b34fcd15563b7cc00d98e5af0d7e43d")
("phi-search" . "2a8fe73aa9ef014e27e202964c5a4f4e94ef24b2")
("php-mode" . "cade4cef2b783aca2d9fe0ae4b72467e6bd84694")
("pkg-info" . "76ba7415480687d05a4353b27fea2ae02b8d9d61")
("plantuml-mode" . "5889166b6cfe94a37532ea27fc8de13be2ebfd02")
("popup-el" . "80829dd46381754639fb764da11c67235fe63282")
("prettier-emacs" . "e9b73e81d3e1642aec682195f127a42dfb0b5774")
("projectile" . "7227b2c807fbec0599b3000a91b59a0f9a038828")
("rainbow-mode" . "3ef813d6377226de0cac1b0ee536b517f45e61ad")
("rbenv.el" . "2ea1a5bdc1266caef1dd77700f2c8f42429b03f1")
("realgud" . "2cca776d28c4d6ebef033758ef01f2af2e9b3b96")
("realgud-byebug" . "f8f20b92c6b13f75cc9797921c0e28d3def48b1c")
("reformatter.el" . "6c5e7f64c5ac1178dff5ca28d9809c08398fb3e6")
("resize-window" . "72018aa4d2401b60120588199d4cedd0dc1fbcfb")
("restart-emacs" . "9aa90d3df9e08bc420e1c9845ee3ff568e911bd9")
("rich-minority" . "a03e693f6f9232cf75363aaaf1cb041f21675c19")
("rinari" . "134438af8fbdfa9c8077267c768d273a9792b484")
("rjsx-mode" . "014c760138dac5ae47ed3eade62f4a9f765f52b7")
("robe" . "8190cb7c7beb8385dd3abf6ea357f33d8981ae8a")
("rspec-mode" . "c4353a1bff164bccf6c55fda16aa7b9c9ab36685")
("rubocop-emacs" . "03bf15558a6eb65e4f74000cab29412efd46660e")
("rubocopfmt.el" . "fc96145719a65b2551339d087ddd95b72e14646f")
("ruby-refactor" . "e6b7125878a08518bffec6942df0c606f748e9ee")
("ruby-tools.el" . "6b97066b58a4f82eb2ecea6434a0a7e981aa4c18")
("rust-mode" . "4381a89f6827716c9203b2f9ff0953934c6f0b4b")
("rust-playground" . "5a117781dcb66065bea7830dd73618008fc34949")
("s.el" . "03410e6a7a2b11e47e1fea3b7d9899c7df26435e")
("sass-mode" . "247a0d4b509f10b28e4687cd8763492bca03599b")
("scss-mode" . "cf58dbec5394280503eb5502938f3b5445d1b53d")
("seeing-is-believing" . "fbbe246c0fda87bb26227bb826eebadb418a220f")
("shell-pop-el" . "4a3a9d093ad1add792bba764c601aa28de302b34")
("shrink-path.el" . "c14882c8599aec79a6e8ef2d06454254bb3e1e41")
("smart-mode-line" . "999be065b195f2eddb4e1b629f99038d832d44b7")
("smart-shift" . "a26ab2b240137e62ec4bce1698ed9c5f7b6d13ae")
("smartparens" . "9449ae08593180ba99e4517897e8e825d3c422a8")
("smex" . "55aaebe3d793c2c990b39a302eb26c184281c42c")
("spinner" . "2daa167bec1c7566d662d48613a94453536b524a")
("sqlformat" . "f7f46be6f06b83642c312151f3b5276f8830d9d7")
("straight.el" . "4a7116f7f67bc8111a13e46db81f387f37814fd5")
("string-edit.el" . "c44b65b4c5e9f52be9c14d88ca2f402a18d9e1dd")
("string-inflection" . "e9a50855a4c718592c28a5a892f164ecf46e39a8")
("tide" . "1878a097fc41ee81c40c155022c8feaaf8bfaa6d")
("toggle-quotes.el" . "33abc221d6887f0518337851318065cd86c34b03")
("transient" . "79777324858df408bd6ba7509d9f0b6987208d98")
("treemacs" . "bfd1d8c421bd76f08a9173931d54ed020eda6f79")
("treepy.el" . "306f7031d26e4ebfc9ff36614acdc6993f3e23c3")
("typescript.el" . "a0f2c3ebd4c7cde7f3c25f9cef12b679118d3351")
("undo-tree" . "5b6df03781495d8a25695d846b0cce496d3d3058")
("use-package" . "42db6b3d90ee57d0f5947d3b0bf4b0010bdf7b40")
("visual-fill-column" . "772d4b25ba19f57409cd03524be0f5bfdc2e8da1")
("web-beautify" . "e1b45321d8c11b404b12c8e55afe55eaa7c84ee9")
("web-mode" . "cd000fcfce97152f8b831b7eef4ea0d0b1eed11a")
("with-editor" . "7e0bf753709f1775d2bbbb6edf4482fca7fd286a")
("writeroom-mode" . "fa17eb651102502f60086d62784f1dae15c0630d")
("yaml-imenu.el" . "78a383098807014d9e7f2941196d8271677158cd")
("yaml-mode" . "cecf4b106b0c4236931b14919fdf87ff3546e2c9")
("yari.el" . "a2cb9656ee5dfe1fc2ee3854f3079a1c8e85dbe9")
("yasnippet" . "3bf9a3b1af37174a004798b7195826af0123fa6a")
("yasnippet-snippets" . "612be838d2e50c3601c349d7842702d95e17682a"))
:alpha

View File

@@ -6,9 +6,7 @@
;;; Code:
(use-package doom-modeline
:ensure t
:hook (after-init . doom-modeline-mode)
:custom
@@ -24,4 +22,4 @@
(doom-modeline-vcs-max-length 24))
(provide 'siren-doom-modeline)
;;; siren-doom-mode-line.el ends here
;;; siren-doom-modeline.el ends here

View File

@@ -11,8 +11,6 @@
(require 'siren-folding)
(use-package doom-themes
:ensure t
:custom
;; Global settings (defaults)
(doom-themes-enable-bold t) ; if nil, bold is universally disabled

View File

@@ -11,8 +11,6 @@
(require 'siren-folding)
(use-package doom-themes
:ensure t
:custom
;; Global settings (defaults)
(doom-themes-enable-bold t) ; if nil, bold is universally disabled

View File

@@ -11,8 +11,6 @@
(require 'siren-folding)
(use-package doom-themes
:ensure t
:custom
;; Global settings (defaults)
(doom-themes-enable-bold t) ; if nil, bold is universally disabled

View File

@@ -11,8 +11,6 @@
(require 'siren-folding)
(use-package doom-themes
:ensure t
:custom
;; Global settings (defaults)
(doom-themes-enable-bold t) ; if nil, bold is universally disabled

View File

@@ -11,8 +11,6 @@
(require 'siren-folding)
(use-package doom-themes
:ensure t
:custom
;; Global settings (defaults)
(doom-themes-enable-bold t) ; if nil, bold is universally disabled

View File

@@ -6,7 +6,9 @@
;;; Code:
(require 'tomorrow-night-paradise-theme)
(use-package tomorrow-night-paradise-theme
:straight (:type git :host github
:repo "jimeh/tomorrow-night-paradise-theme.el"))
(provide 'siren-theme-tomorrow-night-paradise)
;;; siren-theme-tomorrow-night-paradise.el ends here

14094
vendor/dired+.el vendored

File diff suppressed because it is too large Load Diff

1150
vendor/escreen.el vendored

File diff suppressed because it is too large Load Diff

232
vendor/hideshowvis.el vendored
View File

@@ -1,232 +0,0 @@
;;; hideshowvis.el --- Add markers to the fringe for regions foldable by hideshow.el
;;
;; Copyright 2008-2012 Jan Rehders
;;
;; Author: Jan Rehders <cmdkeen@gmx.de>
;; Version: 0.5
;; Contributions and bug fixes by Bryan Waite, Michael Heerdegen, John Yates and
;; Matthew Fidler.
;;
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;
;;
;;; Commentary:
;;
;; This minor mode will add little +/- displays to foldable regions in the
;; buffer and to folded regions. It is indented to be used in conjunction with
;; hideshow.el which is a part of GNU Emacs since version 20.
;;
;; Currently it works for me but is not tested heavily. Please report any bugs
;; to the above email address
;;
;;; Installation:
;; Add the following to your .emacs:
;;
;; (autoload 'hideshowvis-enable "hideshowvis" "Highlight foldable regions")
;;
;; (autoload 'hideshowvis-minor-mode
;; "hideshowvis"
;; "Will indicate regions foldable with hideshow in the fringe."
;; 'interactive)
;;
;;
;; (dolist (hook (list 'emacs-lisp-mode-hook
;; 'c++-mode-hook))
;; (add-hook hook 'hideshowvis-enable))
;;
;; If enabling hideshowvis-minor-mode is slow on your machine use M-x,
;; customize-option, hideshowvis-ignore-same-line and set it to nil. This will
;; then display - icons for foldable regions of one line, too but is faster
;;
;; To enable displaying a + symbol in the fringe for folded regions,
;; use:
;;
;; (hideshowvis-symbols)
;;
;; in your ~/.emacs
;;
;; It is not enabled by default because it might interfere with custom
;; hs-set-up-overlay functions
;;
;;; Changelog
;;
;; v0.5, 2012-09-11
;; - Made ELPA compliant and added function `hideshowvis-symbols'
;;
;; v0.4, 2012-03-13
;; - fixed bug causing transpose-words to be broken as well as causing problems
;; when auto-fill-mode was enabled
;;
;; v0.3, 2010-08-26
;; - added autoload cookies
;; - fixed bug causing major mode menu to disappear, among other things
;;
;; v0.2, 2009-08-09
;; - '-' symbol in fringe is clickable
;; - don't show '-' in fringe if the foldable region ends on the same line
;;
(when (fboundp 'define-fringe-bitmap)
(define-fringe-bitmap 'hideshowvis-hideable-marker [0 0 0 126 126 0 0 0]))
(defconst hideshowvis-version "v0.5" "Version of hideshowvis minor mode")
(defface hideshowvis-hidable-face
'((t (:foreground "#ccc" :box t)))
"Face to highlight foldable regions"
:group 'hideshow)
(defcustom hideshowvis-ignore-same-line t
"Do not display foldable regions in the fringe if the matching
closing parenthesis is on the same line. Set this to nil if
enabling the minor mode is slow on your machine"
:group 'hideshow)
(defun hideshowvis-highlight-hs-regions-in-fringe (&optional start end old-text-length)
(when hs-minor-mode
(save-excursion
(save-restriction
(when (and start end)
(narrow-to-region start end))
(goto-char (point-min))
(remove-overlays (point-min) (point-max) 'hideshowvis-hs t)
(while (search-forward-regexp hs-block-start-regexp nil t)
(let* ((ovl (make-overlay (match-beginning 0) (match-end 0)))
(marker-string "*hideshowvis*")
(doit
(if hideshowvis-ignore-same-line
(let (begin-line)
(setq begin-line
(save-excursion
(goto-char (match-beginning 0))
(line-number-at-pos (point))))
(save-excursion
(goto-char (match-beginning 0))
(ignore-errors
(progn
(funcall hs-forward-sexp-func 1)
(> (line-number-at-pos (point)) begin-line)))))
t)))
(when doit
(put-text-property 0
(length marker-string)
'display
(list 'left-fringe
'hideshowvis-hideable-marker
'hideshowvis-hidable-face)
marker-string)
(overlay-put ovl 'before-string marker-string)
(overlay-put ovl 'hideshowvis-hs t))))))))
;;;###autoload
(defun hideshowvis-click-fringe (event)
(interactive "e")
(mouse-set-point event)
(end-of-line)
(if (save-excursion
(end-of-line 1)
(or (hs-already-hidden-p)
(progn
(forward-char 1)
(hs-already-hidden-p))))
(hs-show-block)
(hs-hide-block)
(beginning-of-line)))
(defvar hideshowvis-mode-map
(let ((hideshowvis-mode-map (make-sparse-keymap)))
(define-key hideshowvis-mode-map [left-fringe mouse-1]
'hideshowvis-click-fringe)
hideshowvis-mode-map)
"Keymap for hideshowvis mode")
;;;###autoload
(define-minor-mode hideshowvis-minor-mode ()
"Will indicate regions foldable with hideshow in the fringe."
:init-value nil
:require 'hideshow
:group 'hideshow
:keymap hideshowvis-mode-map
(condition-case nil
(if hideshowvis-minor-mode
(progn
(hs-minor-mode 1)
(hideshowvis-highlight-hs-regions-in-fringe (point-min) (point-max) 0)
(add-to-list 'after-change-functions
'hideshowvis-highlight-hs-regions-in-fringe))
(remove-overlays (point-min) (point-max) 'hideshowvis-hs t)
(setq after-change-functions
(remove 'hideshowvis-highlight-hs-regions-in-fringe
after-change-functions)))
(error
(message "Failed to toggle hideshowvis-minor-mode")
)))
;;;###autoload
(defun hideshowvis-enable ()
"Will enable hideshowvis minor mode"
(interactive)
(hideshowvis-minor-mode 1))
;;;###autoload
(defun hideshowvis-symbols ()
"Defines the things necessary to get a + symbol in the fringe
and a yellow marker indicating the number of hidden lines at
the end of the line for hidden regions."
(interactive)
(when (fboundp 'define-fringe-bitmap)
(define-fringe-bitmap 'hs-marker [0 24 24 126 126 24 24 0]))
(defcustom hs-fringe-face 'hs-fringe-face
"*Specify face used to highlight the fringe on hidden regions."
:type 'face
:group 'hideshow)
(defface hs-fringe-face
'((t (:foreground "#888" :box (:line-width 2 :color "grey75" :style released-button))))
"Face used to highlight the fringe on folded regions"
:group 'hideshow)
(defcustom hs-face 'hs-face
"*Specify the face to to use for the hidden region indicator"
:type 'face
:group 'hideshow)
(defface hs-face
'((t (:background "#ff8" :box t)))
"Face to hightlight the ... area of hidden regions"
:group 'hideshow)
(defun display-code-line-counts (ov)
(when (eq 'code (overlay-get ov 'hs))
(let* ((marker-string "*fringe-dummy*")
(marker-length (length marker-string))
(display-string (format "(%d)..." (count-lines (overlay-start ov) (overlay-end ov))))
)
(overlay-put ov 'help-echo "Hiddent text. C-c,= to show")
(put-text-property 0 marker-length 'display (list 'left-fringe 'hs-marker 'hs-fringe-face) marker-string)
(overlay-put ov 'before-string marker-string)
(put-text-property 0 (length display-string) 'face 'hs-face display-string)
(overlay-put ov 'display display-string)
)))
(setq hs-set-up-overlay 'display-code-line-counts))
(provide 'hideshowvis)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; hideshowvis.el ends here

82
vendor/ruby-guard.el vendored
View File

@@ -1,82 +0,0 @@
;;; ruby-guard.el --- Launching guard directly inside emacs.
;; Copyright (C) 2014 Zhang Kai Yu
;; Author: Zhang Kai Yu <yeannylam@gmail.com>
;; Version: 0.1.0
;; Keywords: ruby, guard, rails
;; URL: https://github.com/cheunghy/ruby-guard
;;; Commentary:
;; M-x ruby-guard to launch.
;;; Code:
(defvar ruby-guard-buffer-name "*guard*")
(defun ruby-guard-root (&optional last-directory)
"Return the directory name where guard file is located."
(locate-dominating-file (or last-directory
(file-truename default-directory))
"Guardfile"))
(defun ruby-guard-spring-p ()
"Return non-nil if spring tmpdir found for `ruby-guard-root'."
(file-exists-p (file-truename
(concat temporary-file-directory
"spring/"
(md5 (ruby-guard-root) 0 -1)
".pid"))))
(defun ruby-guard-zeus-p ()
"Return non-nil if `.zeus.sock' found in `ruby-guard-root'."
(file-exists-p (expand-file-name ".zeus.sock" (ruby-guard-root))))
(defun ruby-guard-chef-cookbook-p ()
"Return non-nil if `ruby-guard-root' is in Chef cookbook."
(file-exists-p (expand-file-name "recipes" (ruby-guard-root))))
(defun ruby-guard-chefdk-installed-p ()
"Return non-nil if Chef development kit directory is present."
(file-exists-p "/opt/chefdk"))
(defun ruby-guard-bundle-p ()
"Return non-nil if `Gemfile' found in `ruby-guard-root'."
(file-exists-p (expand-file-name "Gemfile" (ruby-guard-root))))
(defun ruby-guard-command-name ()
"Return ruby-guard-command."
(cond ((ruby-guard-spring-p)
"spring guard")
((ruby-guard-bundle-p)
"bundle exec guard")
((and (ruby-guard-chef-cookbook-p)
(ruby-guard-chefdk-installed-p))
"chef exec guard")
(t "guard")))
(defmacro ruby-guard-with-root (body-form)
"Run (BODY-FORM) with `ruby-guard-root' as `default-directory'."
`(let ((default-directory (ruby-guard-root)))
,body-form))
;;;###autoload
(defun ruby-guard ()
"Run Guard in separate buffer."
(interactive)
(let ((default-directory (ruby-guard-root)))
(if default-directory
(progn
(if (member ruby-guard-buffer-name
(mapcar 'buffer-name (buffer-list)))
(switch-to-buffer ruby-guard-buffer-name)
(ruby-guard-with-root
(async-shell-command
(ruby-guard-command-name)
(get-buffer-create ruby-guard-buffer-name)))))
(error "Cannot find Guardfile."))))
(provide 'ruby-guard)
;;; ruby-guard.el ends here

View File

@@ -1,129 +0,0 @@
;;; tomorrow-night-paradise-theme.el --- custom theme for faces
;;; Commentary:
;;
;;; Tomorrow Night Paradise Theme
;;
;; My customized version of Chris Kempson's Tomorrow Night Bright theme:
;; https://github.com/ChrisKempson/Tomorrow-Theme
;;
;; Particularly colors have been adjusted to look right in a xterm-256color
;; terminal. Additionally window borders have been given a more minimal look
;; and face definitions have been added for various packages I use on a daily
;; basis.
;;
;; --Jim Myhrberg (@jimeh)
;;; Code:
(deftheme tomorrow-night-paradise
"A Pastel Coloured Theme")
(let ((background "#000000")
(selection "#3a3a3a")
(foreground "#dadada")
(comment "#585858")
(cursor "#949494")
(gray "#303030") (gray-2 "#1c1c1c") (gray-3 "#121212")
(gray-4 "#080808")
(red "#d54e53") (red-2 "#cd0000") (red-3 "#5f0000")
(yellow "#e7c547") (yellow-2 "#cdcd00")
(orange "#e78700")
(green "#afd75f")
(aqua "#00cdcd")
(blue "#5f87d7")
(purple "#af87d7"))
(custom-theme-set-faces
'tomorrow-night-paradise
;; Basics
`(default ((t (:background ,background :foreground ,foreground))))
`(region ((t (:background ,selection))))
`(fringe ((t (:background ,gray-2))))
`(minibuffer-prompt ((t (:foreground ,blue))))
`(hl-line ((t (:background ,gray-3))))
;; Font-lock stuff
`(font-lock-builtin-face ((t (:foreground ,blue))))
`(font-lock-comment-face ((t (:foreground ,comment))))
`(font-lock-constant-face ((t (:foreground ,green))))
`(font-lock-doc-face ((t (:foreground ,comment))))
`(font-lock-doc-string-face ((t (:foreground ,comment))))
`(font-lock-function-name-face ((t (:foreground ,blue))))
`(font-lock-keyword-face ((t (:foreground ,purple))))
`(font-lock-negation-char-face ((t (:foreground ,aqua))))
`(font-lock-preprocessor-face ((t (:foreground ,red))))
`(font-lock-string-face ((t (:foreground ,green))))
`(font-lock-type-face ((t (:foreground ,yellow))))
`(font-lock-variable-name-face ((t (:foreground ,aqua))))
`(font-lock-warning-face ((t (:foreground ,red))))
;; UI related
`(mode-line ((t (:background ,selection :foreground ,foreground))))
`(mode-line-inactive ((t (:background ,gray-3))))
`(vertical-border ((t (:background ,background :foreground ,selection))))
;; Linum
`(linum ((t (:background ,background :foreground ,gray))))
;; show-paren-mode
`(show-paren-match ((t (:background ,purple :foreground ,gray-2))))
`(show-paren-mismatch ((t (:background ,orange :foreground ,gray-2))))
;; ido
`(ido-only-match ((t (:foreground ,orange))))
`(ido-subdir ((t (:foreground ,purple))))
;; whitespace-mode
`(whitespace-empty ((t (:background ,yellow-2 :foreground ,red))))
`(whitespace-hspace ((t (:foreground ,gray-2))))
`(whitespace-indentation ((t (:foreground ,gray-2))))
`(whitespace-line ((t (:background ,gray-2))))
`(whitespace-newline ((t (:foreground ,gray-2))))
`(whitespace-space ((t (:foreground ,gray-2))))
`(whitespace-space-after-tab ((t (:foreground ,gray-2))))
`(whitespace-tab ((t (:foreground ,gray-2))))
`(whitespace-trailing ((t (:background ,red-3 :foreground ,yellow))))
;; flyspell-mode
`(flyspell-incorrect ((t (:foreground ,orange :underline ,orange))))
`(flyspell-duplicate ((t (:foreground ,orange :underline ,orange))))
;; magit
`(magit-diff-add ((t (:foreground ,green))))
`(magit-diff-del ((t (:foreground ,red))))
`(magit-item-highlight ((t (:background ,gray-2))))
;; highlight-indentation-mode
`(highlight-indentation-face ((t (:background ,gray-4))))
`(highlight-indentation-current-column-face ((t (:background ,gray-3))))
;; ECB
`(ecb-default-highlight-face ((t (:background ,background :foreground ,red-2))))
;; org-mode
`(org-date ((t (:foreground ,purple))))
`(org-done ((t (:foreground ,green))))
`(org-hide ((t (:foreground ,gray-2))))
`(org-link ((t (:foreground ,blue))))
`(org-todo ((t (:foreground ,red))))
)
(custom-theme-set-variables
'tomorrow-night-paradise
;; Fill Column Indicator mode
`(fci-rule-color ,gray-2)
`(fci-rule-character-color ,gray-2)
`(ansi-color-names-vector
;; black, red, green, yellow, blue, magenta, cyan, white
[,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])
`(ansi-term-color-vector
;; black, red, green, yellow, blue, magenta, cyan, white
[unspecified ,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])))
(provide-theme 'tomorrow-night-paradise)
;;; tomorrow-night-paradise-theme.el ends here