emacs: Modularize

1 files changed, 145 insertions, 0 deletions

diff --git a/.emacs.d/modules/thanos-aesthetics.el b/.emacs.d/modules/thanos-aesthetics.el
new file mode 100644
index 0000000..c3c31f4
--- /dev/null
+++ b/.emacs.d/modules/thanos-aesthetics.el
@@ -0,0 +1,145 @@
+;;; thanos-aesthetics.el ---                         -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  Thanos Apollo
+
+;; Author: Thanos Apollo <[email protected]>
+;; Keywords: 
+
+;; This program 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 3 of the License, or
+;; (at your option) any later version.
+
+;; This program 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 this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; 
+
+;;; Code:
+
+(setf inhibit-startup-message t)
+(setf initial-scratch-message nil)
+
+;; Transparency
+(add-to-list 'default-frame-alist '(alpha-background . 90))
+(add-to-list 'default-frame-alist '(alpha 90 90))
+
+
+(add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
+
+(when (equal is-phone nil)
+  (scroll-bar-mode -1)
+  (set-fringe-mode 10))
+
+(beacon-mode 1)
+(tool-bar-mode -1)
+(tooltip-mode -1)
+(menu-bar-mode -1)
+(which-key-mode 1)
+(blink-cursor-mode -1)
+(menu-bar--visual-line-mode-enable)
+(global-visual-line-mode 1)
+
+;; Set emojis for emacs 29
+(require 'emojify)
+(setf global-emojify-mode 1)
+
+(setf visible-bell t)
+
+(column-number-mode)
+(global-display-line-numbers-mode 1)
+(menu-bar--display-line-numbers-mode-relative)
+;;Disable line numbers for some modes
+(dolist (mode '(pdf-view-mode-hook
+		org-mode-hook
+		term-mode-hook
+		shell-mode-hook
+		eshell-mode-hook
+		vterm-mode-hook
+		elfeed
+		vterm-mode
+		telega-chat-mode-hook
+		telega-root-mode-hook
+		nov-mode-hook
+		transmission-mode-hook))
+  (add-hook mode (lambda ()
+		   (display-line-numbers-mode 0))))
+
+;; Set font-size for each device
+(custom-set-faces
+ (if is-hermes '(default ((t (:inherit nil :height 120 :family "Jetbrains Mono"))))
+   '(default ((t (:inherit nil :height 135 :family "Jetbrains Mono"))))))
+
+(load-theme 'doom-monokai-classic)
+
+(doom-modeline-mode 1)
+
+(setf doom-modeline-height 35)
+
+;; Don't display battery-mode on desktop
+(if is-zeus
+    (display-battery-mode 0)
+  (display-battery-mode 1))
+
+(require 'ivy)
+
+(ivy-mode 1)
+(setf ivy-use-virtual-buffers t)
+(setf enable-recursive-minibuffers t)
+(global-set-key (kbd "C-s") 'swiper)
+(define-key ivy-minibuffer-map (kbd "TAB") 'ivy-alt-done)
+(global-set-key "\C-s" 'swiper)
+(global-set-key (kbd "C-c C-r") 'ivy-resume)
+(global-set-key (kbd "<f6>") 'ivy-resume)
+(global-set-key (kbd "M-x") 'counsel-M-x)
+(global-set-key (kbd "C-x C-f") 'counsel-find-file)
+(global-set-key (kbd "<f1> f") 'counsel-describe-function)
+(global-set-key (kbd "<f1> v") 'counsel-describe-variable)
+(global-set-key (kbd "<f1> o") 'counsel-describe-symbol)
+(global-set-key (kbd "<f1> l") 'counsel-find-library)
+(global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
+(global-set-key (kbd "<f2> u") 'counsel-unicode-char)
+(global-set-key (kbd "C-c g") 'counsel-git)
+(global-set-key (kbd "C-c j") 'counsel-git-grep)
+(global-set-key (kbd "C-c k") 'counsel-ag)
+(global-set-key (kbd "C-x l") 'counsel-locate)
+(global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
+(define-key minibuffer-local-map (kbd "C-r") 'counsel-minibuffer-history)
+
+(ivy-rich-mode 1)
+(all-the-icons-ivy-rich-mode 1)
+
+(setf ivy-use-selectable-prompt t)
+
+(global-set-key (kbd "C-c m") 'consult-imenu)
+(define-key thanos/applications-map (kbd "t") 'counsel-load-theme)
+
+(require 'helpful)
+(global-set-key (kbd "C-h f") #'helpful-callable)
+(global-set-key (kbd "C-h v") #'helpful-variable)
+(global-set-key (kbd "C-h k") #'helpful-key)
+(global-set-key (kbd "C-h x") #'helpful-command)
+
+(global-set-key (kbd "C-c C-d") #'helpful-at-point)
+(global-set-key (kbd "C-h F") #'helpful-function)
+
+(setf counsel-describe-function-function #'helpful-callable)
+(setf counsel-describe-variable-function #'helpful-variable)
+
+(global-set-key (kbd "C-x r d") 'bookmark-delete)
+(global-set-key (kbd "C-x r C-r") 'bookmark-rename)
+
+;; ibuffer
+(global-set-key (kbd "C-x C-b") 'ibuffer)
+
+
+
+(provide 'thanos-aesthetics)
+;;; thanos-aesthetics.el ends here