@ -908,6 +908,150 @@ Configuring:
)
#+end_src
** org-wild-notifier
Notifications
#+begin_src emacs-lisp
(use-package org-wild-notifier
:ensure t
:after org
:custom
(org-wild-notifier-notification-title "Org Wild Reminder")
(org-wild-notifier-alert-time (quote(1 10 30)))
(alert-default-style 'libnotify)
:config
(org-wild-notifier-mode 1)
)
#+end_src
** Hydra for some org-mode stuff
#+begin_src emacs-lisp
(global-set-key
(kbd "<f6 > o")
(defhydra hydra-global-org (:color blue
:hint nil)
"
^Timer^ ^Tasks Time^ ^Capture^
------------------ ---------------- ------------------
_t_ : Start _w_ : Clock-In _c_ : Capture
_s_ : Stop _o_ : Clock-Out _l_ : Last Capture
_r_ : Countdown _j_ : Clock-goto
_p_ : Insert Count
_q_ : quit
"
("t" org-timer-start)
("s" org-timer-stop)
("r" org-timer-set-timer) ; This one requires you be in an orgmode doc, as it sets the timer for the header
("p" org-timer) ; output timer value to buffer
("w" (org-clock-in)) ; used with (org-clock-persistence-insinuate) (setq org-clock-persist t)
("o" org-clock-out) ; you might also want (setq org-log-note-clock-out t)
("j" org-clock-goto) ; global visit the clocked task
("c" org-capture) ; Don't forget to define the captures you want http://orgmode.org/manual/Capture.html
("l" org-capture-goto-last-stored)
("q" nil))
)
#+end_src
** org-babel
#+begin_src emacs-lisp
(org-babel-do-load-languages
'org-babel-load-languages
'((python . t)
(emacs-lisp . t)
(shell . t)
(C . t)
(js . t)
(ditaa . t)
(dot . t)
(org . t)
(latex . t )
)
)
#+end_src
** ox-reveal (reveal.js)
See doc in [[https://github.com/yjwen/org-reveal/ ][org-reveal github ]]
Tenemos dos opciones para el =reveal.js= :
- Podemos descargarlo en nuestro sistema y acceder a la copia local
=git clone https://github.com/yjwen/org-reveal.git=
=(setq org-reveal-root "file:///d:/reveal.js")=
- Podemos hacer referencia a la versión online
=(setq org-reveal-root "https://cdn.jsdelivr.net/reveal.js/3.6.0/")=
#+begin_src emacs-lisp
(use-package ox-reveal
:ensure t)
;(setq org-reveal-root "https://cdn.jsdelivr.net/npm/reveal.js")
(setq org-reveal-root "https://cdn.jsdelivr.net/reveal.js/3.6.0/ ")
(setq org-reveal-mathjax t)
(use-package htmlize
:ensure t)
#+end_src
** ox-hugo
#+begin_src emacs-lisp
(use-package ox-hugo
:after ox)
#+end_src
** org-roam
Zettelkästen on emacs (It’
you must have graphviz and sqlite3 installed in your system, dot
command and sqlite3 must be available
- [[https://www.orgroam.com/manual.html#Top ][org-roam user manual ]]
- [[https://github.com/org-roam/org-roam/wiki/Hitchhiker's-Rough-Guide-to-Org-roam-V2 ][Hitchhiker's Rough Guide to Org roam V2 ]]
#+begin_src emacs-lisp
(use-package org-roam
:after org
:init
(setq org-roam-v2-ack t)
:custom
(org-roam-directory (concat org-directory "/roam"))
(org-roam-capture-templates
'(("m" "main" plain
"%?"
:if-new (file+head "main/${slug}.org"
"#+title: ${title}\n")
:immediate-finish t
:unnarrowed t)
("r" "reference" plain "%?"
:if-new
(file+head "reference/${title}.org" "#+title: ${title}\n")
:immediate-finish t
:unnarrowed t)
("a" "article" plain "%?"
:if-new
(file+head "articles/${title}.org" "#+title: ${title}\n#+filetags: :article:\n")
:immediate-finish t
:unnarrowed t)))
:config
(org-roam-setup)
(cl-defmethod org-roam-node-type ((node org-roam-node))
"Return the TYPE of NODE."
(condition-case nil
(file-name-nondirectory
(directory-file-name
(file-name-directory
(file-relative-name (org-roam-node-file node) org-roam-directory))))
(error "")))
(setq org-roam-node-display-template
(concat "${type:15} ${title:*}"
(propertize "${tags:10}" 'face 'org-tag)))
:bind (("C-c n f" . org-roam-node-find)
("C-c n g" . org-roam-graph)
("C-c n r" . org-roam-node-random)
(:map org-mode-map
(("C-c n i" . org-roam-node-insert)
("C-c n o" . org-id-get-create)
("C-c n t" . org-roam-tag-add)
("C-c n a" . org-roam-alias-add)
("C-c n l" . org-roam-buffer-toggle))))
)
#+end_src
* flycheck
Syntax checking for programming languages
@ -1272,6 +1416,207 @@ You *must* have R installed in your system, otherwise this package is useless.
:init (require 'ess-site))
#+end_src
* misc packages
** Expand region
#+begin_src emacs-lisp
(global-hl-line-mode t)
(use-package expand-region
:config
(global-set-key (kbd "C-=") 'er/expand-region)
)
#+end_src
** EasyPG and org-crypt
Ver [[https://orgmode.org/worg/org-tutorials/encrypting-files.html ][referencia en org-mode manual ]] y [[http://www.clintonboys.com/gpg/ ][notas de Clintonboys ]]
#+begin_src emacs-lisp
;; (use-package epa-file
;; :config
;; (setq epa-file-encrypt-to '("salvari@protonmail.com"))
;; :custom
;; (epa-file-select-keys 'silent))
;;
;; (use-package org-crypt
;; ;; :ensure nil ;; included with org-mode
;; :after org
;; :config
;; (org-crypt-use-before-save-magic)
;; (setq org-tags-exclude-from-inheritance (quote ("crypt")))
;; :custom
;; (org-crypt-key "salvari@protonmail.com"))
#+end_src
** Olivetti: distraction-free writing enviroment
#+begin_src emacs-lisp
(use-package olivetti
:init
(setq olivetti-body-width .67)
:config
(defun slv/distraction-free ()
"Distraction-free writing environment"
(interactive)
(if (equal olivetti-mode nil)
(progn
(window-configuration-to-register 1)
(delete-other-windows)
(text-scale-increase 2)
(olivetti-mode t))
(progn
(jump-to-register 1)
(olivetti-mode 0)
(text-scale-decrease 2))))
:bind
(("<f9 >" . slv/distraction-free)))
#+end_src
* elfeed
#+begin_src emacs-lisp
(use-package elfeed
:config
(setq elfeed-db-directory "~/Dropbox/elfeeddb"
elfeed-show-entry-switch 'display-buffer)
:bind
("C-x w" . elfeed )
)
(use-package elfeed-org
:config
(elfeed-org)
(setq rmh-elfeed-org-files (list "~/Dropbox/orgfiles/elfeed.org"))
)
;; (use-package elfeed-goodies
;; :ensure t
;; :config
;; (elfeed-goodies/setup)
;; )
;;
;; :bind (:map elfeed-search-mode-map
;; ("q" . bjm/elfeed-save-db-and-bury)
;; ("Q" . bjm/elfeed-save-db-and-bury)
;; ("m" . elfeed-toggle-star)
;; ("M" . elfeed-toggle-star)
;; ("j" . mz/make-and-run-elfeed-hydra)
;; ("J" . mz/make-and-run-elfeed-hydra)
;; ("b" . mz/elfeed-browse-url)
;; ("B" . elfeed-search-browse-url)
;; )
;; :config
;; (defalias 'elfeed-toggle-star
;; (elfeed-expose #'elfeed-search-toggle-all 'star))
;;
;; )
;;(use-package elfeed-goodies
;; :ensure t
;; :config
;; (elfeed-goodies/setup))
;;
;;
;;
;;
;; (defun mz/elfeed-browse-url (&optional use-generic-p)
;; "Visit the current entry in your browser using `browse-url'.
;; If there is a prefix argument, visit the current entry in the
;; browser defined by `browse-url-generic-program'."
;; (interactive "P")
;; (let ((entries (elfeed-search-selected)))
;; (cl-loop for entry in entries
;; do (if use-generic-p
;; (browse-url-generic (elfeed-entry-link entry))
;; (browse-url (elfeed-entry-link entry))))
;; (mapc #'elfeed-search-update-entry entries)
;; (unless (or elfeed-search-remain-on-entry (use-region-p))
;; ;;(forward-line)
;; )))
;;
;;
;;
;; (defun elfeed-mark-all-as-read ()
;; (interactive)
;; (mark-whole-buffer)
;; (elfeed-search-untag-all-unread))
;;
;;
;; ;;functions to support syncing .elfeed between machines
;; ;;makes sure elfeed reads index from disk before launching
;; (defun bjm/elfeed-load-db-and-open ()
;; "Wrapper to load the elfeed db from disk before opening"
;; (interactive)
;; (elfeed-db-load)
;; (elfeed)
;; (elfeed-search-update--force))
;;
;; ;;write to disk when quiting
;; (defun bjm/elfeed-save-db-and-bury ()
;; "Wrapper to save the elfeed db to disk before burying buffer"
;; (interactive)
;; (elfeed-db-save)
;; (quit-window))
;;(defun z/hasCap (s) ""
;; (let ((case-fold-search nil))
;; (string-match-p "[[:upper: ]]" s)
;; ))
;;
;;
;;(defun z/get-hydra-option-key (s)
;; "returns single upper case letter (converted to lower) or first"
;; (interactive)
;; (let ( (loc (z/hasCap s)))
;; (if loc
;; (downcase (substring s loc (+ loc 1)))
;; (substring s 0 1)
;; )))
;;
;;;; (active blogs cs eDucation emacs local misc sports star tech unread webcomics)
;;(defun mz/make-elfeed-cats (tags)
;; "Returns a list of lists. Each one is line for the hydra configuratio in the form
;; (c function hint)"
;; (interactive)
;; (mapcar (lambda (tag)
;; (let* (
;; (tagstring (symbol-name tag))
;; (c (z/get-hydra-option-key tagstring))
;; )
;; (list c (append '(elfeed-search-set-filter) (list (format "@6-months-ago +%s" tagstring) ))tagstring )))
;; tags))
;;
;;
;;
;;
;;
;;(defmacro mz/make-elfeed-hydra ()
;; `(defhydra mz/hydra-elfeed ()
;; "filter"
;; ,@(mz/make-elfeed-cats (elfeed-db-get-all-tags))
;; ("*" (elfeed-search-set-filter "@6-months-ago +star") "Starred")
;; ("M" elfeed-toggle-star "Mark")
;; ("A" (elfeed-search-set-filter "@6-months-ago") "All")
;; ("T" (elfeed-search-set-filter "@1-day-ago") "Today")
;; ("Q" bjm/elfeed-save-db-and-bury "Quit Elfeed" :color blue)
;; ("q" nil "quit" :color blue)
;; ))
;;
;;
;;
;;
;;(defun mz/make-and-run-elfeed-hydra ()
;; ""
;; (interactive)
;; (mz/make-elfeed-hydra)
;; (mz/hydra-elfeed/body))
;;
;;
;;(defun my-elfeed-tag-sort (a b)
;; (let* ((a-tags (format "%s" (elfeed-entry-tags a)))
;; (b-tags (format "%s" (elfeed-entry-tags b))))
;; (if (string= a-tags b-tags)
;; (< (elfeed-entry-date b) (elfeed-entry-date a)))
;; (string< a-tags b-tags)))
;;
;;
;;(setf elfeed-search-sort-function #'my-elfeed-tag-sort)
;;
#+end_src
* next
#+begin_src emacs-lisp
