From b5de8f34b3e021e08524384d34e494a46a89f890 Mon Sep 17 00:00:00 2001
From: kj <webmaster@outcontrol.net>
Date: Mon, 1 Aug 2022 08:45:56 -0400
Subject: [PATCH] Add trasaparency to emacs by default :).

---
 configs/base-functions.el | 6 ++++++
 configs/base.el           | 3 +++
 2 files changed, 9 insertions(+)

diff --git a/configs/base-functions.el b/configs/base-functions.el
index c71bcf7..4b88541 100644
--- a/configs/base-functions.el
+++ b/configs/base-functions.el
@@ -7,6 +7,12 @@
 
 ;;; Code:
 
+;; Permite cambiar la transparencia de emacs.
+(defun transparency (value)
+  "Change the transparency of the frame window, setting VALUE from 0 to 100."
+  (interactive "nTransparency Value 0 - 100 opaque:")
+  (set-frame-parameter (selected-frame) 'alpha value))
+
 ;; Crear captura SVG del frame atual. Fuente: https://www.reddit.com/r/emacs/comments/idz35e/emacs_27_can_take_svg_screenshots_of_itself/
 (defun screenshot-svg ()
   "Save a screenshot of the current frame as an SVG image.
diff --git a/configs/base.el b/configs/base.el
index 8d93ea2..2a3235c 100644
--- a/configs/base.el
+++ b/configs/base.el
@@ -97,6 +97,9 @@
  global-hl-line-mode 1                          ; Resaltar línea actual por defecto.
  tags-revert-without-query 1                    ; Recargar tags (ctags) sin pedir confirmación.
  )
+;; Leve transparencia en emacs por defecto.
+(set-frame-parameter (selected-frame) 'alpha '(98 . 98))
+(add-to-list 'default-frame-alist '(alpha . (98 . 98)))
 
 ;; Backups enabled, use nil to disable
 (setq