diff --git a/README.md b/README.md index b88d28b..a6cff37 100644 --- a/README.md +++ b/README.md @@ -1,17 +1,17 @@ # Table of Contents -1. [Introduction](#org68df4af) -2. [Some Highlights](#org87734b2) -3. [Installation](#orga42b9b4) -4. [First Step](#org4ed0cbc) -5. [Configuration and Customisation](#orgeb3c8d9) -6. [Bugs and Problems](#orga6565fb) -7. [News](#org5121f8e) -8. [Further Resources](#orgc61e73a) -9. [Acknowledgements](#org373a896) -10. [Todos](#orgde18461) -11. [GNU GPL v3 License](#orge1849ce) +1. [Introduction](#org67fd538) +2. [Some Highlights](#orgb52513b) +3. [Installation](#org00520c7) +4. [First Step](#orgc9cd432) +5. [Configuration and Customisation](#org7ca1727) +6. [Bugs and Problems](#org6c19df7) +7. [News](#org5f77e79) +8. [Further Resources](#org04aedca) +9. [Acknowledgements](#orgfea5448) +10. [Todos](#org7aafa15) +11. [GNU GPL v3 License](#orgf45ab3f) @@ -27,7 +27,7 @@ Copyright (C) 2006 - 2021 H. Dieter Wilhelm, GPL V3 ![img](doc/ansys+emacs2020-03.png) - + # Introduction @@ -67,7 +67,7 @@ Workbench changes and you can pull-in the updated content with the ![img](doc/connect_command_snippet_to_file.png) - + # Some Highlights @@ -133,7 +133,7 @@ The image below shows the unhidden content. ![img](doc/unhidden_blocks.png) - + # Installation @@ -204,14 +204,14 @@ to your initialisation file (the source directory must be set in the \`load-path' variable as well). - + # First Step Please type \`M-x apdl' which opens a buffer in APDL-Mode where you can inspect the menu bar's \`APDL' and \`MAPDL' entries. For existing APDL files please type \`M-x apdl-mode' if the mode is not activated -already, please see in [5](#orgeb3c8d9), +already, please see in [5](#org7ca1727), the section regarding preconfigured file suffixes. For further guidance please select the APDL menu \`APDL-Mode @@ -220,7 +220,7 @@ Documentation' (or type \`C-c C-h') and \`Describe APDL-Mode' (or type introductory APDL-Mode [tutorial](https://dieter-wilhelm.github.io/apdl-mode/doc/A-M_introductory_tutorial.pdf). - + # Configuration and Customisation @@ -236,7 +236,7 @@ Please read the [apdl-config](info/apdl-config.md) documentation for further opt open the accompanying configuration [example-file](apdl-config.el). - + # Bugs and Problems @@ -260,14 +260,14 @@ following options: [Emacs Wiki](https://www.emacswiki.org). - + # News For further news please have a look into the [NEWS](info/NEWS.md) file. - + # Further Resources @@ -275,7 +275,7 @@ If you want to read further details regarding the APDL scripting, GNU-Emacs and other APDL editors please read the [RESOURCES](info/resources.md) file. - + # Acknowledgements @@ -290,14 +290,14 @@ I received, moreover, support and feedback from many individuals. Thank you very much! - + # Todos Please check the [TODO](info/TODO.md) file. - + # GNU GPL v3 License diff --git a/apdl-mode.info b/apdl-mode.info index 729215a..2027e9f 100644 --- a/apdl-mode.info +++ b/apdl-mode.info @@ -7,7 +7,7 @@ File: apdl-mode.info, Node: Top, Next: Copyright and Copying, Up: (dir) The Manual of APDL-Mode *********************** -Version 20.6.0 Time-stamp: "2021-09-23" +Version 20.6.0 Time-stamp: "2021-09-26" * Menu: diff --git a/apdl-process.el b/apdl-process.el index 1924af0..1f90a68 100644 --- a/apdl-process.el +++ b/apdl-process.el @@ -1,5 +1,5 @@ ;;; apdl-process.el --- Managing runs and processes for APDL-Mode -*- lexical-binding: t -*- -;; Time-stamp: <2021-09-19> +;; Time-stamp: <2021-09-26> ;; Copyright (C) 2006 - 2021 H. Dieter Wilhelm GPL V3 @@ -113,7 +113,7 @@ "granta" ; material stuff "electronics" ; electronics desktop "spaceclaim" ; spaceclaim -;; "agppi" ; agppi -- Design Modeler + ;; "agppi" ; agppi -- Design Modeler "cfd" ; Computational Fluid Mechanics "disc" ; disc* -- discovery procucts "aim_mp" ; aim_mp -- Discovery Aim @@ -987,9 +987,9 @@ is already a solver running. Do you wish to kill the lock file? ")) ;;"-d 3D" ; 3d device, win32 ) ;;(if apdl-is-unix-system-flag - (display-buffer bname 'other-window) - ;; ) - )) + (display-buffer bname 'other-window) + ;; ) + )) ;;;###autoload (defun apdl-start-launcher () @@ -1075,7 +1075,7 @@ respective job, you can change it with \"\\[cd]\"." "List of files matching REGEX in current working directory. The list is sorted according to their modification times and might be nil if there is no file matching." -; (interactive) + ; (interactive) (let* ((File-name buffer-file-name) (CWD (if File-name ;in buffer with filename? (file-name-directory File-name) @@ -1476,8 +1476,8 @@ with the APDL /EXIT,all command which saves all model data." (interactive) (let ((file "main_page.html")) (browse-url (concat "https://ansyshelp.ansys.com/" - "account/secured?returnurl=/Views/Secured/" - file)) + "account/secured?returnurl=/Views/Secured/" + file)) ;; (if (string> apdl-current-ansys-version "v200") ;; (browse-url (concat "https://ansyshelp.ansys.com/" ;; "account/secured?returnurl=/Views/Secured/corp/" @@ -1702,7 +1702,7 @@ elem. (if path (progn (when (eq browse-url-browser-function 'eww-browse-url) - (switch-to-buffer-other-window nil)) + (switch-to-buffer-other-window nil)) ;; file:/// is not working with tramp remotely 2020-04-03 ;; (browse-url-of-file (concat "file:/" path file))) @@ -1890,12 +1890,12 @@ There are additional keybindings for the license buffer ;;;###autoload (defun apdl-license-status (&optional features) "Display the lmutil license status. -With the optional argument FEATURES non nil the function -summarises all license features with the Ansys license feature -description. Show the status and summary in a separate buffer, -the license type variable `apdl-license' determines a -highlighting of the license server summary rows. There are -additional keybindings for the license buffer *Licenses*: +With the optional argument FEATURES non nil summarise all license +features with the Ansys license feature description. Show the +status and summary in a separate buffer, the license type +variable `apdl-license' determines a highlighting of the license +server summary rows. There are additional keybindings for the +license buffer *APDL-licenses*: - `g' updating the license status, - `d' updating the license status with feature descriptions @@ -1907,23 +1907,22 @@ additional keybindings for the license buffer *Licenses*: - `q' for burying it below another buffer." (interactive "P") (require 'apdl-mode) - (unless apdl-initialised-flag - (apdl-initialise)) - (cond - ((and apdl-lmutil-program apdl-license-file) - ;; lmutil calls with many license server specified takes loooooonnnnggg - (if features + (let (bol eol match desc (lic-buffer "*APDL-licenses*")) + (unless apdl-initialised-flag (apdl-initialise)) + (cond + ((and apdl-lmutil-program apdl-license-file) + ;; lmutil calls with many license servers specified takes loooooonnnnggg + (if features + (message + "Retrieving summary license (%s) status, please wait." apdl-license) (message - "Retrieving summary license (%s) status, please wait." apdl-license) - (message - "Retrieving lmutil license (%s) status, please wait..." apdl-license)) - (with-current-buffer (get-buffer-create "*Licenses*") - (delete-region (point-min) (point-max))) - ;; syncronous call - (call-process apdl-lmutil-program nil "*Licenses*" nil "lmstat" "-c " - apdl-license-file "-a") - (let (bol eol match desc) - (with-current-buffer "*Licenses*" + "Retrieving lmutil license (%s) status, please wait..." apdl-license)) + (with-current-buffer (get-buffer-create lic-buffer) + (delete-region (point-min) (point-max))) + ;; syncronous call + (call-process apdl-lmutil-program nil lic-buffer nil "lmstat" "-c " + apdl-license-file "-a") + (with-current-buffer lic-buffer (setq-local truncate-lines t) ;; remove uninteresting licenses @@ -2021,12 +2020,12 @@ additional keybindings for the license buffer *Licenses*: (put-text-property bol eol 'face 'font-lock-warning-face) ;; on Windows the license stat buffer doesn't move to point without: (unless apdl-is-unix-system-flag - (set-window-point (get-buffer-window "*Licenses*") (point))))) - (unless (equal (current-buffer) (get-buffer "*Licenses*")) - (display-buffer "*Licenses*" 'otherwindow)) - (message "Updated license status: %s." (current-time-string))) - (t - (message "No license information or lmutil program found")))) + (set-window-point (get-buffer-window lic-buffer) (point)))) + (unless (equal (current-buffer) (get-buffer lic-buffer)) + (display-buffer lic-buffer 'otherwindow)) + (message "Updated license status: %s." (current-time-string))) + (t + (message "No license information or lmutil program found"))))) ;; starting in GUI mode (/menu,on) does inhibit the process intercommunication ;; => /menu,graph @@ -2293,8 +2292,8 @@ And store it in the variable `apdl-license'." (setq apdl-license (completing-read (concat "License type [" lic "] (TAB for completion): ") - apdl-license-categories - nil nil nil nil lic)) + apdl-license-categories + nil nil nil nil lic)) (message (concat "Ansys license type is now set to \"" apdl-license "\".")))) diff --git a/info/apdl-mode.org b/info/apdl-mode.org index 168fb85..96edceb 100644 --- a/info/apdl-mode.org +++ b/info/apdl-mode.org @@ -1,5 +1,5 @@ #+MACRO: version 20.6.0 -#+MACRO: updated Time-stamp: "2021-09-23" +#+MACRO: updated Time-stamp: "2021-09-26" #+TITLE: The Manual of APDL-Mode #+SUBTITLE: Version {{{version}}} {{{updated}}}