Rename licensing status buffer to "*APDL-lisenses"

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)
 
 
-<a id="org68df4af"></a>
+<a id="org67fd538"></a>
 
 # 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)
 
 
-<a id="org87734b2"></a>
+<a id="orgb52513b"></a>
 
 # Some Highlights
 
@@ -133,7 +133,7 @@ The image below shows the unhidden content.
 ![img](doc/unhidden_blocks.png)
 
 
-<a id="orga42b9b4"></a>
+<a id="org00520c7"></a>
 
 # Installation
 
@@ -204,14 +204,14 @@ to your initialisation file (the source directory must be set in
 the \`load-path' variable as well).
 
 
-<a id="org4ed0cbc"></a>
+<a id="orgc9cd432"></a>
 
 # 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).
 
 
-<a id="orgeb3c8d9"></a>
+<a id="org7ca1727"></a>
 
 # 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).
 
 
-<a id="orga6565fb"></a>
+<a id="org6c19df7"></a>
 
 # Bugs and Problems
 
@@ -260,22 +260,22 @@ following options:
     [Emacs Wiki](https://www.emacswiki.org).
 
 
-<a id="org5121f8e"></a>
+<a id="org5f77e79"></a>
 
 # News
 
 For further news please have a look into the [NEWS](info/NEWS.md) file.
 
 
-<a id="orgc61e73a"></a>
+<a id="org04aedca"></a>
 
 # Further Resources
 
 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.
 
 
-<a id="org373a896"></a>
+<a id="orgfea5448"></a>
 
 # Acknowledgements
 
@@ -290,14 +290,14 @@ I received, moreover, support and feedback from many individuals.
 Thank you very much!
 
 
-<a id="orgde18461"></a>
+<a id="org7aafa15"></a>
 
 # Todos
 
 Please check the [TODO](info/TODO.md) file.
 
 
-<a id="orge1849ce"></a>
+<a id="orgf45ab3f"></a>
 
 # GNU GPL v3 License
 

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:
 

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 "\"."))))
 

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}}}