kj/confi-emacs-actual
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add comments to base-functions.el.

Browse Source
This commit is contained in:
kj 2022-05-05 02:08:01 -04:00
parent aced36ad35
commit 38b36468f8
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
configs/base-functions.el
View File

@ -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 ;; Buscar el texto actualmente seleccionado
(defun kj-isearch-with-region () (defun kj-isearch-with-region ()
@ -17,7 +24,7 @@
;; Generar archivo TAGS ;; Generar archivo TAGS
(defun create-tags (dir-name) (defun create-tags (dir-name)
"Create tags file." "Create tags file in DIR-NAME."
(interactive "DDirectory: ") (interactive "DDirectory: ")
(shell-command (shell-command
(format "cd '%s' && ctags -f TAGS -e -R --exclude=*.min.js" (format "cd '%s' && ctags -f TAGS -e -R --exclude=*.min.js"
@ -29,6 +36,7 @@
;; Hacer emacs transparente (no funciona perfecto, pero sirve) ;; Hacer emacs transparente (no funciona perfecto, pero sirve)
(defun toggle-transparency () (defun toggle-transparency ()
"Cambia la transparencia de Emacs (es un poco useless)."
(interactive) (interactive)
(let ((alpha (frame-parameter nil 'alpha))) (let ((alpha (frame-parameter nil 'alpha)))
(set-frame-parameter (set-frame-parameter
@ -41,6 +49,9 @@
'(60 . 60) '(100 . 100))))) '(60 . 60) '(100 . 100)))))
(defun transparency (value) (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:") (interactive "nTransparency Value 0 - 100 opaque:")
(set-frame-parameter (selected-frame) 'alpha value)) (set-frame-parameter (selected-frame) 'alpha value))
(provide 'base-functions)
;;; base-functions.el ends here.