emacs: Fix typos and docstrings

6 files changed, 11 insertions, 8 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index fceabe0..5935ab4 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1,4 +1,4 @@
-;;; thanos-dev.el --- Developer Tools Configuration   -*- lexical-binding: t; -*-
+;;; init.el --- Welcome to my Emacs configuration!   -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2023  Thanos Apollo
 
diff --git a/.emacs.d/modules/thanos-aesthetics.el b/.emacs.d/modules/thanos-aesthetics.el
index 195f9a9..99def17 100644
--- a/.emacs.d/modules/thanos-aesthetics.el
+++ b/.emacs.d/modules/thanos-aesthetics.el
@@ -254,7 +254,7 @@
 (defun thanos/set-wallpaper ()
   "Set wallpaper."
   (interactive)
-  (let ((wallpaper (completing-read "Choose wallpaper" (directory-files wallpapers-dir nil "^[^.].*"))))
+  (let ((wallpaper (completing-read "Choose wallpaper: " (directory-files wallpapers-dir nil "^[^.].*"))))
     (call-process-shell-command
      (concat "feh --bg-scale " wallpapers-dir wallpaper) nil 0)))
 
diff --git a/.emacs.d/modules/thanos-chat.el b/.emacs.d/modules/thanos-chat.el
index ed22e64..e880ee4 100644
--- a/.emacs.d/modules/thanos-chat.el
+++ b/.emacs.d/modules/thanos-chat.el
@@ -45,8 +45,8 @@
 
 (setf erc-modules
       '(sasl netsplit fill button match track completion readonly
-networks ring autojoin noncommands irccontrols move-to-prompt stamp
-menu list))
+	     networks ring autojoin noncommands irccontrols move-to-prompt stamp
+	     menu list))
 
 (defun erc-libera ()
   "Login to liberachat with erc."
diff --git a/.emacs.d/modules/thanos-multimedia.el b/.emacs.d/modules/thanos-multimedia.el
index 2e8b833..1f1e961 100644
--- a/.emacs.d/modules/thanos-multimedia.el
+++ b/.emacs.d/modules/thanos-multimedia.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2023  Thanos Apollo
 
 ;; Author: Thanos Apollo <[email protected]>
-;; Keywords: 
+;; 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
@@ -33,6 +33,7 @@
 (require 'emms)
 (autoload 'emms-smart-browse "emms-browser.el" "Browse with EMMS" t)
 (define-key thanos/applications-map (kbd "e") 'emms-smart-browse)
+(define-key thanos/applications-map (kbd "C-e") 'emms-pause)
 
 (with-eval-after-load 'emms
   (emms-all)
@@ -46,7 +47,7 @@
 
 
 (defun yeetube-download-vimeo-videos ()
-  "."
+  "Download videos from vimeo services."
   (interactive)
   (let ((url "")
 	(name "")
@@ -63,7 +64,7 @@
 	 nil 0)))))
 
 (defun yeetube-download-videos-ffmpeg ()
-  "."
+  "Download videos using ffmpeg."
   (interactive)
   (let ((url "")
 	(name "")
diff --git a/.emacs.d/modules/thanos-org.el b/.emacs.d/modules/thanos-org.el
index 95e8911..3a3d819 100644
--- a/.emacs.d/modules/thanos-org.el
+++ b/.emacs.d/modules/thanos-org.el
@@ -43,7 +43,6 @@
       org-log-into-drawer t)
 
 (define-key org-mode-map (kbd "C-c t") 'org-time-stamp-inactive)
-(define-key org-mode-map (kbd "C-c s") 'org-download-screenshot)
 
 (defadvice org-edit-src-code (around set-buffer-file-name activate compile)
   (let ((file-name (buffer-file-name))) ;; (1)
diff --git a/.emacs.d/modules/thanos-tools.el b/.emacs.d/modules/thanos-tools.el
index 9e444c3..9d58d75 100644
--- a/.emacs.d/modules/thanos-tools.el
+++ b/.emacs.d/modules/thanos-tools.el
@@ -60,15 +60,18 @@
 (setf indent-tabs-mode nil)
 
 ;; Register & Consult
+(define-key Info-mode-map (kbd "F") 'consult-info)
 (define-key global-map (kbd "C-x r d") 'bookmark-delete)
 (define-key global-map (kbd "C-x r C-r") 'bookmark-rename)
 (define-key global-map (kbd "C-x r .") 'consult-register)
 (define-key global-map (kbd "C-x r s") 'consult-register-store)
+(define-key global-map (kbd "C-x r b") 'consult-bookmark)
 (define-key global-map (kbd "C-c g") 'consult-grep)
 (define-key global-map (kbd "C-c f") 'consult-find)
 (define-key project-prefix-map (kbd "b") 'consult-project-buffer)
 (define-key global-map (kbd "M-y") 'consult-yank-from-kill-ring)
 
+
 (setf xref-show-xrefs-function #'consult-xref
       xref-show-definitions-function #'consult-xref)