csound-skeleton.el

;;; csound-skeleton.el --- A major mode for interacting and coding Csound

;; Copyright (C) 2017 - 2023  Hlöðver Sigurðsson

;; Author: Hlöðver Sigurðsson <hlolli@gmail.com>
;; Version: 0.2.9
;; Package-Requires: ((emacs "25") (shut-up "0.3.2") (multi "2.0.1") (dash "2.16.0") (highlight "0"))
;; URL: https://github.com/hlolli/csound-mode

;; 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 <http://www.gnu.org/licenses/>.

;;; Commentary:
;;  Skeleton for when creating new .csd file.

;; Initialize defaults values
(defcustom csound-skeleton-default-sr 44100
  "Set the default sr value when creating new csound file."
  :type 'integer
  :group 'csound-mode)

(defcustom csound-skeleton-default-ksmps 32
  "Set the default ksmps value when creating new csound file."
  :type 'integer
  :group 'csound-mode)

(defcustom csound-skeleton-default-options "-odac"
  "Set the default option flags when creating new csound file."
  :type 'string
  :group 'csound-mode)

(defcustom csound-skeleton-default-additional-header ""
  "Set the default additional header information when creating new csound file."
  :type 'string
  :group 'csound-mode)

(define-skeleton csound-skeleton-new-csd
  "Skeleton for auto-insert in csound-mode."
  nil
  "<CsoundSynthesizer>\n"
  "<CsOptions>\n"
  (concat csound-skeleton-default-options)
  "\n</CsOptions>\n"
  "<CsInstruments>\n\n"
  (concat "sr = " (number-to-string csound-skeleton-default-sr) "\n")
  (concat "ksmps = " (number-to-string csound-skeleton-default-ksmps) "\n")
  "nchnls = 2\n"
  "0dbfs = 1.0\n"
  "\n"
  (concat csound-skeleton-default-additional-header)
  "\n\n"
  "instr 1\n\nendin\n\n"
  "</CsInstruments>\n"
  "<CsScore>\n"
  "i1 0 1\n"
  "</CsScore>\n"
  "</CsoundSynthesizer>\n")

(eval-when-compile
  (define-auto-insert "\\.csd\\'"
    [csound-skeleton-new-csd (lambda ()
			       (goto-line 11)
			       (run-with-idle-timer 0.15 nil
						    (lambda () (csound-font-lock-flush-buffer))))]))

(provide 'csound-skeleton)

;;; csound-skeleton.el ends here