From 38b36468f8a739d125680706a901d411fde83a8d Mon Sep 17 00:00:00 2001
From: kj <webmaster@outcontrol.net>
Date: Thu, 5 May 2022 02:08:01 -0400
Subject: [PATCH] Add comments to base-functions.el.

---
 configs/base-functions.el | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/configs/base-functions.el b/configs/base-functions.el
index 064b6e8..b8cf075 100644
--- a/configs/base-functions.el
+++ b/configs/base-functions.el
@@ -1,4 +1,11 @@
-(provide 'base-functions)
+;;; base-functions.el --- Configuración de org-mode
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+
+;;; Code:
 
 ;; Buscar el texto actualmente seleccionado
 (defun kj-isearch-with-region ()
@@ -17,7 +24,7 @@
 
 ;; Generar archivo TAGS
 (defun create-tags (dir-name)
-  "Create tags file."
+  "Create tags file in DIR-NAME."
   (interactive "DDirectory: ")
   (shell-command
    (format "cd '%s' && ctags -f TAGS -e -R --exclude=*.min.js"
@@ -29,6 +36,7 @@
 
 ;; Hacer emacs transparente (no funciona perfecto, pero sirve)
 (defun toggle-transparency ()
+  "Cambia la  transparencia de Emacs (es un poco useless)."
   (interactive)
   (let ((alpha (frame-parameter nil 'alpha)))
     (set-frame-parameter
@@ -41,6 +49,9 @@
          '(60 . 60) '(100 . 100)))))
 
 (defun transparency (value)
-  "Sets the transparency of the frame window. 0=transparent/100=opaque"
+  "Set the transparency VALUE of the frame window.  0=transparent/100=opaque."
   (interactive "nTransparency Value 0 - 100 opaque:")
   (set-frame-parameter (selected-frame) 'alpha value))
+
+(provide 'base-functions)
+;;; base-functions.el ends here.