lgatto

;; Pulls and pushes a few github repos from emacs
;; Laurent Gatto (https://github.com/lgatto)
;; Thanks to Stephen J. Eglen for his help in redirecting to a
;; dedicated buffer (https://github.com/sje30)

(setq git-dirs '(
                "~/wd"
                "~/bin"
                "~/Documents/org"
                "~/Documents/roam"

lgatto

## Installation instructions for the R for Mass Spectrometry tutorial
##      https://rformassspectrometry.github.io/book/

## Install packages

if (!requireNamespace("BiocManager", quietly = TRUE))
    install.packages("BiocManager")

BiocManager::install("tidyverse", ask = FALSE)
BiocManager::install("factoextra", ask = FALSE)

lgatto

(defun yank-bibtex-from-doi ()
  "Create and yank bibtex entry from a DOI."
  (interactive)
  ;; read the doi from minibuffer
  (setq doi (read-from-minibuffer "doi: "))
  ;; define the curl shell command
  (setq cmd
        (concat
         "curl -LH \"Accept: application/x-bibtex\" "
         "https://doi.org/"

lgatto

## See https://lgatto.github.io/the-grid-in-r/

plotSquare <- function(x, y, width) {
    x1 <- x - (width / 2)
    y1 <- y - (width / 2)
    x2 <- x1 + width
    y2 <- y1 + width
    rect(x1, y1, x2, y2)
}