Compare commits

..

No commits in common. "87c4b759c835791fd9c53f6588e526e77edfe396" and "da8320681f5461f1e9fa543e71e07426471682cb" have entirely different histories.

3 changed files with 1 additions and 76 deletions

View File

@ -17,14 +17,3 @@
("q" nil "quit") ("q" nil "quit")
) )
(define-key org-mode-map (kbd "C-c m") 'hydra-org-navegacion/body) (define-key org-mode-map (kbd "C-c m") 'hydra-org-navegacion/body)
(defhydra hydra-resize-window (global-map "C-M-m")
"Cambia el tamaño de las ventanas"
("<down>" move-border-down "Baja borde")
("<up>" move-border-up "Sube borde")
("<left>" move-border-left "Mueve izda.")
("<right>" move-border-right "Mueve dcha.")
("q" nil "Salir")
)

View File

@ -1,63 +0,0 @@
;;; move-border.el --- Move border to resize windows
;; Copyright (C) Unknown
;; Author: Unknown
;; Maintainer: Guillaume Gelin <contact@ramnes.eu>
;; Created 5 sep 2008
;; Keywords: window border
;; Homepage: https://github.com/ramnes/move-border
;; This file is not part of GNU Emacs.
;;; Commentary:
;; Add commands to move border
;; instead of using the built-in
;; window resizing functions
;;; Code:
(defun xor (b1 b2)
(or (and b1 b2)
(and (not b1) (not b2))))
(defun move-border-left-or-right (arg dir)
"General function covering move-border-left and move-border-right. If DIR is
t, then move left, otherwise move right."
(interactive)
(if (null arg) (setq arg 3))
(let ((left-edge (nth 0 (window-edges))))
(if (xor (= left-edge 0) dir)
(shrink-window arg t)
(enlarge-window arg t))))
(defun move-border-up-or-down (arg dir)
"General function covering move-border-up and move-border-down. If DIR is
t, then move up, otherwise move down."
(interactive)
(if (null arg) (setq arg 3))
(let ((top-edge (nth 1 (window-edges))))
(if (xor (= top-edge 0) dir)
(shrink-window arg nil)
(enlarge-window arg nil))))
(defun move-border-left (arg)
(interactive "P")
(move-border-left-or-right arg t))
(defun move-border-right (arg)
(interactive "P")
(move-border-left-or-right arg nil))
(defun move-border-up (arg)
(interactive "P")
(move-border-up-or-down arg t))
(defun move-border-down (arg)
(interactive "P")
(move-border-up-or-down arg nil))
(provide 'move-border)
;;; move-border.el ends here

View File

@ -38,8 +38,7 @@
(add-hook 'org-mode-hook 'org-display-inline-images) (add-hook 'org-mode-hook 'org-display-inline-images)
;; establece latexmk para la compilación ;; establece latexmk para la compilación
;;(setq org-latex-pdf-process (list "latexmk -f -pdf %f")) ;; pdflatex (setq org-latex-pdf-process (list "latexmk -f -pdf %f"))
(setq org-latex-pdf-process '("latexmk %f -output-directory=%o -%latex")) ;; xelatex/lualatex
;; Carga lo necesario para exportar a beamer ;; Carga lo necesario para exportar a beamer
(require 'ox-beamer) (require 'ox-beamer)