ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
84 lines
3.1 KiB
EmacsLisp
84 lines
3.1 KiB
EmacsLisp
;;; lang/fortran/config.el -*- lexical-binding: t; -*-
|
|
|
|
;;
|
|
;;; Packages
|
|
|
|
(use-package! f90
|
|
:defer t
|
|
:config
|
|
;; --- Compilation --- ;;
|
|
;; Used by `compile' (SPC c c)
|
|
(let ((cmd (cond ((modulep! +intel) "ifort ")
|
|
(t "gfortran "))))
|
|
(setq-hook! 'f90-mode-hook
|
|
compile-command cmd
|
|
compilation-buffer-name-function #'+fortran-compilation-buffer-name-fn))
|
|
(set-popup-rule! "^\\*fortran-compilation" :side 'right :size 0.5 :quit t)
|
|
|
|
;; --- LSP Configuration --- ;;
|
|
(when (modulep! +lsp)
|
|
(setq lsp-clients-fortls-args '("--enable_code_actions" "--hover_signature"))
|
|
(add-hook 'f90-mode-local-vars-hook #'lsp! 'append))
|
|
|
|
;; --- Keybindings --- ;;
|
|
(map! :map f90-mode-map
|
|
:localleader
|
|
(:prefix ("f" . "fpm")
|
|
:desc "fpm build" "b" #'+fortran/fpm-build
|
|
:desc "fpm run" "r" #'+fortran/fpm-run
|
|
:desc "fpm test" "t" #'+fortran/fpm-test)
|
|
(:prefix ("g" . "gfortran")
|
|
:desc "compile" "c" #'+fortran/gfortran-compile
|
|
:desc "run" "r" #'+fortran/gfortran-run)
|
|
:desc "build" "b" #'+fortran/build
|
|
:desc "run" "r" #'+fortran/run)
|
|
|
|
(when (modulep! +intel)
|
|
(map! :map f90-mode-map
|
|
:localleader
|
|
(:prefix ("i" . "ifort")
|
|
:desc "compile" "c" #'+fortran/ifort-compile
|
|
:desc "run" "r" #'+fortran/ifort-run)))
|
|
|
|
(easy-menu-define f90-menu f90-mode-map "Simpler menu for F90 mode."
|
|
`("F90"
|
|
["Compile" +fortran/build :active t :help "Compile the Project"]
|
|
["Run" +fortran/run :active t :help "Run the Executable"]
|
|
["Test" +fortran/fpm-test :active (+fortran--fpm-toml) :help "Run the Unit Tests"])))
|
|
|
|
(use-package! fortran
|
|
;; The `.for' extension is automatically recognized by Emacs and invokes
|
|
;; `fortran-mode', but not its capital variant `.FOR'. Many old files are
|
|
;; named the latter way, so we account for that manually here.
|
|
:mode ("\\.FOR$" . fortran-mode)
|
|
:config
|
|
;; Or else Flycheck will get very mad.
|
|
(setq flycheck-gfortran-language-standard "legacy")
|
|
|
|
;; --- Compilation --- ;;
|
|
;; Used by `compile' (SPC c c)
|
|
(let ((cmd (cond ((modulep! +intel) "ifort ")
|
|
(t "gfortran -std=legacy "))))
|
|
(setq-hook! 'fortran-mode-hook
|
|
compile-command cmd
|
|
compilation-buffer-name-function #'+fortran-compilation-buffer-name-fn))
|
|
(set-popup-rule! "^\\*fortran-compilation" :side 'right :size 0.5 :quit t)
|
|
|
|
;; --- Keybindings --- ;;
|
|
(map! :map fortran-mode-map
|
|
:localleader
|
|
(:prefix ("g" . "gfortran")
|
|
:desc "compile" "c" #'+fortran/gfortran-compile
|
|
:desc "run" "r" #'+fortran/gfortran-run))
|
|
|
|
(when (modulep! +intel)
|
|
(map! :map fortran-mode-map
|
|
:localleader
|
|
(:prefix ("i" . "ifort")
|
|
:desc "compile" "c" #'+fortran/ifort-compile
|
|
:desc "run" "r" #'+fortran/ifort-run)))
|
|
|
|
(easy-menu-define fortran-menu fortran-mode-map "Simpler menu for Fortran mode."
|
|
'("Fortran"
|
|
["Compile" +fortran/build :active t :help "Compile with Project"]
|
|
["Run" +fortran/run :active t :help "Run the Executable"])))
|