Skip to content

Instantly share code, notes, and snippets.

View matthew-ball's full-sized avatar

Matthew Ball matthew-ball

  • Canberra, ACT, Australia
View GitHub Profile
(eval-when-compile (require 'cl-lib))
(defgroup user-variables nil "User variables.")
(defcustom user-config-directory "~/.config-scripts/" "Directory for user's configuration files." :type 'directory :group 'user-variables)
(defcustom user-projects-directory "~/Public/" "Directory for user's project files." :type 'directory :group 'user-variables)
(defcustom user-documents-directory "~/Documents/" "Directory for user's files." :type 'directory :group 'user-variables)
(defcustom user-notes-file (concat (expand-file-name user-documents-directory) "notes.org") "File for user's notes." :type 'file :group 'user-variables)
(defcustom user-packages-list '(magit gist undo-tree browse-kill-ring yasnippet projectile company idle-highlight-mode cider ess diminish dashboard) "List of user packages." :type '(repeat symbol) :group 'user-variables)
(require 'org)
(require 'org-agenda)
(require 'org-capture)
(require 'org-indent)
(require 'ox-latex)
(require 'ox-odt)
(add-to-list 'org-latex-classes
'("paper"
"\\documentclass[12pt,a4paper,oneside]{paper}
(eval-when-compile (require 'cl-lib))
(defgroup user-variables nil "User variables.")
(defcustom user-projects-directory "~/Public/" "Directory for user's project files." :type 'directory :group 'user-variables)
(defcustom user-documents-directory "~/Documents/" "Directory for user's files." :type 'directory :group 'user-vabriables)
(defcustom user-notes-file (concat (expand-file-name user-documents-directory) "notes.org") "File for user's notes." :type 'file :group 'user-variables)
;; This buffer is for text that is not saved, and for Lisp evaluation.
;; To create a file, visit it with C-x C-f and enter text in its buffer.
(require 'erc)
(require 'tls)
(require 'erc-spelling)
(require 'erc-goodies)
(erc-spelling-enable)
(erc-scrolltobottom-enable)
(eval-when-compile (require 'cl-lib))
(defgroup user-variables nil "User variables.")
(defcustom user-projects-directory "~/Public/" "Directory for user's project files." :type 'directory :group 'user-variables)
(defcustom user-documents-directory "~/Documents/" "Directory for user's files." :type 'directory :group 'user-vabriables)
(defcustom user-notes-file (concat (expand-file-name user-documents-directory) "notes.org") "File for user's notes." :type 'file :group 'user-variables)
(eval-when-compile (require 'cl-lib))
(defgroup user-variables nil "User variables.")
(defcustom user-projects-directory "~/Public/" "Directory for user's project files." :type 'directory :group 'user-variables)
(defcustom user-documents-directory "~/Documents/" "Directory for user's files." :type 'directory :group 'user-vabriables)
(defcustom user-notes-file (concat (expand-file-name user-documents-directory) "notes.org") "File for user's notes." :type 'file :group 'user-variables)
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <time.h>
#define MALLOC_CHECK(ptr) ({ if (!ptr) { fprintf(stderr, "[%s] malloc failed\n", __func__); exit(EXIT_FAILURE); }})
typedef enum { VARIABLE, NEGATION, CONJUNCTION, DISJUNCTION, IMPLICATION } type_t;
typedef enum { FALSE, TRUE } value_t;
(defgroup user-variables nil "User variables.")
(defcustom user-projects-directory "~/Public/" "Directory for user's project files." :type 'directory :group 'user-variables)
(defcustom user-documents-directory "~/Documents/" "Directory for user's files." :type 'directory :group 'user-vabriables)
(defcustom user-notes-file (concat (expand-file-name user-documents-directory) "notes.org") "File for user's notes." :type 'file :group 'user-variables)
(defcustom user-packages-list '(magit gist undo-tree browse-kill-ring adaptive-wrap projectile yasnippet auto-complete diminish) "List of user packages." :type '(repeat symbol) :group 'user-variables)
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#define MALLOC_CHECK(ptr) ({ if (!ptr) { fprintf(stderr, "[%s] malloc failed\n", __func__); exit(EXIT_FAILURE); }})
typedef enum { VARIABLE, LAMBDA, APPLICATION } type_t;
(require 'imenu)
(defun goto-symbol (&optional symbol-list)
(interactive)
(cond
((not symbol-list)
(let (name-and-pos symbol-names position)
(while (progn
(imenu--cleanup)
(setq imenu--index-alist nil)