;; -*- lexical-binding: t; -*- ;; Copyright (C) 2022 ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . (defun aoc-read-file (file) (with-temp-buffer (insert-file-contents-literally file nil) (decode-coding-string (buffer-substring-no-properties (point-min) (point-max)) 'utf-8))) (defun aoc-read-file-lines (file &optional omit-nulls) (string-lines (aoc-read-file file) omit-nulls)) (defmacro aoc-debug (expr) `(let ((e ,expr)) (debug e) e)) (provide 'aoc)