Verilog mode now in elpa, no need to manually fetch and update

Joel Grunbaum

2021-10-19 387766fe36d27611da43f10a3ebaa8c17c850c6c

 config.org

@@ -86,12 +86,12 @@
  (set-face-italic 'font-lock-keyword-face t)

#+END_SRC



** Remove menu bar, toolbar, but keep scroll bar

** Remove menu bar, toolbar, and scroll bar

Make the emacs interface slightly nicer.

#+BEGIN_SRC emacs-lisp

  (menu-bar-mode 0)

  (tool-bar-mode 0)

  (scroll-bar-mode 1)

  (scroll-bar-mode 0)

#+END_SRC

* COMMENT EXWM

Emacs window manager.

@@ -795,7 +795,7 @@
    :config

    (global-company-mode)

    (setq company-idle-delay 0)

    (setq company-minimum-prefix-length 3))

    (setq company-minimum-prefix-length 1))

#+END_SRC



** LSP Mode

@@ -1141,73 +1141,19 @@
      (autoload 'racket-mode "Racket" "Racket Editing Mode" t)

      (add-to-list

       'auto-mode-alist

       '("\\.rkt$" . racket-mode))

      (setq matlab-indent-function t))

       '("\\.rkt$" . racket-mode)))

#+END_SRC



*** COMMENT Verilog

**** Get latest version

Pull the latest version from the web.

Use latest version from repositories.

#+BEGIN_SRC emacs-lisp

  (defun get-verilog-latest()

    (if (not(file-directory-p "~/.emacs.d/elpa/verilog-mode"))

        (make-directory "~/.emacs.d/elpa/verilog-mode"))

    (if (file-exists-p "~/.emacs.d/elpa/verilog-mode/verilog-mode.el")

        (delete-file "~/.emacs.d/elpa/verilog-mode/verilog-mode.el"))

    (url-copy-file "https://www.veripool.org/ftp/verilog-mode.el" "~/.emacs.d/elpa/verilog-mode/verilog-mode.el" 1))

#+END_SRC



**** Integrate into emacs

Add updated version (based off auto-package-update) and integrate it with Emacs.

#+BEGIN_SRC emacs-lisp

  (defun verilog-read-file-as-string (file)

    "Read FILE contents."

    (when (file-exists-p file)

      (with-temp-buffer

        (insert-file-contents file)

        (buffer-string))))



  (defun verilog-write-string-to-file (file string)

    "Substitute FILE contents with STRING."

    (with-temp-buffer

      (insert string)

      (when (file-writable-p file)

        (write-region (point-min)

                      (point-max)

                      file))))



  (defun verilog-today-day ()

    (time-to-days (current-time)))



  (defun should-update-verilog-p ()

    "Return non-nil when an update is due."

    (and

     (or

      (not (file-exists-p "~/.emacs.d/.last-verilog-update-day"))

      (if (>= (/ (- (verilog-today-day) (verilog-read-last-update-day)) 7) 1)

          t

        nil))))



  (defun verilog-read-last-update-day ()

    "Read last update day."

    (string-to-number

     (verilog-read-file-as-string "~/.emacs.d/.last-verilog-update-day")))



  (defun verilog-write-current-day ()

    "Store current day."

    (verilog-write-string-to-file

     "~/.emacs.d/.last-verilog-update-day"

     (int-to-string (verilog-today-day))))



  (use-package verilog-mode

    :init

    (when (should-update-verilog-p)

        (get-verilog-latest)

        (verilog-write-current-day))

    (add-to-list 'load-path "~/.emacs.d/elpa/verilog-mode/verilog-mode.el")

    :ensure t

    :pin gnu

    :config

    (autoload 'verilog-mode "verilog-mode" "Verilog mode" t )

    (add-to-list 'auto-mode-alist '("\\.[ds]?vh?\\'" . verilog-mode)))

    (add-to-list 'auto-mode-alist '("\\.[ds]?va?h?\\'" . verilog-mode)))

#+END_SRC



*** COMMENT MATLAB

@@ -1269,15 +1215,6 @@
    :ensure t

    :config

    (add-hook 'flyckeck-mode-hook #'flycheck-rust-setup))

#+END_SRC



**** Completion

Code completion with racer.

#+BEGIN_SRC emacs-lisp

  (use-package racer

    :ensure t

    :hook ((rust-mode . racer-mode)

           (racer-mode . (eldoc-mode company-mode))))

#+END_SRC

*** Go

**** Major mode