summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.emacs.d/init.el9
-rw-r--r--.emacs.d/modules/thanos-aesthetics.el33
-rw-r--r--.emacs.d/modules/thanos-chat.el12
3 files changed, 2 insertions, 52 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 167b01a..5d826cf 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -39,19 +39,14 @@
(setf browse-url-browser-function 'browse-url-generic
browse-url-generic-program "firefox"
backup-directory-alist '((".*" . "~/.Trash"))
- sentence-end-double-space nil)
-
-
-(define-prefix-command 'Create)
-(define-key 'thanos/applications-map (kbd "C-c") 'Create)
+ sentence-end-double-space nil
+ default-input-method "greek")
(define-key global-map (kbd "<escape>") 'keyboard-escape-quit)
(define-key global-map (kbd "M-<backspace>") 'backward-kill-sexp)
(add-to-list 'load-path "~/.emacs.d/modules")
-(setf default-input-method "greek") ;; switch between greek and latin with C-\
-
(setq disabled-command-function nil) ;; enable all commands
(require 'thanos-packages) ;; List packages and install them
diff --git a/.emacs.d/modules/thanos-aesthetics.el b/.emacs.d/modules/thanos-aesthetics.el
index 3ba8956..5117868 100644
--- a/.emacs.d/modules/thanos-aesthetics.el
+++ b/.emacs.d/modules/thanos-aesthetics.el
@@ -192,17 +192,6 @@
(doom-modeline-mode 1)
(setf doom-modeline-height 35)
-
-;; Custom function to load theme
-(defun thanos/load-theme ()
- "Disable current theme and load a new one."
- (interactive)
- (let ((theme (intern (completing-read "Theme: " (custom-available-themes)))))
- (disable-theme (car custom-enabled-themes))
- (load-theme theme t)))
-
-(define-key thanos/applications-map (kbd "t") 'thanos/load-theme)
-
;; Don't display battery-mode on desktop
(if is-zeus
(display-battery-mode 0)
@@ -242,28 +231,6 @@
(global-set-key (kbd "M-.") 'xref-find-definitions)
(global-set-key (kbd "C-c L") 'display-line-numbers-mode)
-;; wallpapers
-(defvar wallpapers-dir "~/wallpapers/")
-
-(defun thanos/wallpaper-set (image)
- "Set IMAGE as wallpaper, using feh."
- (call-process-shell-command
- (concat "xwallpaper --focus " wallpapers-dir image) nil 0))
-
-(defun thanos/wallpaper-random ()
- "Set random wallpaper."
- (interactive)
- (let ((wallpapers (directory-files "~/wallpapers" nil "^[^.].*")))
- (thanos/wallpaper-set (nth (random (length wallpapers)) wallpapers))))
-
-(defun thanos/wallpaper-select ()
- "Set wallpaper."
- (interactive)
- (let ((wallpaper (completing-read "Choose wallpaper: " (directory-files wallpapers-dir nil "^[^.].*"))))
- (thanos/wallpaper-set wallpaper)))
-
-(define-key thanos/applications-map (kbd "w") 'thanos/wallpaper-select)
-
;; Symbols
(add-hook 'emacs-lisp-mode-hook 'prettify-symbols-mode)
diff --git a/.emacs.d/modules/thanos-chat.el b/.emacs.d/modules/thanos-chat.el
index b4b6512..1e7d14d 100644
--- a/.emacs.d/modules/thanos-chat.el
+++ b/.emacs.d/modules/thanos-chat.el
@@ -29,18 +29,6 @@
;; ╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╰╯
;;; Code:
-
-(defun ement-login ()
- "Login to matrix."
- (interactive)
- (ement-connect
- :user-id "@thanos_apollon:matrix.org"
- :password (password-store-get "matrix/thanos_apollon")
- :uri-prefix "https://matrix-client.matrix.org"))
-
-(define-key thanos/applications-map (kbd "M-e") 'ement-login)
-
-;;; Code:
;; ERC
(require 'erc)