;;; packages.el --- asm Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

;; List of all packages to install and/or initialize. Built-in packages
;; which require an initialization must be listed explicitly in the list.
(setq asm-packages
      '(
        ;; package names go here
        asm-mode
        nasm-mode
        x86-lookup
        ))

;; List of packages to exclude.
(setq asm-excluded-packages '())

;; For each package, define a function asm/init-<package-name>
;;
;; (defun asm/init-my-package ()
;;   "Initialize my package"
;;   )
;;
;; Often the body of an initialize function uses `use-package'
;; For more info on `use-package', see readme:
;; https://github.com/jwiegley/use-package
(defun asm/init-asm-mode ()
  "Setup for built-in `asm-mode'"
  (use-package asm-mode
    :config
    (progn
      ;; We need to insert a non-indented line, otherwise it's annoying
      ;; everytime we insert a comment for a routine
      (define-key asm-mode-map (kbd "C-j") 'newline)
      (add-hook 'asm-mode-hook #'asm-generic-setup))))

(defun asm/init-nasm-mode ()
  "Setup for built-in `nasm-mode', which could be thought as improved `asm-mode'"
  (use-package nasm-mode
    :init
    (progn
      (add-hook 'nasm-mode-hook #'asm-generic-setup)
      (add-to-list 'auto-mode-alist '("\\.[n]*\\(asm\\|s\\)$" . nasm-mode)))
    :config
    (progn
      ;; We need to insert a non-indented line, otherwise it's annoying
      ;; everytime we insert a comment for a routine
      (define-key nasm-mode-map (kbd "C-j") 'newline)
      ;; we use the advised `asm-colon' because `nasm-colon indents the whole line, even
      ;; inside a comment
      (define-key nasm-mode-map (kbd ":") 'asm-colon))))

(defun asm/init-x86-lookup ()
  (use-package x86-lookup
    :init
    (progn
      ;; when a user installed `pdf-tools', use it for viewing PDF document.
      (when (package-installed-p 'pdf-tools)
        (setq x86-lookup-browse-pdf-function 'x86-lookup-browse-pdf-pdf-tools)))))

(defun asm/post-init-company ()
  (spacemacs|add-company-hook asm-mode)
  (spacemacs|add-company-hook nasm-mode))

(defun asm/post-init-asm-mode ()
  (spacemacs/set-leader-keys-for-major-mode 'nasm-mode
    "h" 'x86-lookup))

(defun asm/post-init-nasm-mode ()
  (spacemacs/set-leader-keys-for-major-mode 'nasm-mode
    "h" 'x86-lookup))