emacs: Remove duplicate functions

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)