From db559dfbfc9decfb3e50cea7744703e7f9c261b2 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Tue, 13 Jun 2023 21:42:19 +0300
Subject: emacs: Change default browser,font config,keybindings,circe,env

Change default browser to firefox, set environment variables for
eshell, add #debain to :channels
---
 emacs.org | 55 ++++++++++++++++++++++++++++---------------------------
 1 file changed, 28 insertions(+), 27 deletions(-)

diff --git a/emacs.org b/emacs.org
index a16f821..b80869e 100755
--- a/emacs.org
+++ b/emacs.org
@@ -11,10 +11,10 @@ Check the ~$HOSTNAME~ to set a variable for different devices
   (defvar is-hermes (equal (system-name) "hermes"))
   (defvar is-phone (equal (system-name) "localhost"))
 #+end_src
-Setup default browser as ~mullvad-browser~
+Setup default browser as ~firefox~
 #+begin_src emacs-lisp
   (setq browse-url-browser-function 'browse-url-generic
-	browse-url-generic-program "mullvad-browser")
+	browse-url-generic-program "firefox")
 #+end_src
 Set backup fails at ~~/Trash~
 #+begin_src emacs-lisp
@@ -128,11 +128,6 @@ Fonts and basic appearance settings for each device
 
   (add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
 
-
-  (if is-zeus
-      (display-battery-mode 0)
-    (display-battery-mode 1))
-
   (when (equal is-phone nil)
       (scroll-bar-mode -1)
       (set-fringe-mode 10))
@@ -145,6 +140,7 @@ Fonts and basic appearance settings for each device
   (menu-bar--visual-line-mode-enable)
   (global-visual-line-mode 1)
 
+  ;; Set emojis for emacs 29
   (require 'emojify)
   (if (version< emacs-version "29")
       (setq global-emojify-mode 1)
@@ -152,7 +148,6 @@ Fonts and basic appearance settings for each device
 
   (setq visible-bell t)
 
-
   (column-number-mode)
   (global-display-line-numbers-mode 1)
   (menu-bar--display-line-numbers-mode-relative)
@@ -166,23 +161,15 @@ Fonts and basic appearance settings for each device
 		  elfeed))
     (add-hook mode (lambda () (display-line-numbers-mode 0))))
 
-  (defvar thanos/default-font-size 140)
-  (when is-hermes 
-    (setq thanos/default-font-size 120))
-
-  (set-face-attribute 'default nil
-		      :font "JetBrains Mono"
-		      :height thanos/default-font-size)
-
-  (set-face-attribute 'fixed-pitch nil
-		      :font "JetBrains Mono"
-		      :height thanos/default-font-size)
-
-  (set-face-attribute 'variable-pitch nil
-		      :font "JetBrains Mono"
-		      :height thanos/default-font-size
-		      :weight 'regular)
+  ;; Set font-size for each device
+  (if is-hermes
+      (set-frame-font "JetBrains Mono 12" nil t)
+    (set-frame-font "JetBrains Mono 14" nil t))
 
+  ;; Don't display battery-mode on desktop
+  (if is-zeus
+      (display-battery-mode 0)
+    (display-battery-mode 1))
 #+end_src
 ** Theme & modeline
 #+begin_src emacs-lisp
@@ -252,12 +239,15 @@ Fonts and basic appearance settings for each device
 #+begin_src emacs-lisp
   (defun dired-watch-video ()
     (interactive)
-    (async-shell-command (format "mpv \"%s\"" (dired-get-filename))))
+    (async-shell-command
+     (format "mpv \"%s\"" (dired-get-filename))))
 #+end_src
 ** Keybindings
 #+begin_src emacs-lisp
   (require 'dired)
   (define-key dired-mode-map "b" 'dired-up-directory)
+  (define-key dired-mode-map "v" 'dired-watch-video)
+  (define-key dired-mode-map "z" 'wdired-change-to-wdired-mode)
 #+end_src
 ** All-the-icons
 #+begin_src emacs-lisp
@@ -661,7 +651,11 @@ Fonts and basic appearance settings for each device
 	  ("https://www.youtube.com/feeds/videos.xml?channel_id=UCl2mFZoRqjw_ELax4Yisf6w"
 	   video Louis)
 	  ("https://www.youtube.com/feeds/videos.xml?channel_id=UC1yNl2E66ZzKApQdRuTQ4tw "
-	   video sabine)))
+	   video sabine)
+	  ("https://bits.debian.org/feeds/feed.rss"
+	   debian linux)
+	  ("https://torrentfreak.com/feed"
+	   torrentfreak)))
 #+end_src
 ** Watch Videos
 Create function to watch videos using ~mpv~
@@ -788,6 +782,12 @@ First let's set ~eshell-visual-commands~
 #+begin_src emacs-lisp
   (setq eshell-visual-commands '("mocp" "htop" "nvim"))
 #+end_src
+** Environment
+#+begin_src emacs-lisp
+  (setenv "EDITOR" "emacsclient -c")
+  (setenv "DEBEMAIL" "public@thanosapollo.com")
+  (setenv "DEBNAME" "Thanos Apollo")
+#+end_src
 ** Completions
 #+begin_src emacs-lisp
   ;;;; sudo completion
@@ -1079,7 +1079,8 @@ Set aliases for emacs functions and ~PATH~
 	   :sasl-username "thanosapollo"
 	   :sasl-password ,(password-store-get "liberachat/thanos_apollo")
 	   :channels ("#emacs-circe"
-		      "#emacs"))))
+		      "#emacs"
+		      "#debian"))))
 #+end_src
 ** Keybindings
 #+begin_src emacs-lisp
-- 
cgit v1.2.3