emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(fortran): keymappings for Intel

Browse source
This commit is contained in:
Colin Woodbury 2022-04-12 19:51:22 -07:00 • committed by Henrik Lissner
parent 81dc9af008
commit f64a61a7e1
1 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

32
modules/lang/fortran/config.el
View file

@ -33,6 +33,13 @@
:desc "build" "b" #'+fortran/build :desc "build" "b" #'+fortran/build
:desc "run" "r" #'+fortran/run) :desc "run" "r" #'+fortran/run)
(when (featurep! +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." (easy-menu-define f90-menu f90-mode-map "Simpler menu for F90 mode."
`("F90" `("F90"
["Compile" +fortran/build :active t :help "Compile the Project"] ["Compile" +fortran/build :active t :help "Compile the Project"]
@ -50,17 +57,13 @@
;; --- Compilation --- ;; ;; --- Compilation --- ;;
;; Used by `compile' (SPC c c) ;; Used by `compile' (SPC c c)
(setq-hook! 'fortran-mode-hook ; TODO These work for f90 but not for fortran. (let ((cmd (cond ((featurep! +intel) "ifort ")
compile-command "gfortran -std=legacy " (t "gfortran -std=legacy "))))
compilation-buffer-name-function #'+fortran-compilation-buffer-name-fn) (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) (set-popup-rule! "^\\*fortran-compilation" :side 'right :size 0.5 :quit t)
;; --- LSP --- ;;
;; Strangely, the built-in flycheck support seems to give better hints than the LSP.
;; (when (featurep! +lsp)
;; (setq lsp-clients-fortls-args '("--enable_code_actions" "--hover_signature"))
;; (add-hook 'fortran-mode-local-vars-hook #'lsp! 'append)))
;; --- Keybindings --- ;; ;; --- Keybindings --- ;;
(map! :map fortran-mode-map (map! :map fortran-mode-map
:localleader :localleader
@ -68,7 +71,14 @@
:desc "compile" "c" #'+fortran/gfortran-compile :desc "compile" "c" #'+fortran/gfortran-compile
:desc "run" "r" #'+fortran/gfortran-run)) :desc "run" "r" #'+fortran/gfortran-run))
(when (featurep! +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." (easy-menu-define fortran-menu fortran-mode-map "Simpler menu for Fortran mode."
'("Fortran" '("Fortran"
["Compile" +fortran/gfortran-compile :active t :help "Compile with gfortran"] ["Compile" +fortran/build :active t :help "Compile with Project"]
["Run" +fortran/gfortran-run :active t :help "Run the Executable"]))) ["Run" +fortran/run :active t :help "Run the Executable"])))