From 0864ffaba6e44e8fc49f9871adb1200cc0885f9e Mon Sep 17 00:00:00 2001
From: Chizi123 <joelgrun@gmail.com>
Date: Mon, 10 Jun 2019 11:51:03 +0000
Subject: [PATCH] Made verilog-mode update every week, code from auto-package-update
---
config.org | 250 +++++++++++++++++++++++++++++++++++++------------
1 files changed, 187 insertions(+), 63 deletions(-)
diff --git a/config.org b/config.org
index a4f7fd7..283258b 100644
--- a/config.org
+++ b/config.org
@@ -1,4 +1,6 @@
#+TITLE: My Emacs configuration
+# LocalWords: poppler mingw emacs eq nt gnuplot setenv mapconcat el cond minibuffer pdf color Smartparens smartparens yas aindent whitespace eldoc ielm ibuffer hippie pscp pos Spaceline spaceline powerline spacemacs seperator dir Yasnippet yasnippet flycheck magit fullscreen CEDET askifnotset semanticdb EDE ede gdb srefactor analyzer eval cdb autosetup ghostscript math unicode reftex bibtex TeXcount texcount str latin rkt PlantUML plantuml autoload alist matlab verilog ds vh src fontify natively fortran dvipng plist xcolor EXWM Zenburn setq zenburn defun dolist init config DejaVu ispell aspell flyspell kbd recentf sexp ov bg listp defadvice progn prog keyfreq autosave dabbrev hl gc linum linux utf RET ARG arg configs backends contribs AucTex tex auctex LaTeX url
+
* Windows dependencies
Dependencies needed for Aspell, poppler PDF-tools, compilers and ghost-script provided by mingw64
#+BEGIN_SRC emacs-lisp
@@ -15,25 +17,40 @@
#+BEGIN_SRC emacs-lisp
(setq emacs-theme 'zenburn)
+ (defun disable-all-themes ()
+ (dolist (i custom-enabled-themes)
+ (disable-theme i)))
+
(cond ((eq emacs-theme 'zenburn)
(use-package zenburn-theme
:ensure t
+ :init
+ (disable-all-themes)
:config
(load-theme 'zenburn t)))
((eq emacs-theme 'doom-one)
(use-package doom-themes
:ensure t
+ :init
+ (disable-all-themes)
:config
(setq doom-themes-enable-bolt t
doom-themes-enable-italic t)
(load-theme 'doom-one t)
(doom-themes-visual-bell-config)
- (doom-themes-org-config))))
+ (doom-themes-org-config)))
+ ((eq emacs-theme 'none)
+ (disable-all-themes)))
#+END_SRC
+
** Default font
-#+BEGIN_SRC emacs-lisp
- (set-frame-font "DejaVu Sans Mono" nil t)
+#+BEGIN_SRC emacs-lisp
+ ;;(set-frame-font "DejaVu Sans Mono" nil t)
+ (set-frame-font "Dank Mono-11" nil t)
+ (set-face-italic 'font-lock-comment-face t)
+ (set-face-italic 'font-lock-keyword-face t)
#+END_SRC
+
** Remove menu bar, toolbar, but keep scroll bar
#+BEGIN_SRC emacs-lisp
(menu-bar-mode 0)
@@ -68,6 +85,7 @@
:bind
([remap other-window] . switch-window))
#+END_SRC
+
** Go to new window when opened
#+BEGIN_SRC emacs-lisp
(defun split-and-follow-horizontally ()
@@ -84,14 +102,15 @@
(other-window 1))
(global-set-key (kbd "C-x 3") 'split-and-follow-vertically)
#+END_SRC
+
** PDF-tools
#+BEGIN_SRC emacs-lisp
(use-package pdf-tools
:ensure t
:config
(pdf-tools-install))
-
#+END_SRC
+
* Helm and Projectile
** Helm core
#+BEGIN_SRC emacs-lisp
@@ -125,6 +144,7 @@
'spacemacs//helm-hide-minibuffer-maybe)
(helm-mode 1))
#+END_SRC
+
** Projectile
*** Enable it
#+BEGIN_SRC emacs-lisp
@@ -138,27 +158,32 @@
(when (eq system-type 'windows-nt)
(setq projectile-indexing-method 'alien)))
#+END_SRC
+
*** Let it compile things
#+BEGIN_SRC emacs-lisp
(global-set-key (kbd "<f5>") 'projectile-compile-project)
#+END_SRC
+
*** Enable communication with helm
#+BEGIN_SRC emacs-lisp
-(use-package helm-projectile
- :ensure t
- :config
- (helm-projectile-on))
+ (use-package helm-projectile
+ :ensure t
+ :config
+ (helm-projectile-on))
#+END_SRC
+
* Small tweaks
** Remove startup screen
#+BEGIN_SRC emacs-lisp
(setq inhibit-startup-message t)
#+END_SRC
+
** Disable bell
Bloody bell dings every time you hit a key too much
#+BEGIN_SRC emacs-lisp
(setq ring-bell-function 'ignore)
#+END_SRC
+
** Pretty symbols
Why not? They make it look nice
#+BEGIN_SRC emacs-lisp
@@ -169,6 +194,7 @@
:config
(global-pretty-mode)))
#+END_SRC
+
** find file other window
Lets it accept more than one file. Works recursively.
#+BEGIN_SRC emacs-lisp
@@ -177,6 +203,7 @@
(loop for f in filename do (find-file-other-window f wildcards))
ad-do-it))
#+END_SRC
+
** Which key
Helps to explain keybindings if you get lost
#+BEGIN_SRC emacs-lisp
@@ -186,6 +213,7 @@
:config
(which-key-mode))
#+END_SRC
+
** Go to this file
#+BEGIN_SRC emacs-lisp
(defun config-visit ()
@@ -193,6 +221,7 @@
(find-file "~/.emacs.d/config.org"))
(global-set-key (kbd "C-c e d") 'config-visit)
#+END_SRC
+
** Go to init.el
#+BEGIN_SRC emacs-lisp
(defun init-visit ()
@@ -200,6 +229,7 @@
(find-file "~/.emacs.d/init.el"))
(global-set-key (kbd "C-c e i") 'init-visit)
#+END_SRC
+
** Reload configuration
#+BEGIN_SRC emacs-lisp
(defun config-reload ()
@@ -208,6 +238,7 @@
(org-babel-load-file (expand-file-name "~/.emacs.d/config.org")))
(global-set-key (kbd "C-c e r") 'config-reload)
#+END_SRC
+
** Smartparens
Matches brackets automatically
#+BEGIN_SRC emacs-lisp
@@ -219,6 +250,7 @@
(require 'smartparens-config)
(smartparens-global-mode 1)))
#+END_SRC
+
** Rainbow
Its a little gimmicky but its still cool
#+BEGIN_SRC emacs-lisp
@@ -228,6 +260,7 @@
:init
(add-hook 'prog-mode-hook 'rainbow-mode))
#+END_SRC
+
** Rainbow delimiters
A bit more useful than above.
Colours the brackets so that they stand out more.
@@ -237,6 +270,7 @@
:init
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
#+END_SRC
+
** clean-aindent-mode
Removes unnecessary white space
#+BEGIN_SRC emacs-lisp
@@ -248,6 +282,7 @@
#+BEGIN_SRC emacs-lisp
(add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace 1)))
#+END_SRC
+
** whitespace mode
Reveals whitespace characters
#+BEGIN_SRC emacs-lisp
@@ -267,12 +302,14 @@
(whitespace-mode 1)))
#+END_SRC
+
** eldoc
#+BEGIN_SRC emacs-lisp
(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
(add-hook 'lisp-interaction-mode-hook 'eldoc-mode)
(add-hook 'ielm-mode-hook 'eldoc-mode)
#+END_SRC
+
** key-freq
collects interesting statistics
#+BEGIN_SRC emacs-lisp
@@ -282,6 +319,7 @@
(keyfreq-mode 1)
(keyfreq-autosave-mode 1))
#+END_SRC
+
** undo-tree
A more advanced undo mechanism
#+BEGIN_SRC emacs-lisp
@@ -291,6 +329,7 @@
:config
(global-undo-tree-mode))
#+END_SRC
+
** volatile highlights
Colour the material just copied
#+BEGIN_SRC emacs-lisp
@@ -300,20 +339,13 @@
:config
(volatile-highlights-mode t))
#+END_SRC
-** Workgroups
-Open the pages when you quit
-#+BEGIN_SRC emacs-lisp
- ;; (use-package workgroups2
- ;; :ensure t
- ;; :diminish workgroups-mode
- ;; :config
- ;; (workgroups-mode 1))
-#+END_SRC
+
** ibuffer
#+BEGIN_SRC emacs-lisp
(global-set-key (kbd "C-x C-b") 'ibuffer)
(setq ibuffer-use-other-window t)
#+END_SRC
+
** hippie expand
#+BEGIN_SRC emacs-lisp
(global-set-key (kbd "M-/") 'hippie-expand) ;; replace dabbrev-expand
@@ -331,10 +363,12 @@
try-complete-lisp-symbol) ;; Try to complete word as an Emacs Lisp symbol.
)
#+END_SRC
+
** Highlight line
#+BEGIN_SRC emacs-lisp
(global-hl-line-mode)
#+END_SRC
+
** Line numbers
#+BEGIN_SRC emacs-lisp
(add-hook 'prog-mode-hook 'linum-mode)
@@ -355,6 +389,7 @@
kill-ring-max 5000
kill-whole-line t)
#+END_SRC
+
** Coding style
#+BEGIN_SRC emacs-lisp
(setq c-default-style "linux")
@@ -370,6 +405,7 @@
(delete-selection-mode)
(global-set-key (kbd "RET") 'newline-and-indent)
#+END_SRC
+
** Move to beginning of line ignoring whitespace
Move point back to indentation of beginning of line.
@@ -397,6 +433,7 @@
(global-set-key (kbd "C-a") 'prelude-move-beginning-of-line)
#+END_SRC
+
** Indent region or buffer
#+BEGIN_SRC emacs-lisp
(defun indent-region-or-buffer ()
@@ -415,6 +452,7 @@
(global-set-key (kbd "C-c i") 'indent-region-or-buffer)
#+END_SRC
+
** Tramp
#+BEGIN_SRC emacs-lisp
(when (eq system-type 'windows-nt)
@@ -427,20 +465,23 @@
** Spaceline
A little easier to read than the default emacs mode line
#+BEGIN_SRC emacs-lisp
- (use-package spaceline
- :ensure t
- :config
- (require 'spaceline-config)
- (setq spaceline-buffer-encoding-abbrev-p t)
- (setq spaceline-line-column-p t)
- (setq spaceline-line-p t)
- (setq powerline-default-separator (quote arrow))
- (spaceline-spacemacs-theme))
+ (use-package spaceline
+ :ensure t
+ :config
+ (require 'spaceline-config)
+ (setq spaceline-buffer-encoding-abbrev-p t)
+ (setq spaceline-line-column-p t)
+ (setq spaceline-line-p t)
+ (setq powerline-default-separator (quote arrow))
+ (spaceline-spacemacs-theme)
+ (spaceline-helm-mode))
#+END_SRC
+
** No separator
#+BEGIN_SRC emacs-lisp
(setq powerline-default-seperator nil)
#+END_SRC
+
* Programming tweaks
** Yasnippet
#+BEGIN_SRC emacs-lisp
@@ -453,10 +494,14 @@
(yas-reload-all)
(yas-global-mode 1))
#+END_SRC
+
** flycheck
#+BEGIN_SRC emacs-lisp
-(use-package flycheck
- :ensure t)
+ (use-package flycheck
+ :ensure t
+ :diminish flycheck-mode
+ :config
+ (global-flycheck-mode))
#+END_SRC
*** flycheck-pos-tip
#+BEGIN_SRC emacs-lisp
@@ -466,8 +511,9 @@
:config
(flycheck-pos-tip-mode))
#+END_SRC
+
** Company
-Company is auto-complete for emacs
+Company is auto-complete for Emacs
#+BEGIN_SRC emacs-lisp
(use-package company
:ensure t
@@ -477,6 +523,7 @@
(setq company-idle-delay 0)
(setq company-minimum-prefix-length 3))
#+END_SRC
+
** Magit
#+BEGIN_SRC emacs-lisp
(use-package magit
@@ -531,6 +578,7 @@
magit-set-upstream-on-push 'askifnotset
)))
#+END_SRC
+
** CEDET
*** semantic
#+BEGIN_SRC emacs-lisp
@@ -541,12 +589,14 @@
(global-semantic-idle-summary-mode 1)
(semantic-mode 1))
#+END_SRC
+
*** EDE
#+BEGIN_SRC emacs-lisp
(use-package ede
:config
(global-ede-mode t))
#+END_SRC
+
*** gdb-many-windows
#+BEGIN_SRC emacs-lisp
(setq
@@ -556,6 +606,7 @@
;; Non-nil means display source file containing the main routine at startup
gdb-show-main t)
#+END_SRC
+
*** Semantic refactor
#+BEGIN_SRC emacs-lisp
(use-package srefactor
@@ -569,6 +620,7 @@
:map c++-mode-map
("M-RET" . 'srefactor-refactor-at-point)))
#+END_SRC
+
** Language specific configs
*** C/C++
**** yasnippet
@@ -576,6 +628,7 @@
(add-hook 'c++-mode-hook 'yas-minor-mode)
(add-hook 'c-mode-hook 'yas-minor-mode)
#+END_SRC
+
**** flycheck clang
#+BEGIN_SRC emacs-lisp
(use-package flycheck-clang-analyzer
@@ -585,6 +638,7 @@
(require 'flycheck-clang-analyzer)
(flycheck-clang-analyzer-setup)))
#+END_SRC
+
**** company
#+BEGIN_SRC emacs-lisp
(use-package company-c-headers
@@ -611,15 +665,18 @@
(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options)
(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))
#+END_SRC
+
*** emacs-lisp
**** eldoc
#+BEGIN_SRC emacs-lisp
(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
#+END_SRC
+
**** yasnippet
#+BEGIN_SRC emacs-lisp
(add-hook 'emacs-lisp-mode-hook 'yas-minor-mode)
#+END_SRC
+
**** company
#+BEGIN_SRC emacs-lisp
(add-hook 'emacs-lisp-mode-hook 'company-mode)
@@ -636,6 +693,7 @@
(require 'company)
(slime-setup '(slime-fancy slime-company)))
#+END_SRC
+
*** x86
**** x86-lookup
#+BEGIN_SRC emacs-lisp
@@ -645,17 +703,20 @@
(setq x86-lookup-pdf "D:/Coding/x86-instructions.pdf")
:bind ("C-h x" . x86-lookup))
#+END_SRC
+
*** Latex
**** AucTex
#+BEGIN_SRC emacs-lisp
-(use-package tex
- :ensure auctex
- :config
- (setq TeX-auto-save t)
- (setq TeX-parse-self t)
- (setq doc-view-ghostscript-program "c:/msys64/mingw64/bin/gswin32c.exe")
- (setq preview-gs-command "c:/msys64/mingw64/bin/gs.exe"))
+ (use-package tex
+ :ensure auctex
+ :config
+ (setq TeX-auto-save t)
+ (setq TeX-parse-self t)
+ (setq TeX-view-program-selection '((output-pdf "PDF Tools"))
+ TeX-source-correlate-start-server t)
+ (add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer))
#+END_SRC
+
**** Company
#+BEGIN_SRC emacs-lisp
(use-package company-math
@@ -681,19 +742,16 @@
:after company
(add-to-list 'company-backends 'company-bibtex))
#+END_SRC
-**** Preview pane
-#+BEGIN_SRC emacs-lisp
-(use-package latex-preview-pane
- :ensure t
- :config
- (latex-preview-pane-enable))
-#+END_SRC
-**** TeXcount
+
+**** COMMENT TeXcount
Word counts in latex
#+BEGIN_SRC emacs-lisp
- (when (eq system-type 'windows-nt)
- (add-to-list 'exec-path "c:/Users/joelg/TeXcount_3_1_1")
- (setenv "PATH" (mapconcat #'identity exec-path path-separator)))
+ (defun get-texcount-latest()
+ (url-copy-file "https://app.uio.no/ifi/texcount/download.php?file=texcount_3_1_1.zip" "~/.texcount/texcount.zip" 1)
+ (shell-command "unzip -o ~/.texcount/texcount.zip -d ~/.texcount")
+ (add-to-list 'exec-path "~/.texcount/texcount.pl"))
+
+ (get-texcount-latest)
(defun texcount ()
(interactive)
@@ -738,19 +796,75 @@
(autoload 'racket-mode "Racket" "Racket Editing Mode" t)
(add-to-list
'auto-mode-alist
- '("\\.rkt$" . matlab-mode))
+ '("\\.rkt$" . racket-mode))
(setq matlab-indent-function t))
#+END_SRC
*** Verilog
+**** Get latest version
+Pull the latest version from the web
+#+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 and integrate it with Emacs.
#+BEGIN_SRC emacs-lisp
- (add-to-list 'load-path "~/.emacs.d/elpa/verilog-mode-20190324/verilog-mode.el")
- (require 'verilog-mode)
+ (defun verilog-read-file-as-string (file)
+ "Read FILE contents."
+ (when (file-exists-p file)
+ (with-temp-buffer
+ (insert-file-contents file)
+ (buffer-string))))
- (autoload 'verilog-mode "verilog-mode" "Verilog mode" t )
- (add-to-list 'auto-mode-alist '("\\.[ds]?vh?\\'" . verilog-mode))
+ (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")
+ :config
+ (autoload 'verilog-mode "verilog-mode" "Verilog mode" t )
+ (add-to-list 'auto-mode-alist '("\\.[ds]?vh?\\'" . verilog-mode)))
#+END_SRC
+
* Org mode
** Up to date org
#+BEGIN_SRC emacs-lisp
@@ -758,6 +872,7 @@
:ensure t
:pin org)
#+END_SRC
+
** Small tweaks
#+BEGIN_SRC emacs-lisp
(setq org-src-fontify-natively t)
@@ -769,12 +884,14 @@
(diminish 'org-indent-mode)
(diminish 'visual-line-mode)
#+END_SRC
+
** Line wrapping
#+BEGIN_SRC emacs-lisp
(add-hook 'org-mode-hook
'(lambda ()
(visual-line-mode 1)))
#+END_SRC
+
** org-bullets
#+BEGIN_SRC emacs-lisp
(use-package org-bullets
@@ -782,21 +899,29 @@
:config
(add-hook 'org-mode-hook (lambda () (org-bullets-mode))))
#+END_SRC
+
** Org Babel
*** Languages
Add C to org babel supported languages
#+BEGIN_SRC emacs-lisp
- (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)
- (C . t)
- (python . t)
- (latex . t)
- (scheme . t)
- (gnuplot . t)
- (matlab . t)
- (plantuml . t)
- (fortran . t)
- (java . t)))
+ (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)
+ (C . t)
+ (python . t)
+ (latex . t)
+ (scheme . t)
+ (gnuplot . t)
+ (matlab . t)
+ (plantuml . t)
+ (fortran . t)
+ (java . t)
+ (plantuml . t)))
#+END_SRC
+
+**** Plantuml path
+#+BEGIN_SRC emacs-lisp
+ (setq org-plantuml-jar-path plantuml-jar-path)
+#+END_SRC
+
** Latex preview fragments match colour
Make the previews match theme colour of Emacs.
#+BEGIN_SRC emacs-lisp
@@ -804,4 +929,3 @@
(plist-put dvipng--plist :use-xcolor t)
(plist-put dvipng--plist :image-converter '("dvipng -D %D -T tight -o %O %f")))
#+END_SRC
-
--
Gitblit v1.9.3