;;; lisp-skeletons.el --- Skeletons for generating Common Lisp code       -*- lexical-binding: t; -*-

;;; lisp-skeletons.el --- Skeletons for generating Common Lisp code       -*- lexical-binding: t; tab-width: 8; -*-

(defun skeleton-prev-position ()
      (interactive "P")
      (skeleton-next-position t))

(provide 'lisp-skeletons)
;;; lisp-skeletons.el ends here

(define-skeleton skel-defsystem
  "Insert a defsystem template"
  (skeleton-read "System Name: " (if v1
                                     (file-name-sans-extension
                                      (file-name-nondirectory
                                       (buffer-file-name)))))
  & (if (setq v1 (bobp))
        ";;; -*- Mode:Lisp; Syntax:ANSI-Common-Lisp; Package: ASDF-USER -*-")
  & \n
  & "(in-package :asdf-user)"
  & \n
  & \n
  "(defsystem :" @ str " 
  :description \"\"
  :author \"Ed L <edward@elangley.org>\"
  :license \"MIT\"
  :depends-on (#:alexandria
               #:uiop
               #:serapeum
               " @ - ")
  :serial t
  :components (" @ "
  " _ "))"
  '(save-excursion
     (indent-region (point-min) (point-max) nil)))

;;;; -*- mode: Emacs-Lisp;-*-

;;;; -*- mode: Emacs-Lisp;tab-width: 8;indent-tabs-mode: nil; -*-

			 ("org" . "http://orgmode.org/elpa/")
			 ("melpa" . "https://melpa.org/packages/")
			 ("melpa-stable" . "http://stable.melpa.org/packages/"))

                         ("org" . "http://orgmode.org/elpa/")
                         ("melpa" . "https://melpa.org/packages/")
                         ("melpa-stable" . "http://stable.melpa.org/packages/"))

    (add-hook 'skeleton-end-hook 'skeleton-make-markers))
  (defun helm-generate-lisp-skeleton ()
    (interactive)
    (let ((skeletons '(("defunction" . skel-defun)
                       ("defmacro" . skel-defmacro)
                       ("defparameter" . skel-defparameter)
                       ("defvar" . skel-defvar))))
      (funcall (helm-comp-read "code template: " skeletons))))
  
  (define-key evil-normal-state-map " g" 'helm-generate-lisp-skeleton)
  (define-key evil-visual-state-map " g" 'helm-generate-lisp-skeleton)

    (add-hook 'skeleton-end-hook 'skeleton-make-markers)
    (defun helm-generate-lisp-skeleton ()
      (interactive)
      (let ((skeletons '(("defunction" . skel-defun)
                         ("defmacro" . skel-defmacro)
                         ("defsystem" . skel-defsystem)
                         ("defparameter" . skel-defparameter)
                         ("defvar" . skel-defvar))))
        (funcall (helm-comp-read "code template: " skeletons))
        (evil-insert 1)))
    
    (define-key evil-insert-state-map (kbd "C-c j") 'skeleton-next-position)
    (define-key evil-insert-state-map (kbd "C-c k") 'skeleton-prev-position)
    (define-key evil-normal-state-map " g" 'helm-generate-lisp-skeleton)
    (define-key evil-visual-state-map " g" 'helm-generate-lisp-skeleton))

  (defun create-system-files ()
    (interactive)
    (mapcar (lambda (it) (save-buffer (find-file (format "%s.lisp" (cadr it)))))
            (getf (cddar (read-from-string
                          (buffer-substring (point)
                                            (mark))))
                  :components)))

	    '(lambda ()
	       ;;(define-key evil-insert-state-map "^N" 'slime-fuzzy-indent-and-complete-symbol)
	       (unless (string= "*slime-scratch*" (buffer-name))
		 (paredit-mode)
		 (evil-paredit-mode))
	       (rainbow-delimiters-mode))) 

            '(lambda ()
               ;;(define-key evil-insert-state-map "^N" 'slime-fuzzy-indent-and-complete-symbol)
               (unless (string= "*slime-scratch*" (buffer-name))
                 (paredit-mode)
                 (evil-paredit-mode))
               (rainbow-delimiters-mode))) 

	'(slime-fancy
	  slime-company
	  slime-macrostep
	  slime-trace-dialog
	  slime-mdot-fu)))

        '(slime-fancy
          slime-company
          slime-macrostep
          slime-trace-dialog
          slime-mdot-fu)))

	 (define-key company-active-map (kbd "SPC") (kbd "RET SPC"))
	 (define-key company-active-map (kbd "(") (kbd "RET SPC ("))
	 (define-key company-active-map (kbd "{") (kbd "RET SPC {"))
	 (define-key company-active-map (kbd "[") (kbd "RET [")))

         (define-key company-active-map (kbd "SPC") (kbd "RET SPC"))
         (define-key company-active-map (kbd "(") (kbd "RET SPC ("))
         (define-key company-active-map (kbd "{") (kbd "RET SPC {"))
         (define-key company-active-map (kbd "[") (kbd "RET [")))

	'(company-clang
	  company-bbdb
	  company-nxml
	  company-css
	  company-xcode
	  company-cmake
	  company-capf
	  company-files
	  (company-dabbrev-code
	   company-gtags
	   company-etags
	   company-keywords)
	  company-oddmuse
	  company-dabbrev))

        '(company-clang
          company-bbdb
          company-nxml
          company-css
          company-xcode
          company-cmake
          company-capf
          company-files
          (company-dabbrev-code
           company-gtags
           company-etags
           company-keywords)
          company-oddmuse
          company-dabbrev))

	    (lambda (&rest args)
	      (evil-visual-mark-render)))

            (lambda (&rest args)
              (evil-visual-mark-render)))